PDF als Hilfe

[DeddyH]

Ich würde es ungefähr so versuchen (wenn es nicht der AdobeReader ist, sollte das zugeordnete Programm zumindest parameter-kompatibel sein):

Delphi-Quellcode:

uses ShellAPI;

function OpenPDFAtPage(const PDFFile: string; PageNumber: Cardinal; out ErrorCode: Cardinal): Boolean;
const
  MAX_SHELL_ERROR = 32;
var
  ReaderProg: string;
  Params: string;
begin
  Result := false;
  SetLength(ReaderProg, MAX_PATH);
  ErrorCode := FindExecutable(PChar(PDFFile), nil, PChar(ReaderProg));
  if ErrorCode > MAX_SHELL_ERROR then
    begin
      SetLength(ReaderProg, StrLen(PChar(ReaderProg)));
      Params := Format('/A "page=%d" "%s"', [PageNumber, PDFFile]);
      ErrorCode := ShellExecute(0, 'open', PChar(ReaderProg), PChar(Params), nil,
        SW_SHOW);
      if ErrorCode > MAX_SHELL_ERROR then
        begin
          ErrorCode := 0;
          Result := true;
        end;
    end;
end;