Einzelnen Beitrag anzeigen

zeras

Registriert seit: 11. Mär 2007
Ort: Saalkreis
1.633 Beiträge
 
Delphi 12 Athens
 
#1

bei Start von Dos Programm flackert immer kurz das DOS Fenster auf

  Alt 29. Jun 2013, 13:24
Betriebssystem: Win 7
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?
Matthias
Es ist nie falsch das Richtige zu tun!
- Mark Twain

Geändert von zeras (29. Jun 2013 um 13:59 Uhr)
  Mit Zitat antworten Zitat