@marabu
Supi ... so klappts. Ich hab´s jetzt so gemacht.
Delphi-Quellcode:
pfad:=ExtractFilePath(ParamStr(0));
explorer:=IncludeTrailingPathDelimiter(GetEnvironmentVariable('WINDIR'))+'explorer.exe';
ShellExecute(GetDeskTopWindow,'open',PChar(explorer),pchar('/e,'+pfad),nil,SW_SHOWNORMAL);
application.terminate;
Ich hatte einen anderen weg benutzt um %windir%/explorer.exe zu bekommen. Auf diese Weise ging der Eplorer immer nur in C:\Windows auf und das ohne 'Ordnerbaum'.
Delphi-Quellcode:
function ExpandEnvStr(const szInput: string): string;
const
MAXSIZE = 32768;
begin
SetLength(Result,MAXSIZE);
SetLength(Result,ExpandEnvironmentStrings(pchar(szInput),
@Result[1],length(Result)));
end;
---------------
AUFRUF DANN PER
---------------
explorer:=ExpandEnvStr('%windir%')+'\explorer.exe';