Контроль подключения к ресурсам компьютера

function GetFileOwner(FileName: string):fileid;
var
  SecDescr: PSecurityDescriptor;
  SizeNeeded, SizeNeeded2: DWORD;
  OwnerSID: PSID;
  OwnerDefault: longbool;
  OwnerName, DomainName: PChar;
  OwnerType: SID_NAME_USE;
begin
  //GetFileOwner := False;
  GetMem(SecDescr, 1024);
  GetMem(OwnerSID, SizeOf(PSID));
  GetMem(OwnerName, 1024);
  GetMem(DomainName, 1024);
  try  
    if not GetFileSecurity(PChar(FileName),
      OWNER_SECURITY_INFORMATION,  
      SecDescr, 1024, SizeNeeded) then  
      Exit;
    if not GetSecurityDescriptorOwner(SecDescr,  
      OwnerSID, OwnerDefault) then
      Exit;
    SizeNeeded  := 1024;  
    SizeNeeded2 := 1024;  
    if not LookupAccountSID(nil, OwnerSID, OwnerName,
      SizeNeeded, DomainName, SizeNeeded2, OwnerType) then  
      Exit;
    result.domain_Owner  := DomainName;
    result.user_Owner := OwnerName;
  finally
    FreeMem(SecDescr);
    FreeMem(OwnerName);
    FreeMem(DomainName);
  end;
  //GetFileOwner := True;
end;