помогите с отловом WM

← →
andruxin (2004-05-16 20:32) [0]

Поискав отлов этого сообщеня было найдено следующее( и не только такие конструкции были и другие):

[CODE]procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppOnMessage;
end;

procedure TForm1.AppOnMessage(VAR Msg: TMsg; VAR Handled: Boolean);
BEGIN
IF (Msg.Message = WM_SYSCOMMAND)and(msg.wParam=sc_monitorpower) THEN memo1.Lines.Add("Событие");
END;[/CODE]

по экспериментировав с этим оказалось, что работает такая конструкция только с активным
приложением. Помогите понять, что нужно дописать чтобы это сообщение ловилось с неактивным приложением,
например, ести оно свернуто в систрей.

Заранее спасибо.

← →
Rouse_ © (2004-05-16 23:42) [1]

A window receives this message when the user chooses a command from the window menu (formerly known as the system or control menu) or when the user chooses the maximize button, minimize button, restore button, or close button.

Так про какой трей ты говоришь?

WM_SYSCOMMAND с параметром SC_MONITORPOWER посылается ТОЛЬКО активному окну.

помогите с отловом WM_SYSCOMMAND Найти похожие ветки