Forum: Win32/Win64 API (native code)
Delphi
by HannsW,
26. Jan 2010
Case False Ja:
hier das Feedback :mrgreen:
Die Schweitzer liefern mit ihrer
procedure GetPaperBins(sl: TStrings); TSrings.
Da die procedure ChangePrinterBin(ToBin: Integer);
//from : http://www.efg2.com/Lab/Library/UseNet/1999/1102.txt
einen IntegerWert zum Setzen des Schachtes benötigt, und ich andererseits nicht den Schacht des
Forum: Win32/Win64 API (native code)
Delphi
by HannsW,
25. Jan 2010
Danke, Detlef, das hat erstmal geholfen!
ABER: wie sage ich es dem Drucker, welchen der Schächte er benutzen soll?
TIA Hanns
Forum: Win32/Win64 API (native code)
Delphi
by HannsW,
25. Jan 2010
Hallo Uwe,
liegt ja nun schonein wenig zurück, aber: es klappt nicht!
FPapertrays: TStringList; in die VAR einzufügen habe ich geschafft, aber
GetPrinter(ADevice,ADriver,APort,hDMode);
pDevMode := nil;
Res := DeviceCapabilities(ADevice,APort,DC_BINNAMES,PCHAR(@(bin)),pDevMode);
ergibt unter D5 diese Meldungen