Programm mehrfach starten

[himitsu]

So sollte es auch gehn ^^

Delphi-Quellcode:

uses shellapi; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  if Paramstr(1) <> 'NichtNochmal' then // oder was anderes
  begin 
    ShellExecute(Handle, 'open', pchar(ParamStr(0)), 'NichtNochmal', nil, sw_normal); 
    ShellExecute(Handle, 'open', pchar(ParamStr(0)), 'NichtNochmal', nil, sw_normal); 
  end; 
end;