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]