Minimizar uma aplicação externa com Delphi
Pergunta
Existe uma maneira de minimizar um aplicativo externo que eu não tenho controle sobre a partir de com-na minha aplicação Delphi?
Por exemplo notepad.exe, exceto o aplicativo eu quero minimizar só vai ter uma instância.
Solução
Você pode usar FindWindow para localizar o identificador de aplicação e ShowWindow para minimizá-lo.
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;
Outras dicas
Eu não sou um especialista em Delphi, mas se você pode chamar APIs do Win32, você pode usar FindWindow e ShowWindow para minimizar uma janela, mesmo que não pertence à sua aplicação.
Obrigado por isso, no final, eu usei uma versão modifyed de Neftali de código, eu incluí-lo abaixo no caso de qualquer outra pessoa tem os mesmos problemas no futuro.
FindWindow(PChar('notepad'), nil);
foi sempre retornando 0, portanto, ao olhar para uma razão pela qual eu achei este função que iria encontrar o hwnd, e que trabalhou um mimo.
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;
Eu acho que FindWindow (PChar ( 'bloco de notas'), nil) deve ser FindWindow (nil, PChar ( 'bloco de notas')) para encontrar a janela por título.