Обработка сообщений.

← →
Alexander © (2002-10-22 11:29) [0]

В VCL я писал так:
private procedure WM_SpoolerStatus(var Msg : TWMSPOOLERSTATUS); message WM_SPOOLERSTATUS;
и обрабатывал это сообщение (Win98)

сейчас пишу так:
function TFormMain.frmMainMessage(var Msg: tagMSG; var Rslt: Integer): Boolean; begin Result := False; if (Msg.message = WM_SPOOLERSTATUS) then begin Form.Caption := "OK"; end; end;
но я даже не получаю это сообщение. В чём может быть дело?

← →
BorisMor © (2002-10-22 12:59) [1]

Где то я это уже читал...

http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1027687023&n=10

← →
Gandalf (2002-10-22 13:32) [2]

Код правильный (на мой взгляд), но... незнаю, могу сказать что мне тоже не приходит сообщение (это сообщение) :)
WinXP, D5, KOLnMCK 1.51

← →
Alexander © (2002-10-22 14:07) [3]

>Gandalf
Это сообщение работает (посылается) только в Win9x, в WinNT линии это делается через FindFirstPrinterChangeNotification.

← →
Alexander © (2002-10-22 14:44) [4]

Давненько я под 98 не писал - всё заработало, просто я привык для экономии бумаги печатать в файл вместо LPT1, а в 98 такой фокус не прошёл - нужно печатать нормально, чтобы послалось сообщение.

← →
Alexander © (2002-10-22 16:54) [5]

Ещё вопрос - как можно (и можно ли) получать сообщения в сервисе?
Там ведь окна нет.

← →
Vladimir Kladov (2002-10-24 15:40) [6]

Почему нет? Можно и скрытое окно сделать. Если нужен hook, то вообще окно не нужно. И вообще, сообщения можно ловить не имея окон. В принципе, сообщения посылаются не окну, а потоку.

тогда почему такой код работает:
function TFormMain.frmMainMessage(var Msg: tagMSG; var Rslt: Integer): Boolean; begin Result := False; if (Msg.message = WM_SPOOLERSTATUS) then Form.Caption := Form.Caption + "+"; end;
а такой нет:
hThread := CreateThread(nil, 0, @NotificationThread, @ThreadParams, 0, ThreadID); function NotificationThread(P: Pointer): Cardinal; stdcall; ... begin ... while GetMessage(Msg, 0, 0, 0) do if (Msg.message = WM_SPOOLERSTATUS) then ... end;

← →
Vladimir Kladov (2002-10-28 10:52) [8]

А это тот поток, который отправил задание на печать?

А какое это имеет значение?
Задание на печать может послать любое приложение, а система шлёт всем окнам сообщение о посановке этого задания в очередь.
frmMainMessage() нормально принимает это сообщение, а вот в потоке не получается!
Или придётся создавать форму внутри потока?

Обработка сообщений. Найти похожие ветки