Wenn man eine
Exception haben möchte, sollte man die Funktion etwas umdeklarieren:
procedure PrintDlgEx(var lppd: TPrintDlgEx); safecall;
Die Aufrufkonvention Safecall führt dazu, dass automatisch eine
Exception geworfen wird, wenn die Funktion einen Fehlercode zurückgibt. Der Rückgabewert wird vollständig wegabstrahiert.