delphi中最小化其他程序及所有程序最小化（使用 shell.minimizeAll 和自己寻找窗口这两种办法）

1.所有程序最小化

uses ComObj;

 

var

   shell : OleVariant;

begin

 

   shell := CreateOleObject('Shell.Application');

  shell.minimizeAll;

end;

2.最小化其他程序

spy++ 查找要最小化的程序classname

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;

3.根据程序标题最小化程序

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;

http://blog.csdn.net/zang141588761/article/details/51858765