使用Delphi最小化外部应用程序

在我的Delphi应用程序中，有没有一种方法可以最小化我无法控制的外部应用程序

---

例如notepad.exe，除了我要最小化的应用程序之外，它只有一个实例。

我不是Delphi专家，但如果您可以调用win32 API，则可以使用FindWindow和ShowWindow最小化窗口，即使它不属于您的应用程序。

您可以使用FindWindow查找应用程序句柄，并ShowWindow将其最小化

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;

var
指示符：整数；
开始
//按类名查找窗口
indicator:=FindWindow（PChar（'notepad'），nil）；
//如果找到
如果（指示符0），则开始
//最小化
显示窗口（指示器、开关）；
结束；
结束；

感谢您的帮助，最后我使用了一个修改版的代码，我将它包含在下面，以防将来其他人也会遇到同样的问题

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

总是返回0，所以在寻找原因时，我发现它会找到hwnd，这很有效

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;

函数FindWindowByTitle（WindowTitle:string）：Hwnd；
变量
下一站：Hwnd；
NextTitle:char的数组[0..260]；
开始
//获取第一个窗口
NextHandle:=GetWindow（Application.Handle，GW\u HWNDFIRST）；
当NextHandle>0时
开始
//检索其文本
GetWindowText（NextHandle，NextTitle，255）；
如果位置（WindowTitle，StrPas（NextTitle））为0，则
开始
结果：=NextHandle；
出口
结束
其他的
//到下一个窗口
NextHandle:=GetWindow（NextHandle，GW\uhwnnext）；
结束；
结果：=0；
结束；
过程hideExWindow（）
变量指示符：Hwnd；
开始
//按类名查找窗口
indicator:=FindWindowByTitle（'MyApp'）；
//如果找到
如果（指示符0），则
开始
//最小化
显示窗口（指示器、开关隐藏）//SW_最小化
结束；
结束；

我想FindWindow（PChar（'notepad'），nil）应该是FindWindow（nil，PChar（'notepad'））来按标题查找窗口。

我投票支持你，因为你让我走上了正确的道路，但最后我使用了Neftali的代码注意，除非你的应用程序以提升的权限运行，否则这在Windows Vista上是行不通的。