Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.24;
Скачать: CL | DM;

Вниз

отловить WM_SPOOLERSTATUS   Найти похожие ветки 

 
Zevsus   (2003-05-22 11:33) [0]

Здравствуйте!
я пытался отловить WM_SPOOLERSTATUS разными способами:
таким

function WindowProc(wnd:HWND; Msg : Integer; Wparam:Wparam; Lparam:Lparam):Lresult;
stdcall;
Begin
case msg of
wm_SpoolerStatus :
showmessage("hello!");
end;
End;

и таким
type
TForm1 = class(TForm)
private
{ Private declarations }
procedure WM_SpoolerStatus(var Msg : TWMSPOOLERSTATUS);
message WM_SPOOLERSTATUS;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.WM_SpoolerStatus(var Msg : TWMSPOOLERSTATUS);

begin
showmessage(intToStr(msg.JobsLeft)+" Jobs currenly in spooler");
msg.Result := 0;
end;

и даже таким
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if Msg.message = WM_SPOOLERSTATUS then ListBox1.Items.Add(inttostr(msg.lParam)+" ");
end;


Всё равно, при печати никаких сообщений я не получаю :(
помогите плз :((


 
Игорь Шевченко   (2003-05-22 11:59) [1]

Applications should not assume that they will receive a WM_SPOOLERSTATUS message for every change in spooler status.

Windows 2000/XP: The WM_SPOOLERSTATUS message is not sent. To be notified of changes to the print queue status, use FindFirstPrinterChangeNotification and FindNextPrinterChangeNotification. The following code outlines how this might be done.



 
Zevsus   (2003-05-23 13:47) [2]

спасибо :)



Страницы: 1 вся ветка

Текущий архив: 2003.07.24;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.008 c
3-77716
Cranium
2003-07-03 09:00
2003.07.24
---|Ветка была без названия|---


14-78086
Кен
2003-07-08 01:55
2003.07.24
Ещё раз по поводу стека. ( Любителей ругани просьба не заходить )


14-78117
Soft
2003-07-08 14:20
2003.07.24
Да что со всеми случилось?


1-77877
void1987
2003-07-14 00:51
2003.07.24
Дочернияя форма поверх всех остальных?


14-78054
Skier
2003-07-07 12:55
2003.07.24
---|Ветка была без названия|---





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский