Wie ändere ch die PDF Infos bei sdPDF ?

[thomas2009]

Ging auch nicht

Delphi-Quellcode:

var
  H: THandle;
  BeginDocF: function(FileName: PChar): Integer; stdcall;
  EndDocF: function: Integer; stdcall;
  SetDocumentInfoF: function(what: Integer; Value: PChar): Integer; stdcall;
begin

  H := LoadLibrary('dspdf.dll');
  if H > 0 then
  begin

    @SetDocumentInfoF := GetProcAddress(H, 'SetDocumentInfoF');
    BeginDocF('');
    SetDocumentInfoF(4,'Blabla');
    EndDocF();
if SavePDFDialog.Execute then begin
PrintPreview.SaveAsPDF(SavePDFDialog.FileName); end;
end;
   FreeLibrary(H);
  end;