Привожу часть кода:
| Цитата |
........ private { Private declarations } procedure WMHotKey(var a:TWMHotKey); message WM_HOTKEY; procedure WM_SpoolerStatus(var MSG:TWMSpoolerStatus); message WM_SpoolerStatus; procedure WMTimeChange(var Mes:TWMTimeChange); message WM_TIMECHANGE; public { Public declarations } end; ......... procedure TForm1.WM_SpoolerStatus(var MSG:TWMSpoolerStatus); begin Table2.Active:=true; Table2.Append; Table2.FieldByName('user').AsString:=zvanie; Table2.FieldByName('data1').AsString:=DateToStr(Date); Table2.FieldByName('time1').AsString:=TimeToStr(Time); Table2.FieldByName('Warning').AsString:='10'; Table2.FieldByName('Primech').AsString:=Inttostr(msg.JobsLeft)+' Jobs currenli in spooler'; Table2.Post; Table2.Active:=false; end; ...... |
Остальные сообщения ловлю без проблем.
Помогите разобраться.
Заранее спасибо
