Delphi を使用して外部アプリケーションを最小化する

Question

Delphi アプリケーション内から制御できない外部アプリケーションを最小化する方法はありますか?

たとえば、notepad.exe ですが、最小化したいアプリケーションのインスタンスは 1 つだけです。

Answer 1

使用できます 検索ウィンドウ アプリケーションハンドルを見つけて、 ショーウィンドウ それを最小限に抑えるために。

var  
  Indicador :Integer;
begin 
  // Find the window by Classname
  Indicador := FindWindow(PChar('notepad'), nil);
  // if finded
  if (Indicador <> 0) then begin
    // Minimize
    ShowWindow(Indicador,SW_MINIMIZE);
  end;
end;

Answer 2

私は Delphi の専門家ではありませんが、win32 API を呼び出すことができれば、アプリに属していないウィンドウであっても、FindWindow と ShowWindow を使用してウィンドウを最小化できます。

Answer 3

ありがとう。最終的には次の修正バージョンを使用しました。 ネフタリさんの コードについては、将来他の人が同じ問題を抱えた場合に備えて、以下に含めておきます。

FindWindow(PChar('notepad'), nil);

常に0を返していたので、理由を探していたところ、 この機能 そうすれば、見つけられるでしょう、そして、それはうまくいきました。

function FindWindowByTitle(WindowTitle: string): Hwnd;
    var
      NextHandle: Hwnd;
      NextTitle: array[0..260] of char;
begin
      // Get the first window
      NextHandle := GetWindow(Application.Handle, GW_HWNDFIRST);
      while NextHandle > 0 do
      begin
        // retrieve its text
        GetWindowText(NextHandle, NextTitle, 255);
        if Pos(WindowTitle, StrPas(NextTitle)) <> 0 then
        begin
          Result := NextHandle;
          Exit;
        end
        else
          // Get the next window
          NextHandle := GetWindow(NextHandle, GW_HWNDNEXT);
      end;
      Result := 0;
end;

procedure hideExWindow()
var Indicador:Hwnd;
begin
    // Find the window by Classname
    Indicador := FindWindowByTitle('MyApp'); 
    // if finded
    if (Indicador <> 0) then
    begin
        // Minimize
        ShowWindow(Indicador,SW_HIDE); //SW_MINIMIZE
    end;
end;

Answer 4

タイトルでウィンドウを検索するには、FindWindow(PChar('notepad'), nil) を FindWindow(nil, PChar('notepad')) にする必要があると思います。