delphi中最小化其他程式及所有程式最小化（使用 shell.minimizeAll 和自己尋找視窗這兩種辦法）

標籤：string   nim   ini   pre   pos   var   com   最小   ide   

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

delphi中最小化其他程式及所有程式最小化（使用 shell.minimizeAll 和自己尋找視窗這兩種辦法）