delphi中最小化其他程序及所有程序窗口最小化

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;

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;

推荐分享