Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
Delphi 12 Athens
|
Re: Linux: Besitzer einer Datei ermitteln
17. Mär 2009, 17:44
Das kannst Du mit TProcess. Hier ein Beispiel aus meinem einzigen Linux-Programm (Prüfung, ob der ausführende Benutzer Root-Rechte hat):
Delphi-Quellcode:
function CheckRoot: Boolean;
var aProcess: TProcess;
sl : TStringList;
begin
Result := false;
aProcess := TProcess.Create(nil);
try
aProcess.CommandLine := 'id -u';
aProcess.Options := aProcess.Options + [poWaitOnExit, poUsePipes];
sl := TStringList.Create;
try
aProcess.Execute;
sl.LoadFromStream(aProcess.Output);
if sl.Count > 0 then
Result := StrToIntDef(sl[0],1) = 0;
finally
sl.Free;
end;
finally
aProcess.Free;
end;
end;
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|