有没有办法最小化我在 Delphi 应用程序中无法控制的外部应用程序?
例如 notepad.exe,除了我想要最小化的应用程序将只有一个实例。
您可以使用 FindWindow 查找应用程序句柄,并使用 ShowWindow 将其最小化。
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;
我不是Delphi专家,但是如果你可以调用win32 api,你可以使用FindWindow和ShowWindow来最小化窗口,即使它不属于你的应用程序。
谢谢你,最后我使用了 Neftali's 代码的修改版本,我将其包含在下面,以防其他人将来遇到相同的问题。
FindWindow(PChar('notepad'), nil);
总是返回0,所以在寻找原因时,我发现了这个函数可以找到hwnd,这很不错。
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;
我猜 FindWindow(PChar('notepad'), nil) 应该是 FindWindow(nil, PChar('notepad')) 来按标题查找窗口。