http://delphi.ktop.com.tw/topic.asp?TOPIC_ID=21565
可以使用 Printers Unit 後, 利用其中的全域變數 Printer 取出安裝的印表機清單 Printers 即可
代碼: 選擇全部
uses printers;
begin
if Printer.Printers.Count = 0 then
ShowMessage('未安裝 Printer');
end;
代碼: 選擇全部
uses printers;
begin
if Printer.Printers.Count = 0 then
ShowMessage('未安裝 Printer');
end;