Текущий архив: 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.05 c