Mit folgender Funktion kannst du den Systempfad herausfinden:
Delphi-Quellcode:
function GetSystemDir: String;
var
Dir: String;
Len: DWord;
begin
SetLength(Dir,MAX_PATH);
Len:=GetSystemDirectory(PChar(Dir),MAX_PATH);
if Len>0 then
begin
SetLength(Dir,Len);
Result:=Dir;
end
else
RaiseLastOSError;
end;
Wobei Gängige System-Verzeichnisse C:\Windows\System oder bei auf NT basierenden Betriebssystemen C:\Windows\System32 sind.
Und mit folgender kannst du das Windows-Verwzeichniss ermitteln:
Delphi-Quellcode:
function GetWinDir: String;
var
Dir: String;
Len: DWord;
begin
SetLength(Dir,MAX_PATH);
Len:=GetWindowsDirectory(PChar(Dir),MAX_PATH);
if Len>0 then
begin
SetLength(Dir,Len);
Result:=Dir;
end
else
RaiseLastOSError;
end;
PS: Ich rufe meine Defragementierung in meinem Programm wie folgt auf...:
Delphi-Quellcode:
if ShellExecute(Application.Handle,
'open',
PChar('C:\Windows\System32\dfrgui.exe'),
Nil, Nil, SW_NORMAL) <= 32 then
ShowMessage('Es ist ein Fehler aufgetreten');
Aber das ist halt nur das aufrufen dann musst du slebrer noch deine Parameter einfügen, aber man soll auch irgendwie einen button klick simulieren können