1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
   |  
Var  StartInfo   : TStartupInfo;
     ProcessInfo : TProcessInformation;
     SecurityInfo : TSecurityAttributes;
begin
  { Mise à zéro de la structure StartInfo }
  FillChar(StartInfo,SizeOf(StartInfo),#0);
  { Seule la taille est renseignée, toutes les autres options }
  { laissées à zéro prendront les valeurs par défaut }
  StartInfo.cb     := SizeOf(StartInfo);
  StartInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartInfo.wShowWindow := SW_HIDE;
 
  SecurityInfo.nLength := SizeOf(SecurityInfo);
  SecurityInfo.lpSecurityDescriptor := nil;
  SecurityInfo.bInheritHandle := True;
 
  { Lancement de la ligne de commande }
  If CreateProcess(nil, '"java.exe" "-jar" "monJar.jar", @SecurityInfo, @SecurityInfo, True,
                0, Nil, 'MonPath', StartInfo,ProcessInfo) | 
Partager