Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.18;
Скачать: CL | DM;

Вниз

Как определить наличие принтера в системе   Найти похожие ветки 

 
Вася   (2004-06-03 13:17) [0]

Добрый день всем.
Программа распечатывает содержимое TMemo. Как определить наличие принтера в системе, чтобы программа не зависала .
Почему данный код не вылавливает исключений при печати:

procedure TForm1.PrintMemo(Sender: TObject);
var
  Line: Integer;
  PrintText: TextFile;
begin
 try
   AssignPrn(PrintText);
   Rewrite(PrintText);
   Printer.Canvas.Font := Memo1.Font;
   for Line := 0 to Memo1.Lines.Count - 1 do
   Writeln(PrintText, Memo1.Lines[Line]);
   CloseFile(PrintText);
 except
    MessageBox(Self.Handle, "Ой", "",  MB_OK);
    exit;
 end;

end;



 
Vlad Oshin ©   (2004-06-03 13:25) [1]

EnumPrinters(Flags, nil, 2, nil, 0, Count, NumInfo);
if Count = 0 then Exit; //no printer



Страницы: 1 вся ветка

Текущий архив: 2004.07.18;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.022 c
3-1088060693
ZrenBy
2004-06-24 11:04
2004.07.18
BDE & Insufficient disk space.


3-1088079522
Oleon
2004-06-24 16:18
2004.07.18
Какой грид может помочь вывести данные в таком виде?


1-1089202095
Kurt
2004-07-07 16:08
2004.07.18
Ожидание события


4-1086352773
Ruslan
2004-06-04 16:39
2004.07.18
Вопрос по WM_DEVICECHANGE


14-1088491127
StarCon
2004-06-29 10:38
2004.07.18
Java vs Delphi