Verfügbare Druckerschächte eines Druckers anzeigen

[uwewo]

Probier mal das

Delphi-Quellcode:

function GetPaperTrays: TStrings;
var pDevMode  : PDeviceMode;
    bin       : array[0..255,0..23] of char;
    i         : DWORD;
    Res       : DWORD;
begin
if (FPaperTrays = nil) then begin
  try
    FPaperTrays := TStringList.Create;
  except
    FPaperTrays.Free;
    FPaperTrays := nil;
  raise;
  end;
end;
   FPaperTrays.Clear;
   GetPrinter(ADevice,ADriver,APort,hDMode);
   pDevMode := nil;
   Res := DeviceCapabilities(ADevice,APort,DC_BINNAMES,PCHAR(@(bin[0][0])),pDevMode);

    for i := 0 to Res-1 do
      begin
          FPaperTrays.Add(bin[i]);
      end;
    Result := FPaperTrays;
end;

Uwe