Главная страница
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.066 c
8-1083744370
Guf
2004-05-05 12:06
2004.07.18
OpenGL, текст, 2D


3-1087732660
a123
2004-06-20 15:57
2004.07.18
User Abort


11-1077122347
DDA
2004-02-18 19:39
2004.07.18
Delete folder?


8-1083481501
NewOldMan-NOM
2004-05-02 11:05
2004.07.18
2D вечен?


1-1089107451
Koala
2004-07-06 13:50
2004.07.18
Найти файл более ранней редакции