open a pdf file to a specific page of the document

I need to open a PDF file at a specific page numbers, before version 8.1.1 of Adobe reader I used the parameters part of ShellExecute to set the page number, this no longer works.

I can open the document using:

filename := 'c:\manual.pdf';
ShellExecute(hInstance, nil, PChar(filename ), nil, nil, SW_SHOW);

Can anyone help with setting the page number?
Thanks
Link-HRSystemsAsked:
Who is Participating?
 
Eddie ShipmanAll-around developerCommented:
This works for me using 8.1:


procedure TForm1.Button1Click(Sender: TObject);
var
  sei: TShellExecuteInfo;
begin
  ZeroMemory(@sei, sizeof(sei));
  with sei do
  begin
    cbSize := SizeOf(sei);
    fMask  := SEE_MASK_NOCLOSEPROCESS;
    Wnd   := Form1.Handle;
    lpVerb := 'open';
    lpFile := PChar('"C:\Program Files\Adobe\Reader 8.0\Reader\acrord32.exe"');
    lpParameters := PChar('/A "page=12" "c:\guide_to_obtain_sponsors.pdf"');
    lpDirectory := PChar('c:\');
    nShow := SW_SHOWNORMAL;
  end;
  ShellExecuteEX(@sei);
end;

Open in new window

0
 
ziolkoCommented:
this is not using ShellExecute but works for me:


procedure TForm1.Button1Click(Sender: TObject);
var aread: TAcroPDF;
begin
  FReader := TAcroPDF.Create(nil);
  FReader.setShowToolbar(False);
  FReader.SetBounds(0, 0, Width - 30, Height - 30);
  FReader.ParentWindow := Self.Handle;
  FReader.LoadFile('C:\Documents and Settings\All Users\Documenten\RAD Studio\5.0\Demos\IntraWeb\Win32\Features\Downloads\multicast.pdf');
  FReader.setCurrentPage(7);
end;


TAcroPDF is defined in AcroPDFLib_TLB which can be generated from AcroPDF.dll

ziolko.
0
 
Eddie ShipmanAll-around developerCommented:
If this is a Delphi related question, you should select the Delphi zone as the primary zone so the points
will go there.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.