Programm zurücksetzen

[bronstein]

Code:

procedure ForceKillApplication(ARestart: boolean = False);
var
  AStartInfo: TStartupInfo;
  AProcInfo: TProcessInformation;
begin
  if ARestart then
  begin
    GetStartupInfo(AStartInfo);
    FillChar(AProcInfo, SizeOf(TProcessInformation), #0);

    CreateProcess(nil, GetCommandLine, nil, nil, False,
      CREATE_NEW_PROCESS_GROUP + NORMAL_PRIORITY_CLASS, nil,
      PChar(GetCurrentDir), AStartInfo, AProcInfo);


  end;
  TerminateProcess(GetCurrentProcess, 1);
end;

Gibt es auch noch die Möglichkeit einen Startparameter der Funktion zu übergaben und wo muss ich die Information bei CreateProcess plazieren?