Entwickler-Ecke

Dateizugriff - ...ein Programm starten und auf das Ende warten?


Tino - Mi 03.09.03 16:19
Titel: ...ein Programm starten und auf das Ende warten?
Möchte man ein Programm starten und darauf warten bis dieses Programm beendet ist muss man das Programm mit CreateProcess [http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dllproc/base/createprocess.asp] starten und mit WaitForSingleObject [http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dllproc/base/waitforsingleobject.asp] auf das Beenden warten.

Hier eine fertige Funktion:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
 
Procedure RunProcessAndWait (aFilename: String); 
Var 
  StartupInfo : TStartupInfo; 
  ProcessInfo : TProcessInformation; 
  Result: Boolean; 
Begin 
  FillChar (StartupInfo, SizeOf (TStartupInfo), 0); 
  StartupInfo.cb := Sizeof (TStartupInfo); 

  StartupInfo.dwFlags := STARTF_USESHOWWINDOW OR STARTF_USEPOSITION OR STARTF_USESIZE ; 
  StartupInfo.wShowWindow := SW_SHOWDEFAULT; 

  Result := CreateProcess ( 
      nil, 
      pChar (aFilename), 
      nil, 
      nil, 
      False, 
      NORMAL_PRIORITY_CLASS,  
      nil, 
      nil, 
      StartupInfo, 
      ProcessInfo 
    ); 
    
  If Result then 
    WaitForSingleObject (ProcessInfo.hProcess, INFINITE); 

  if ProcessInfo.hProcess <> 0 then  
    CloseHandle (ProcessInfo.hProcess); 
End;


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2024 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!