Sorry, Luckie, kann ja auch nicht gehen. Rein logisch, meine ich. Ich versuche ja den Inhalt eines Records auf eine Cardinal-Variable zu übertragen.
Als Anregung hätte ich jetzt noch das hier
Delphi-Quellcode:
var
hdm : THandle;
pdm : PDevMode;
begin
hdm := GlobalAlloc(GMEM_MOVEABLE or GMEM_ZEROINIT,
sizeof(TDevMode));
pdm := GlobalLock(hdm);
pdm^.dmDeviceName := 'Druckername';
pdm^.dmSize := sizeof(TDevMode);
pdm^.dmOrientation := DMORIENT_LANDSCAPE;
{ ... }
pd.hDevMode := hdm;
{ ... }
GlobalFree(hdm);
end;
Er bringt zwar den Dialog zum Vorschein (wenn der Druckername stimmt!), aber stellt auch nicht auf Querformat um. Entweder habe ich was vergessen, oder so funktioniert´s auch nicht.
