Сверните внешнее приложение с помощью Delphi
Вопрос
Есть ли способ минимизировать внешнее приложение, над которым у меня нет контроля с помощью -в моем приложении Delphi?
например notepad.exe, за исключением приложения, которое я хочу свернуть, у него будет только один экземпляр.
Решение
Вы можете использовать Найди окно чтобы найти дескриптор приложения и Показать окно чтобы свести это к минимуму.
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 для сворачивания окна, даже если оно не принадлежит вашему приложению.
Спасибо за это, в конце концов я использовал модифицированную версию Нефтали код, я включил его ниже на случай, если у кого-то еще возникнут такие же проблемы в будущем.
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')), чтобы найти окно по названию.