Total Commander

[RamSoft]

Исправлю, я просто приболел малость и вообще к компу не подхожу.

[RamSoft]

Выложил доработки:
РамСофт.рф/FindID/

[Alextp]

тест А1/А2.bat прошел

Добавлено спустя 12 минут:

1.если в Windows.pas встать на HWND:
function HwndMSWheel(var puiMsh_MsgMouseWheel, puiMsh_Msg3DSupport,
puiMsh_MsgScrollLines: UINT; var pf3DSupport: BOOL;
var piScrollLines: Integer): HWND;

то находится тутже.

2. если встать на MSH_WHEELMODULE_CLASS
внутри тойже ф. -> не находится.
_________________
UniViewer - CudaText - LogViewer

[RamSoft]

Через минуту выложу ещё обновку, нашёл пару косячков у себя.

--------------------------
Обновил:
РамСофт.рф/FindID/

[Alextp]

3.встань на Result внутри тойже. Найдет **в комменте**

надо обработать Result специально

Добавлено спустя 3 минуты:

4.LANG_NEUTRAL находит в коменте!
_________________
UniViewer - CudaText - LogViewer

[RamSoft]

Чёт не то, можешь организовать a3.bat

[Alextp]

Пока не могу.
берешь D7 Windows.pas

2. в конце встаешь на MSH_WHEELMODULE_CLASS
в строке
Result := FindWindow(MSH_WHEELMODULE_CLASS, MSH_WHEELMODULE_TITLE);

не находит


4.ищешь любое вхождение LANG_NEUTRAL
3.так же

Добавлено спустя 5 минут:

это проба из SW. С комстрокой я не пробую.
_________________
UniViewer - CudaText - LogViewer

[RamSoft]

Исправил косяки:
РамСофт.рф/FindID/

[Alextp]

Windows.pas, та же ф-ция
а.Выдели result. Надо находить начало ф-ции или не находить id
б.выдели False. надо не находить id- находится фигня

Добавлено спустя 12 минут:

в. sysUtils.pas. последнее (или нет) вхождение PResStringRec. находит не там.

Добавлено спустя 4 минуты:

г. sysutils. строка Temp.Free; id "Free" надо не находить.
_________________
UniViewer - CudaText - LogViewer

[RamSoft]

Обновил, с резалтом разберусь уже завтра. Сейчас уже домой хочеца...

[Alextp]

хорошо б сделать список тех id, которые в принципе не должны находиться - если они не переопределены локально в юните или ф-ции. это ид из system.pas - char, pchar, integer, longint, string, widestring, nil, TObject ...... если лень не делай.
_________________
UniViewer - CudaText - LogViewer

[RamSoft]

Выложил доработки...

Линк в подписи...

[Alextp]

secinfo.dpr
_FieldTypes: array[0.._FieldsNum-1] of integer =
(ft_stringw, ft_stringw);
встаем на 2-й ft_stringw - находит не там.

Добавлено спустя 2 минуты:

Owner=1; _F=Owner;
встаем на 1-й Owner- находит не там

Добавлено спустя 3 минуты:

поправить бы
Writeln('Get Declaration. Version 0.1');
на
Writeln('ID finder for Pascal projects. Version 0.1');

Добавлено спустя 2 минуты:

secproc.pas
if not LookupAccountSid(nil, GroupSID, OwnerName, SizeNeeded,
не находит LookupAccountSid

Добавлено спустя 2 минуты:

secproc
if not GetFileSecurityW(PWChar(fn), GROUP_SECURITY_INFORMATION,
не найден GetFileSecurityW

Добавлено спустя 11 минут:

sysutils
const
E_NOTIMPL = HRESULT($80004001);
находит Hresult не там.
_________________
UniViewer - CudaText - LogViewer

[RamSoft]

Обновил, но ещё не всё исправлено...

Не догоняю, как подогнать логику к паре ft_stringw

[Alextp]