Total Commander

[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