title image


Smiley Re: Programmausführung - Hier Rezept
....diese Frage taucht immer wieder auf deshalbhier ein 'Rezept' um beliebige Prozesse zu starten : VAR StartupInfo : TStartupInfo; ProcessInfo : TProcessInformation;//------------------------------------------------------------------------------FillChar(StartupInfo, SizeOf(TStartupInfo), 0); StartupInfo.cb := Sizeof(TStartupInfo); StartupInfo.dwX:=0; // startup position and size StartupInfo.dwY:=0; // for further info see MSDN library //StartUpInfo,CreateProcess,WaitForSingleObject StartupInfo.dwFlags:=STARTF_USESHOWWINDOW OR STARTF_USEPOSITION OR STARTF_USESIZE ; StartupInfo.wShowWindow:=SW_SHOWDEFAULT; StartupInfo.dwXSize:=StrToInt(widthval.Text);//widthval.Text = FensterBreite StartupInfo.dwYSize:=StrToInt(heightval.Text);//analog oben if CreateProcess(NIL, // Anwendungsname PChar(any PATH+'\YOUR APPLICATION.exe !!! ' ), // Parameter nil, // Security nil, // Security False, NORMAL_PRIORITY_CLASS, // Priorität nil, // Environment PChar(specify startup folder here ! ), // Verzeichnis StartupInfo, ProcessInfo) then begin WaitForSingleObject(ProcessInfo.hProcess,INFINITE);// hier auch //waitforinputidle moeglich // TerminateProcess(ProcessInfo.hProcess,0); CloseHandle(ProcessInfo.hProcess); end ELSE Showmessage('An error has occured. Extension or Application unknown. Wrong path specification possible.');//---------------------------------------------------Best wishes and have a lot of fun with delphiGuido


Naturfotos Naturbilder, Tiere, Insekten, digitalbilder, Amphibien, Reptilien, Vögeltropische, Glatter, einheimische, einheimische Tiere, Spanner, Falter, Spinnen, Schmetterlinge

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: