Как получить полный путь к файлу, который был послан на принтер?

[Stilet]

В общем Нужно узнать какой файл в данный момент печатается принтером. Делаю это через FindFirstPrinterChangeNotification. Логгирование работает нормально, но хотелось бы получать не просто инфу о задании а еще и полный путь к файлу, который в этом задании.
Это при условии что распечатывается именно открытый файл, который был кем то создан, и помешен в папку с которой у нас происходит печать.

У кого какие идеи?

[B_N]

Stilet, EnumJobs / GetJob не подойдет?

http://msdn2.microsoft.com/en-us/lib...14(VS.85).aspx

[Stilet]

Да это я и использую. Вот смотри:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var hp:THandle; jobs:array[0..50] of JOB_INFO_2; a,b:Cardinal;i:integer;
      hPrinter:Thandle;  htr:Cardinal; eb:BOOL;
  Form1: TForm1;

implementation

{$R *.dfm}
procedure tr;
begin
 while eb do begin
 hp:=FindFirstPrinterChangeNotification(hPrinter,PRINTER_CHANGE_ADD_JOB,
     0,0);
 WaitForSingleObject(hp,INFINITE);
 ZeroMemory(@jobs,sizeof(jobs));
 EnumJobs(hPrinter,0,50,2,@jobs,sizeof(jobs),a,b);
 //********* FOR ******************
 for i:=0  to b-1 do
 begin
  with form1 do begin
    ListBox1.Items.Add(jobs[i].pPrinterName+' '+jobs[i].pDocument);
    ListBox1.Items.Add(' '+jobs[i].pMachineName+' '+jobs[i].pParameters);
  end;
 end;
 //******* END FOR ****************{}
 FindClosePrinterChangeNotification(hp);
end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
eb:=true;
if OpenPrinter('PDFCreator',hPrinter,0) then
 CreateThread(0,0,@tr,0,CREATE_NEW,htr)
else RaiseLastWin32Error;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 eb:=False;
 //WaitForSingleObject(htr,INFINITE);
end;

end.

Но в JOB_INFO_2 чет не нашел полного пути к файлу.
Не ну може я не заметил... Но помоему там нет такого, есть просто типа Заголовок получаю, это есть, а вот где этот файл находится увы не получаю, а это и нужно.

[B_N]

А в pDocument чего дает? Чего-то я уже плохо помню, кажется там было, щас поэкспериментирую...

[Stilet]

А он дает название документа, пославшего печать:"Microsoft Word - Документ1"
Я уж думаю сделать примерно так:

Попробовать узнать хендлы файлов которые открыл процесс, активный на данный момент, и по этим хендлам выдернуть полный путь

Отсюда вопрос: Напомни как второе реализовать

Вот щаз буду пробовать ZwQueryInformationProcess, но может есть чего другое...

[B_N]

Дык, "Microsoft Word - Документ1"... А если он из воздуха печатает, какое же там имя файла? Да и файл, в принципе, может быть уже закрыт к началу печати...

[Stilet]

Да эт я знаю, и это еще одна трудность.
Даже если я получу файлы, мне придется как то соспоставлять этот Microsoft Word - Документ1 с открытыми, а про печати нефайловые я вообще молчу, тут уж придется довольствоваться просто названием.

Но - дело в том что как правило документы формируются не на печатной машине. они туда уже попадают как файлы, потому 90% можно с уверенностью сказать что печать осуществлялась именно из файла, который физически есть, этого вполне хватит для логов.

файл, в принципе, может быть уже закрыт к началу печати...

Тоже верно. но тут срабатывает разгильдяйство юзеров, которые пока листочек из принтера не вылезет окно не закрывают, а иногда вообще о нем забывают.

[B_N]

Сопоставление фалов процессу это да, не подарок, я помнится делал что-то похожее с NtQuerySystemInformation и потом наверху через ObQueryNameString. Если вспомню как или не убил и найду, выложу, но в любом случае, придется "наверх" лезть. Хотя.. мне кажется, что Руссинович знает еще какой-то способ, Process Explorer вроде бы даже с задушеным драйвером хэндлы расписывает.