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

Question

有没有办法最小化我无法在 Delphi 应用程序中控制的外部应用程序？

例如 notepad.exe，但我想要最小化的应用程序将只有一个实例。

Answer 1

您可以使用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;