Standart Drucker & Schachtauswahl

[Almex32657]

Tag Leute,
ich habe ein riesen Problem, meine Druckerschächte, ich habe mir die letzten
2 Tage darum einem Kopf gemacht komme aber nicht weiter.
Also ich habe W2k und arbeite mit dem Delphi 5 Enterprise.

Ich habe mir schon mehrere Artikel im Netz angeschaut, um das vorweg zu nehmen wie diesen
hier z.B:
http://www.delphipraxis.net/internal...hlight=printer

Aber das hilft mir noch nicht weiter. Denn Standartdrucker zu setzen ist nicht das Problem aber wie setze ich den Standartschacht? Ich habe es erst so versucht aber es funktioniert nicht, aber ich finde keinen Fehler...

Delphi-Quellcode:

Procedure SetzeSchacht(Schacht : integer);
var
  ADevice, ADriver, APort: array [0..255] of Char;
  ADeviceMode: THandle;
  DevMode: PDeviceMode;
begin
  Printer.GetPrinter( ADevice, ADriver, APort, ADeviceMode );
  if ADeviceMode <> 0 then GlobalUnlock( ADeviceMode );
  DevMode := GlobalLock( ADeviceMode );
  DevMode.dmFields := DevMode.dmFields or DM_DEFAULTSOURCE;
  DevMode.dmDefaultSource := Schacht;
  Printer.SetPrinter( ADevice, ADriver, APort, ADeviceMode );
  GlobalUnlock( ADeviceMode );
  DevMode.dmDefaultSource := Schacht;

end;

Wenn ich den Druckerschat dann wie folgt auslese, zeigt er zwar das richtige
an aber druckt aus dem falschen Schacht.

Delphi-Quellcode:

function LeseAktuellenSchacht: integer;
var
  hDevMode: THandle;
  Device,Driver,Port: array [0..255] of Char;
  bin: integer;
  DevMode: PDevMode;

begin
  //Standartdrucker;
  Printer.GetPrinter(Device,Driver,Port,hDevMode);
  bin := -1;
  if hDevMode <> 0 then begin

    DevMode := GlobalLock (hDevMode);
    bin := DevMode^.DMDEFAULTSOURCE;
    GlobalUnlock (hDevMode);
  end;
  result := bin;
end;

Wer kann mir weiter helfen?

PS: Danke schon mal im voraus....

ALMEX

[edit=sakura] Das ganze ROT ausgewaschen Mfg, sakura[/edit]