Wer kann mir helfen. Ich versuche eine Windows-Queue anzuhalten bzw. zu starten und verwende folgenden Code. Ich denke das sollte so funktionieren, erhalte aber "Zugriff verweigert" obwohl ich alle Rechte besitze.

zusammenfalten · markieren

Delphi-Quellcode:

function SetPrinterStatus(PrinterHandle:THandle;Status:integer):Boolean;
type
    TPrinterInfo=Printer_Info_2;
    PPrinterInfo=^TPrinterInfo;
var
    BytesNeeded:Cardinal;
    PInfo:PPrinterInfo;
begin
     Result:=false;
     GetPrinter(PrinterHandle,2,nil,0,@BytesNeeded); //Speicherbedarf lesen
     PInfo:=AllocMem(BytesNeeded);
     //Daten holen
     if (GetPrinter(PrinterHandle,2,PInfo,BytesNeeded,@BytesNeeded)) then begin
         //Status schreiben
         Result:= Winspool.SetPrinter(PrinterHandle,0,PInfo,Status);
         If not Result then
            ShowMessage(SysErrorMessage(GetLastError));
     end;
     FreeMem(PInfo);
end;

Procedure PausePrinter(QueueName:String);
var PrinterHandle:THandle;
begin
  If OpenPrinter(PChar(QueueName),PrinterHandle,nil) then begin
     SetPrinterStatus(PrinterHandle,PRINTER_CONTROL_PAUSE);
     ClosePrinter(PrinterHandle);
  end;
end;

Lesen bildet:

Zitat von PSDK:

If the Command parameter is PRINTER_CONTROL_SET_STATUS, pPrinter must contain a DWORD value that specifies the new printer status to set. For a list of the possible status values, see the Status member of the PRINTER_INFO_2 structure. Note that PRINTER_STATUS_PAUSED and PRINTER_STATUS_PENDING_DELETION are not valid status values to set.
If Level is 0, but the Command parameter is not PRINTER_CONTROL_SET_STATUS, pPrinter must be NULL.