Ja, wollte ich gerade noch in meinem Beitrag editieren... aber da war ja einer schneller.
Hier eine Lösung:
Delphi-Quellcode:
uses shellapi;
procedure TForm1.FormCreate(Sender: TObject);
var s:
string;
begin
s := Paramstr(1);
if length(Paramstr(1)) < 2
then
begin
s:=s+'
#';
ShellExecute(
handle,'
open',pchar(paramstr(0)),PChar(s),
nil,sw_normal);
end;
end;