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

前端之家收集整理的这篇文章主要介绍了使用Delphi最小化外部应用程序前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
有没有办法最小化一个我无法用我的Delphi应用程序控制的外部应用程序?

例如notepad.exe,除了我想要最小化的应用程序只会有一个实例.

解决方法

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

猜你在找的Delphi相关文章