使用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;