VPF::перехват FILE_NOTIFY_CHANGE_LAST_WRITE - Форум программистов

Ururu

Дата 5.2.2009, 20:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 27.1.2009

Репутация: нет
Всего: нет

Подскажите, в чём может быть причина?

bems

Дата 5.2.2009, 22:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88

чего?

--------------------

Обижено школьников: 8

Ururu

Дата 5.2.2009, 22:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 27.1.2009

Репутация: нет
Всего: нет

ошибся я, вопрос в описание темы написал.
Я пытаюсь перехватить FILE_NOTIFY_CHANGE_LAST_WRITE с помощью Findfirstchangenotification, но почему-то не выходит, хотя CHANGE_SIZE ловит влёт!

Rrader

Дата 6.2.2009, 06:28 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 29
Всего: 191

Ururu, код показывай, может там у тебя косяк на косяке

--------------------

Let's do this quickly!
Rest in peace, Vit!

Ururu

Дата 6.2.2009, 20:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 27.1.2009

Репутация: нет
Всего: нет

Код


unit Unit1;

interface

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

type
  TPrintThread=class(TThread)
    constructor Create;
  private
    hWait:THandle;
  protected
    Procedure Execute; override;
  end;

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);

  private
    { Private declarations }
    PT:TPrintThread;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

  hPrinter,hNotification:THandle;
  FullFileName,NewFilename:string;
implementation

{$R *.dfm}
 {$O-}

constructor TPrintThread.Create;
begin
inherited Create(True);
Priority:=tpTimeCritical;
FreeOnTerminate:=True;
end;

procedure TPrintThread.Execute;
type
  TJobs = array[0..50] of JOB_INFO_2;
  PJobs = ^TJobs;
var
  bytesNeeded, numJobs: Cardinal;
  pJ: PJobs;
  BufStr:String;
  PathToVZ:String;
  TjSize,fSize:Cardinal;
  FileName:String;
begin
TjSize:=sizeof(TJobs);
pJ:=AllocMem(TjSize);
while not Terminated do
  begin
  hWait:=WaitForSingleObject(hNotification,INFINITE);//отсюда уже не возвращается
  EnumJobs(hPrinter, 0, 50, 2, pJ, TjSize,bytesNeeded, numJobs);
  //Вот здесь идёт обработка SPL-файла, но до сюда не доходит
    FindNextChangeNotification(hNotification);
    end;
  end;
FindCloseChangeNotification(hNotification);
FreeMem(pJ);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
Path:array[0..255] of char;
begin
  GetWindowsDirectory(Path,255);
  WinDir:=Path+'\system32\spool\PRINTERS';
  AppDir:=GetCurrentDir;
  TargetDir:=AppDir+'\fPrn\';
  Form1.Width:=5;
  Form1.Height:=5;
  Form1.Left:=-100;
  Printer.GetPrinter(Device, Driver, Port,hDeviceMode);
  OpenPrinter(@Device,hPrinter,nil);
  hNotification:=FindFirstChangeNotification(PChar(WinDir),
  False,FILE_NOTIFY_CHANGE_LAST_WRITE);
  PT:=TPrintThread.Create;
  PT.Resume;
end;



procedure TForm1.FormDestroy(Sender: TObject);
begin
ClosePrinter(hPrinter);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  ShowWindow(Application.Handle,SW_HIDE);

end;

end.

M
Rrader

Ururu, не забывай впредь пользоваться кнопкой "Код".

Это сообщение отредактировал(а) Rrader - 6.2.2009, 21:14

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »