怎样判断打印机的状态?

nternter 2002-09-25 10:16:21

请问怎样判断打印机的各种状态
比如:
正在打印
关了电源
联机状态

...全文

111 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

zjfgj 2002-11-09

打赏
举报

用EnumPrinters函数调用PRINTER_INFO_2结构数据

沧-海-桑-田 2002-11-09

打赏
举报

不行不行,在2000下会报错啊

boynicky 2002-09-25

打赏
举报

关注！

南飞 2002-09-25

打赏
举报

hongqi162 2002-09-25

打赏
举报

哦！up !

haoqingqlm 2002-09-25

打赏
举报

状态是英文，没什么问题吧！

function PrinterStatus : integer;
asm
mov ah, 2 // function 2 - returns status of port
mov dx, 0 // lpt1 = 0, lpt2 = 1 etc
int $17 // status in ah
mov al, ah
and eax, $FF // status now in eax with top 24 bits cleared
end;

const
PrinterCodes : array [0..7] of string =
('printer timed-out',
'unused',
'unused',
'I/O error',
'printer selected',
'out of paper', //缺纸
'printer acknowedgment',
'printer not busy');

procedure TForm1.Button1Click(Sender: TObject);
var
L,P : integer;
begin
P := PrinterStatus; //status of printer in P
ListBox1.Clear;
for L := 0 to 7 do
if P and (1 shl L) <> 0 then
ListBox1.Items.Add (PrinterCodes [L]);
end;