Перехватывать печать на принтере -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.133.131.168]

Модераторы: jack128, Rouse_, Krid

Ссылки по теме:

Перехватывать печать на принтере

Перехватывать печать на принтере

Rouse_

Сообщ. #1 , 16.06.05, 05:34

Moderator

Профиль · PM

Поощрения: 4 Dgm

Рейтинг (т): 320

Вот накидал на скорую руку, дальше развивай по аналогии:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, WinSpool;

type

TForm1 = class(TForm)

btnStart: TButton;

cbPrinters: TComboBox;

procedure btnStartClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var

PrintersInfo: array of TPrinterInfo5;

I, Needed, Returned: DWORD;

begin

EnumPrinters(PRINTER_ENUM_LOCAL, nil, 5, nil,

0, Needed, Returned);

SetLength(PrintersInfo, Needed div SizeOf(TPrinterInfo5));

if EnumPrinters(PRINTER_ENUM_LOCAL, nil, 5, PrintersInfo,

Needed, Needed, Returned) then

if Returned > 0 then

begin

for I := 0 to Returned - 1 do

cbPrinters.Items.Add(PrintersInfo[I].pPrinterName);

btnStart.Enabled := True;

cbPrinters.ItemIndex := 1;

end;

procedure TForm1.btnStartClick(Sender: TObject);

var

hPrinter, hChanges: THandle;

NotifyOption: TPrinterNotifyOptions;

NotifyTipes: TPrinterNotifyOptionsType;

Field: TPrinterNotifyInfoData;

begin

if OpenPrinter(PChar(cbPrinters.Items.Strings[cbPrinters.ItemIndex]),

hPrinter, nil) then

try

NotifyTipes.wType := JOB_NOTIFY_TYPE;

NotifyTipes.Reserved0 := 0;

NotifyTipes.Reserved1 := 0;

NotifyTipes.Reserved2 := 0;

NotifyTipes.Count := 1;

NotifyTipes.pFields := @Field;

NotifyOption.Version := 2;

NotifyOption.Flags := PRINTER_CHANGE_ALL;

NotifyOption.Count := 1;

NotifyOption.pTypes := @NotifyTipes;

hChanges := FindFirstPrinterChangeNotification(hPrinter, PRINTER_CHANGE_ALL,

0, @NotifyOption);

if hChanges = INVALID_HANDLE_VALUE then

RaiseLastOSError

else

try

case WaitForSingleObject(hChanges, INFINITE) of

WAIT_OBJECT_0: ShowMessage('Есть изменения');

WAIT_FAILED: RaiseLastOSError;

end;

finally

FindClosePrinterChangeNotification(hChanges);

end;

finally

ClosePrinter(hPrinter);

end;

end.

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0186 ] [ 16 queries used ] [ Generated: 27.04.24, 21:32 GMT ]