[meta]Programm ausführen[/meta]Es gibt da folgende Befehle:
- ShellExecute
Delphi-Quelltext
1: 2: 3: 4: 5: 6:
| Uses ShellAPI;
ShellExecute(Application.Handle, 'open', 'c:\test.exe', nil, nil, SW_SHOW); |
- Createprocess
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:
| Uses Windows;
function RunProcess(FileName: string): Longword; var StartupInfo: TStartupInfo; ProcessInfo: TProcessInformation; begin FillChar(StartupInfo, SizeOf(StartupInfo), #0); StartupInfo.cb := SizeOf(StartupInfo); StartupInfo.dwFlags := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK; StartupInfo.wShowWindow := SW_SHOW; if not CreateProcess(nil, @Filename[1], nil, nil, False, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then Result := WAIT_FAILED; end; |
- WinExec
Diese Methode sollte man aus Gründen der Kompatibilität nicht mehr benutzen!
Moderiert von Christian S.: Meta-Begriffe hinzugefügt