Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Передача сообщения другой программе

Автор: InfMag 30.1.2006, 15:15

Народ, вот я пытаюсь передать другой программе сообщение, но ноль реакции. Не могу понять почему smile

Код


procedure TMainForm.FormShow(Sender: TObject);
var h:HWND;
begin
  h := FindWindow('#32770', 'Eserv/2.99');
  SendMessage(h, WS_VISIBLE, 0, 0);
  Close;
end;

Автор: _hunter 30.1.2006, 15:33

нет такого сообщения просто...
ты что сделать хочеш?

Автор: InfMag 30.1.2006, 15:44

Я хочу поставить другой программе Visible := false;
И еще хотел бы узнать как имитировать нажатие кнопки на той программе "Свернуть"

Автор: bems 30.1.2006, 15:50

ShowWindow(h,SW_HIDE);

Автор: InfMag 30.1.2006, 15:53

Большое спасибо, вот этого я не мог вспомнить smile

Автор: Poseidon 30.1.2006, 18:11

Цитата(InfMag @ 30.1.2006, 14:44

)

И еще хотел бы узнать как имитировать нажатие кнопки на той программе "Свернуть"

Код


var h:HWND;
begin
  h := FindWindow('#32770', 'Eserv/2.99'); // или какое там тебе окно надо?
  SendMessage(h, WM_SYSCOMMAND, SC_MINIMIZE , 0);
end;

Один топик, один вопрос!