Spooler - look at this!!!

<b>Napisalem komponent ktory sciaga zadania do wydruku w momncie jak sie pokaza, czyli bazuje na: message WM_SPOOLERSTATUS. i odpowiedniej procedurce. No i teoretycznie powinno dzialac. A tu kupa. Malo tego znalazlem na stronach borlanda kod podobny do mojego:
http://community.borland.com/article/0,1410,16727,00.html
type
  TForm1 = class(TForm)
    Label1: TLabel;
  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
  Lable1.Caption := IntToStr(msg.JobsLeft) + ' Jobs currenly in spooler';
  msg.Result := 0;
end;

Ale to rowniez nie dziala :(. Czy ktos ma jakis pomysl? Jak sciagac zadania drukarki ale TYLKO wtedy kiedy sie pojawiaja!!
pozdro - replay.</b>

Miałem to samo !!
Nie działa dlatego że masz WinXP lub W2K i w następnych też.
Poszukaj na stronach Borlanda, artykułu Dr. Peter Below i jego przykładowej aplikacji.

To działa - sprawdziłem.