Главная страница
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.036 c
9-1080763901
j
2004-04-01 00:11
2004.07.18
Ищу художника для создания рпг


3-1088353802
Дилетант
2004-06-27 20:30
2004.07.18
Фильтры в таблицах


1-1088532999
Studentik
2004-06-29 22:16
2004.07.18
Компоненты не влезают на форму под XP


4-1086088462
lehich
2004-06-01 15:14
2004.07.18
отслеживание запуска программы


1-1088607689
mmb
2004-06-30 19:01
2004.07.18
Как заставить PaintBox при скроллинге очищаться полностью