Форум программистов [Powered by Invision Power Board]

Код

// NOTE : include Printers and WinSpool units

procedure TForm1.Button6Click(Sender: TObject);
var
    pcbNeeded: DWord;
    prn: THandle;
    x: array[0..255] of char;
    stat: Pprinterinfo2;
begin
    getmem(stat, 1000);
    try
        StrPCopy(x, printer.printers[0]);
        if OpenPrinter(x, prn, nil) then
            if GetPrinter(
                prn,
                2,      // version of printer info data structure
                stat,      // pointer to array of bytes that receives printer info. structure
                1000,      // size, in bytes, of array of bytes
                @pcbNeeded// pointer to variable with count of bytes retrieved (or required)
                ) then
                case stat.status of
                    PRINTER_STATUS_BUSY:
                        ShowMessage('The printer is busy.');
                    PRINTER_STATUS_DOOR_OPEN:
                        ShowMessage('The printer door is open.');
                    PRINTER_STATUS_ERROR:
                        ShowMessage('The printer is in an error state.');
                    PRINTER_STATUS_INITIALIZING:
                        ShowMessage('The printer is initializing.');
                    PRINTER_STATUS_IO_ACTIVE:
                        ShowMessage('The printer is in an active input/output state.');
                    PRINTER_STATUS_MANUAL_FEED:
                        ShowMessage('The printer is in a manual feed state.');
                    PRINTER_STATUS_NO_TONER:
                        ShowMessage('The printer is out of toner.');
                    PRINTER_STATUS_NOT_AVAILABLE:
                        ShowMessage('The printer is not available for printing.');
                    PRINTER_STATUS_OFFLINE:
                        ShowMessage('The printer is offline.');
                    PRINTER_STATUS_OUT_OF_MEMORY:
                        ShowMessage('The printer has run out of memory.');
                    PRINTER_STATUS_OUTPUT_BIN_FULL:
                        ShowMessage('The printers output bin is full.');
                    PRINTER_STATUS_PAGE_PUNT:
                        ShowMessage('The printer cannot print the current page.');
                    PRINTER_STATUS_PAPER_JAM:
                        ShowMessage('Paper is jammed in the printer');
                    PRINTER_STATUS_PAPER_OUT:
                        ShowMessage('The printer is out of paper.');
                    PRINTER_STATUS_PAPER_PROBLEM:
                        ShowMessage('The printer has a paper problem.');
                    PRINTER_STATUS_PAUSED:
                        ShowMessage('The printer is paused.');
                    PRINTER_STATUS_PENDING_DELETION:
                        ShowMessage('The printer is deleting a print job.');
                    PRINTER_STATUS_PRINTING:
                        ShowMessage('The printer is printing.');
                    PRINTER_STATUS_PROCESSING:
                        ShowMessage('The printer is processing a print job.');
                    PRINTER_STATUS_TONER_LOW:
                        ShowMessage('The printer is low on toner.');
                    PRINTER_STATUS_USER_INTERVENTION:
                        ShowMessage('The user needs to do something to the printer.');
                    PRINTER_STATUS_WAITING:
                        ShowMessage('The printer is waiting.');
                    PRINTER_STATUS_WARMING_UP:
                        ShowMessage('The printer is warming up.');
                    end
                    else
                        caption := inttostr(getlasterror);
        ClosePrinter(prn);
    finally
        if stat <> nil then
            freemem(stat, 1000);
    end;
end;