1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

function TfrmMain.GetPDF_Producer2: widestring;
var
  AcrobatApp: TAcroApp;
  AcrobatPDDoc: TAcroPDDoc;

begin
  result := '';

  AcrobatApp := TAcroApp.Create(self);
  if assigned(AcrobatApp) then
  begin
    AcrobatApp.hide;

    AcrobatPDDoc := TAcroPDDoc.Create(self);
    if assigned(AcrobatPDDoc) then
    begin
      if AcrobatPDDoc.Open(fFilename_intern) then
      begin
        result := AcrobatPDDoc.GetInfo('Producer');
      end;
      AcrobatPDDoc.Close;
      AcrobatPDDoc.Free;
    end;

    AcrobatApp.CloseAllDocs;
    AcrobatApp.Exit;
    AcrobatApp.Free;
  end;
end;