Druckdialog Einstellungen ohne VCL

[MathiasSimmack]

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.