From: "Finn Tolderlund" <XnospamYfinn.tolderlundX@Ymobilixnet.dkXnospamY>
Newsgroups: borland.public.delphi.ide
References: <3bd76e63_1@dnews>
Subject: Re: Detecting printer not installed
Date: Thu, 25 Oct 2001 07:09:45 +0200
Lines: 18
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4807.1700
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4807.1700
NNTP-Posting-Host: 80.62.217.236
Message-ID: <3bd79e45$1_2@dnews>
X-Trace: dnews 1003986501 80.62.217.236 (24 Oct 2001 22:08:21 -0700)
Path: dnews
Xref: dnews borland.public.delphi.ide:54625

function AnyPrintersInstalled: Boolean;
begin
  if (Printer <> nil) and (Printer.Printers.Count > 0) then
    Result := True
  else
    Result := False;
end;

Finn Tolderlund

"Bob Zirbel" <bobz@asoftsolutions.com.au> skrev i en meddelelse
news:3bd76e63_1@dnews...
> Is there any way to detect the fact that a machine has no printer
installed
> when an app starts and thereby prevent a crash?