D2009 und PrinterSetupDialog

[KEK]

Zitat von S - tefano:

Woah, nicht zu fassen, es funktioniert!
Superduper, vielen Dank für den Tipp. Ohne dieses Interna-Wissen Deinerseits hätte ich da ja noch ewig rumraten können

Hallo hatte nich viel Zeit hab's nur mal überflogen ---
also soll der Abschnitt in GetPrinter

Delphi-Quellcode:

try
      Offset := PChar(PByte(DevNames) + SizeOf(TDevnames));
      with DevNames^ do
      begin
        wDriverOffset := Offset - PChar(DevNames);
        Offset := StrECopy(Offset, Driver) + 1;
        wDeviceOffset := Offset - PChar(DevNames);
        Offset := StrECopy(Offset, Device) + 1;
        wOutputOffset := Offset - PChar(DevNames);;
        StrCopy(Offset, Port);
      end;
    finally
      GlobalUnlock(DeviceNames);
    end;

nun so aussehen ?

Delphi-Quellcode:

 try
      Offset := PChar(PByte(DevNames) + SizeOf(TDevnames));
      with DevNames^ do
      begin
        wDriverOffset :=  Longint(Offset) - Longint(DevNames);   ????
        Offset := StrECopy(Offset, Driver) + 1;
        wDeviceOffset :=  Longint(Offset) - Longint(DevNames);   ????
        Offset := StrECopy(Offset, Device) + 1;
        wOutputOffset :=  Longint(Offset) - Longint(DevNames);   ????
        StrCopy(Offset, Port);
      end;
    finally
      GlobalUnlock(DeviceNames);
    end;

Wenn nicht könntes mir deine fertige Unit mal ranhängen ???
Wär nett -- hab am WE keine Zeit und könnte am Momtag noch die Änderungen wegschicken.

Danke Kurti

[edit=mkinzler]Delphi-Tags eingefügt Mfg, mkinzler[/edit]