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;