• <source id="ht2cg"></source>
    <b id="ht2cg"><tr id="ht2cg"></tr></b>

  • <ins id="ht2cg"></ins>
    <small id="ht2cg"><pre id="ht2cg"></pre></small>
  • <acronym id="ht2cg"><tr id="ht2cg"></tr></acronym>
    <b id="ht2cg"><pre id="ht2cg"><var id="ht2cg"></var></pre></b>
    <b id="ht2cg"><sub id="ht2cg"></sub></b>

    <acronym id="ht2cg"></acronym>
    <thead id="ht2cg"></thead>

    delphi中如何判斷打印機是否安裝

    2016-08-01
    uses Printers;
        
         procedure TForm1.Button1Click(Sender: TObject);
         begin
         if Printer.Printers.Count <= 0 then
         { 沒有安裝 };
         end;
        
         Top
         function GetPrinterStatus:byte;
        
         asm
        
         MOV DX,$379;
        
         IN AL,DX;
        
         end;
        
         //獲取打印機是否出錯
        
         function CheckPrinter:boolean;
        
         var
        
         temp:byte;
        
         begin
        
         temp:=GetPrinterStatus;
        
         Result:=not ( ((temp and $80)=0) //打印機忙
        
         or ((temp and $20)<>0) //打印機缺紙
        
         or ((temp and $10)=0) //打印機未聯機
        
         or ((temp and $08)=0) ); //打印機出錯;
        
         end

    天堂网