//功能: 检测打印机是否连接正常 ,默认连接正常 //参数: 无 //返回值:连接正常返回true,否则返回false //作者:杨海生 //日期:2003-04-09 function WsPrinterIsConnect : boolean; var myin : byte; begin Result := true; if (GetVersion and $80000000) <> 0 then begin asm mov dx,0 mov ah,2h int 17h mov myin,ah end; Result := not ((myin and $80)=0); end ;end;我只试过本地打印机
//参数: 无
//返回值:连接正常返回true,否则返回false
//作者:杨海生
//日期:2003-04-09
function WsPrinterIsConnect : boolean;
var
myin : byte;
begin
Result := true;
if (GetVersion and $80000000) <> 0 then
begin
asm
mov dx,0
mov ah,2h
int 17h
mov myin,ah
end;
Result := not ((myin and $80)=0);
end ;end;我只试过本地打印机