Hallo,
ich starte ein externes DOS Programm zum Entpacken von Daten. Für dieses Programm gibt es weder eine Windows Umgebung noch eine
DLL.
Das ganze funktioniert soweit, nur wird immer kurz das DOS Fenster aufgemacht und nach kurzer Zeit verschwindet dies wieder. Funktion ist OK, nur etwas unschön in einem professionellen Programm.
Starten tue ich das DOS Programm mit:
Delphi-Quellcode:
if Show then begin
StartupInfo.wShowWindow := SW_SHOWNORMAL
end
else begin
StartupInfo.wShowWindow := SW_HIDE;
end;
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
if CreateProcess(nil,
PChar( f + ' ' + para),
nil,
nil,
False,
NORMAL_PRIORITY_CLASS,
nil,
nil,
StartupInfo,
ProcessInfo) then begin
WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
CloseHandle(ProcessInfo.hProcess);
result := true;
end
else begin
ErrInfo := GetLastError;
ShowMessage('Fehler beim Prozess starten!'
+ #10#13
+ 'Errorcode = ' + IntToStr(ErrInfo));
end;
Hat jemand eine Idee, wie man das Aufflackern des DOS Fensters vermeidet?