Prozessfenster mit 'CreateProcess' ausblenden

Question

Ich verwende eine Prozedur, die mir zur Verfügung gestellt wird, die einen Prozess ausführt, aber ich möchte, dass der Prozess im Hintergrund ausgeführt wird, ohne dass das Fenster angezeigt wird. Der Anruf ist

ExecProcess(ProgPath, '', False); 

und die Funktion ist

function ExecProcess(ProgramName, WorkDir: string; Wait: boolean): integer; 
var 
    StartInfo: TStartupInfo; 
    ProcInfo: TProcessInformation; 
    CreateOK: boolean; 
    ExitCode: integer; 
    dwExitCode: DWORD; 
begin 
    ExitCode := -1; 

    FillChar(StartInfo, SizeOf(TStartupInfo), #0); 
    FillChar(ProcInfo, SizeOf(TProcessInformation), #0); 
    StartInfo.cb := SizeOf(TStartupInfo); 

    if WorkDir <> '' then 
    begin 
    CreateOK := CreateProcess(nil, Addr(ProgramName[1]), nil, Addr(WorkDir[1]), 
     false, CREATE_NEW_PROCESS_GROUP + NORMAL_PRIORITY_CLASS, nil, nil, 
     StartInfo, ProcInfo); 
    end 
    else 
    begin 
    CreateOK := CreateProcess(nil, Addr(ProgramName[1]), nil, nil, false, 
     CREATE_NEW_PROCESS_GROUP + NORMAL_PRIORITY_CLASS, nil, Addr(WorkDir[1]), 
     StartInfo, ProcInfo); 
    end; 

    { check to see if successful } 

    if CreateOK then 
    begin 
    // may or may not be needed. Usually wait for child processes 
    if Wait then 
    begin 
     WaitForSingleObject(ProcInfo.hProcess, INFINITE); 
     GetExitCodeProcess(ProcInfo.hProcess, dwExitCode); 
     ExitCode := dwExitCode; 
    end; 
    end 
    else 
    begin 
    ShowMessage('Unable to run ' + ProgramName); 
    end; 

    CloseHandle(ProcInfo.hProcess); 
    CloseHandle(ProcInfo.hThread); 

    Result := ExitCode; 

end; 

Ich habe versucht, das StartInfo.wShowWindow Attribut mit SW_MINIMIZE, SW_FORCEMINIMIZE und SW_SHOWMINIMIZED zu verwenden, aber es funktioniert nicht. Ich kann sehen, dass sich das Attribut im Debugger ändert, aber das ist soweit ich weiß. Könnte jemand darauf hinweisen, was das Problem ist?

EDIT: Wenn es wichtig ist, führe ich ein paar Fortran-Module (.exe) mit Argumenten aus, die ein CMD-Fenster öffnen.

Answer 1

Verwenden dwFlags mit STARTF_USESHOWWINDOW die Verwendung von wShowWindow

StartInfo.wShowWindow := SW_HIDE; 
StartInfo.dwFlags := STARTF_USESHOWWINDOW;