Как определить владельца файла на Delphi



style="display:block"
data-ad-client="ca-pub-0562610021414947"
data-ad-slot="5792664354"
data-ad-format="link">

Функция определяет владельца файла.

function GetFileOwner (FileName: string; var Domain, Username: string): Boolean;
var
SecDescr: PSecurityDescriptor;
SizeNeeded, SizeNeeded2: DWORD;
OwnerSID: PSID;
OwnerDefault: BOOL;
OwnerName, DomainName: PChar;
OwnerType: SID_NAME_USE;
begin
GetFileOwner := False;
GetMem (SecDescr, 1024);
GetMem (OwnerName, 1024);
GetMem (DomainName, 1024);
if GetFileSecurity (PChar (FileName),
OWNER_SECURITY_INFORMATION,
SecDescr, 1024, SizeNeeded) then
if GetSecurityDescriptorOwner (SecDescr,
OwnerSID, OwnerDefault) then
SizeNeeded := 1024;
SizeNeeded2 := 1024;
if LookupAccountSID (nil, OwnerSID, OwnerName,
SizeNeeded, DomainName, SizeNeeded2, OwnerType) then
Domain := DomainName;
Username := OwnerName;
FreeMem (SecDescr);
FreeMem (OwnerName);
FreeMem (DomainName);
GetFileOwner := True;
end;

Популярность: 0 [?]

Рубрика: Delphi, Новости · Метки:

Выразите свои мысли

Скажите нам, что вы думаете...
и если вы хотите сопроводить комментарий своей аватаркой, воспользуйтесь сервисом gravatar!