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;
，