Hej Poul,
"Poul Otto Schousboe" <pos@telefona.dk> wrote in message
news:3be58bfa$0$13371$4d4eb98e@read.news.dk.uu.net...
> Hej Thomas
>
> Jeg har fundet den, men jeg er en novice, så jeg ved ikke hvordan jeg
> foretager et kald til denne funktion i Delphi.
>
> Har du mulighed for at lave et eksempel?
tja, lige nu sidder jeg desværre ikke og koder på et system med NTFS, så jeg
har ikke gode muligheder for at teste mit eksempel i praksis (jeg får blot
at vide, at funktionen ikke er tilgængelig på mit system)...
Men, følgende viser princippet i et kald til GetFileSecurity:
var
SD : PSecurityDescriptor;
LengthNeeded : DWORD;
begin
GetMem(SD, 1024);
try
if GetFileSecurity('c:\windows\smartdrv.exe',
OWNER_SECURITY_INFORMATION,
SD, 1024, LengthNeeded) then
begin
ShowMessage('Success!');
end
else ShowMessage(SysErrorMessage(GetLastError));
finally
FreeMem(SD);
end;
Og bemærk den lidt specielle semantik omkring kaldet... Security
Descriptoren kan fylde mere end de 1024 bytes angives, og funktionen vil i
givet fald fejle hvor LengthNeeded variablen indeholder den påkrævede
størrelse i bytes.
Held og lykke,
og Cheers som altid,
Thomas