Как определить наличие принтера в системе
Вася © (2004-06-03 13:17:00)
Добрый день всем.
Программа распечатывает содержимое 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:00) [1]
EnumPrinters(Flags, nil, 2, nil, 0, Count, NumInfo);
if Count = 0 then Exit; //no printer
Наверх 
ЧАТ |
Орешник |
|
