델파이 : shellexecute 및 sw_hide

Question

응용 프로그램을 숨기려고하면 실행 중이지만 응용 프로그램 양식은 ​​계속 표시됩니다.

ShellExecute(Handle, nil, 'app.exe', nil, nil, SW_HIDE); 

델파이에서 숨겨진 응용 프로그램을 실행하는 방법은 무엇입니까?

Answer 1

새로 출시 된 응용 프로그램의 프로세스 ID를 반환하고이를 사용하여 창 핸들을 가져올 수 있으므로 CreateProcess을 대신 사용하는 것이 좋습니다. 여기 제가 사용하고있는 함수가 있습니다. 아마도 불필요한 조각을 빼앗아 필요에 맞출 수 있을까요?

{$HINTS OFF} 
{ .: ExecNewProcess :. } 
function ExecNewProcess(const ProgramName: String; 
    const StartHidden, WaitForInput: Boolean; out WndInfo: TWndInfo): Boolean; 
var 
    StartInfo: TStartupInfo; 
    ProcInfo: TProcessInformation; 
    R: TRect; 
    SL: TStringList; 

    {$REGION 'EnumProcess'} 
    function EnumProcess(hHwnd: HWND; lParam: Integer): Boolean; stdcall; 
    var 
    WndInfo: PWndInfo; 
    pid: DWORD; 
    begin 
    Result := True; 

    WndInfo := PWndInfo(lParam); 
    if (WndInfo = nil) or (hHwnd = 0) then 
     exit; 

    GetWindowThreadProcessId(hHwnd, pid); 
    if (pid = WndInfo.PID) then 
    begin 
     if (WndInfo.WndHandle = 0) and (IsWindowVisible(hHwnd)) then 
     WndInfo.WndHandle := hHwnd; 
     //Result := False; 
    end; 
    end; 
    {$ENDREGION} 

begin 
    Result := False; 

    ZeroMemory(@StartInfo, SizeOf(TStartupInfo)); 
    ZeroMemory(@ProcInfo, SizeOf(TProcessInformation)); 

    StartInfo.cb := SizeOf(TStartupInfo); 
    StartInfo.dwFlags := STARTF_USESTDHANDLES; 
    if StartHidden then 
    begin 
    StartInfo.dwFlags := STARTF_USESHOWWINDOW or StartInfo.dwFlags; 
    StartInfo.wShowWindow := SW_SHOWMINNOACTIVE; 
    end; 

    Result := CreateProcess(PChar(ProgramName), nil, nil, nil, False, 0, nil, 
    nil, StartInfo, ProcInfo); 
    try 
    if Result then 
    begin 
     WndInfo.WndHandle := 0; 
     WndInfo.PID := ProcInfo.dwProcessId; 

     if WaitForInput then 
     WaitForInputIdle(ProcInfo.hProcess, INFINITE); 

     EnumWindows(@EnumProcess, Integer(@WndInfo)); 
     if (WndInfo.WndHandle <> 0) then 
     begin 
     if (StartHidden) then 
      ShowWindow(WndInfo.WndHandle, SW_HIDE); 
     Windows.GetWindowRect(WndInfo.WndHandle, R); 

     WndInfo.Width := R.Right - R.Left; 
     WndInfo.Height := R.Bottom - R.Top; 
     end; 
    end; 
    finally 
    CloseHandle(ProcInfo.hProcess); 
    CloseHandle(ProcInfo.hThread); 
    end; 
end; 
{$HINTS ON} 

Answer 2

여기

http://msdn.microsoft.com/en-us/library/windows/desktop/bb762153%28v=vs.85%29.aspx

는 SW_HIDE를 처리하는 방법을 결정하는 응용 프로그램에 달려 읽을 수있다. 따라서 응용 프로그램은 메시지를 가져 와서 내가 볼 수있는 한 숨어 야합니다.