Как перехватить документ, посланный на печать?

[Iskatel]

понимаю, что уже достал всех вопросами, но у меня возникла проблема, где я её совсем не ждал.
В функции FindNextPrinterChangeNotification в последний параметр должна возвращаться структура с инфой, оттуда я собирался вытащить JobId для SetJobs, но этот параметр всегда равен nil. Как нужно объявлять и как передавать в функцию этот последний параметр? Большая просьба написать рабочий пример, а то в инете море примеров, но во все не работают.

[rpy3uH]

как ты получаешь JobId? дай сюда свой код

[Iskatel]

unit VZ;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,WinSpool, Printers, StdCtrls;

type
  TPrintThread=class(TThread)
    constructor Create(aPrinter:THandle;
    aNot:Thandle);
  private
    hPrinter:Thandle;
    hNotification:DWORD;
    hWait:THandle;
  protected
    Procedure Execute; override;
  end;
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    PT:TPrintThread;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
 {$O-}
procedure TForm1.FormCreate(Sender: TObject);
var
  Device, Driver, Port: array[0..255] of Char;
  hDeviceMode: THandle;
  MyPrinter,myNotification:Thandle;
  res:Boolean;
begin
Printer.GetPrinter(Device, Driver, Port, hDeviceMode);
res:=OpenPrinter(@Device, MyPrinter, nil);
myNotification:=FindFirstPrinterChangeNotification(MyPrinter,PRINTER_CHANGE_JOB,
0,nil);

PT:=TPrintThread.Create(MyPrinter,myNotification);
PT.Resume;

end;

constructor TPrintThread.Create(aPrinter:THandle; aNot:Thandle);
begin
inherited Create(True);
Priority:=tpTimeCritical;
FreeOnTerminate:=True;
hPrinter:=aPrinter;
hNotification:=aNot;
end;

procedure TPrintThread.Execute;
type
  TJobs = array[0..50] of JOB_INFO_2;
  PJobs = ^TJobs;
var
  bytesNeeded, numJobs, i, MyError: Cardinal;
  pJ: PJobs;
  pwdChange:DWORD;
  pPrnInfo:PPrinterNotifyInfo;
  res:Boolean;
begin
while not Terminated do
  begin
  hWait:=WaitForSingleObject(hNotification,INFINITE);
  res:=FindNextPrinterChangeNotification(hNotification,pwdChange,nil,Pointer(pPrnInfo));
  MyError:=GetLastError;
  if (pwdChange and PRINTER_CHANGE_ADD_JOB)=PRINTER_CHANGE_ADD_JOB then
    begin
//здесь должно идти вытаскивание
//JobId из pPrnInfo, но он всегда nil.
    end;
  end;

end;

end.

[rpy3uH]

во-первых, после вызова FindFirstPrinterChangeNotification надо тоже обрабатывать последний параметр, а он у тебя равен nil
во-вторых, пятый параметр перед вызовом FindFirstPrinterChangeNotification надо инициализировать, чтобы получить адекватные результаты

[renieaa]

Iskatel, получилось получить путь к файлу?
Если да, то как
Очень надо