Ja ... alles richtig aber das will ich per shellexecute. Aber das funktioniert eben nicht. Egal wie ich es auch versuche.
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
var
explorer,pfad:
string;
begin
explorer:=ExpandEnvStr('
%windir%')+'
\explorer.exe';
pfad:='
/e,'+ExtractFilePath(ParamStr(0));
shellexecute(
handle,'
open',pchar(explorer),pchar(pfad),
nil,SW_SHOWNORMAL);
end;