title image


Smiley Re: EXE Programm aus Delphi Programm starten
versuch' mal damit.var ProcessClose : THandle...procedure TForm1.Start1Click(Sender: TObject);begin/ Programm aktivierenExtProgStart('C:\Programme\Test\Test.exe'+' '+'/?',False,False);if ProgStartFail = 1701 thenBegin MessageDlg('Fehler bei der Ausführung von Test !', mtError, [mbOK],0); Screen.Cursor := CrDefault; Exit; end;end;procedure TForm1.Stop1Click(Sender: TObject);beginTerminateProcess(ProgClose,0);end;{ Ein externes Programm Starten und das eigene Programm anhalten bis externes Programm beendet ist oder nicht}function TForm1.ExtProgStart(const aCmdLine: String; aHide,aWait: Boolean): Boolean;varStartupInfo : TStartupInfo ;ProcessInfo : TProcessInformation;Handle : THandle;Begin{setup the startup information for the application}FillChar(StartupInfo,SizeOf(TStartupInfo),0);with StartupInfo do Begin cb:= SizeOf(TStartupInfo); dwFlags:= STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK; if aHide then wShowWindow:= SW_HIDE else wShowWindow:= SW_SHOWNORMAL; end;Result:= CreateProcess(nil,PChar(aCmdLine),nil,nil,False,NORMAL_PRIORITY_CLASS,nil,nil,StartupInfo,ProcessInfo);//-----------------------------------------------------------------//ProcessInfo die zum schließen des Programms verwendet werden kannHandle := ProcessInfo.hProcess;ProgClose := Handle;//-----------------------------------------------------------------if aWait thenif Result thenBegin WaitForInputIdle(ProcessInfo.hProcess,INFINITE); WaitForSingleObject(ProcessInfo.hProcess,INFINITE); end else ProgStartFail := 1701; end;

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: