Delphi

Вопрос

Можно ли из одной программы спрятать другую (визуально)? То есть чтобы убралось окно (но не закрылось) и исчезла кнопка на таскбаре?

Ответ

Вот пример подобной программы:

program Project;
{$APPTYPE CONSOLE}
uses Windows;
var
    Wnd: HWND;
begin
// Здесь заменить строкой заголовка вашего запущенного блокнота
Wnd:=FindWindow(nil, 'Безымянный — Блокнот');
    if Wnd>0 then
    begin
  WriteLn('It is going to hide an application window');
  WriteLn('Press "Enter" to continue');
        ReadLn;
  ShowWindow(Wnd, SW_HIDE);
  WriteLn('The application window is unvisible.');
  WriteLn('Press "Enter" to continue');
  ReadLn;
  ShowWindow(Wnd, SW_SHOW);
  WriteLn('Now the application window is already visible.');
  WriteLn('Press "Enter" to finish');
        ReadLn;
    end else
    begin
WriteLn('The application window was not found');
    end;
end.

Данная программа является консольным приложением.

Novikov Dmitry