本文整理自网络,侵删。
1.所有程序最小化
uses ComObj;
var shell : OleVariant;begin shell := CreateOleObject('Shell.Application'); shell.minimizeAll;end;2.最小化其他程序 spy++ 查找要最小化的程序classnamevar 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;
相关阅读 >>
Delphi firedac fdconnection 事务
Delphi的组件选项卡(component palette)
更多相关阅读请进入《Delphi》频道 >>