title: Alternative for ShellExecuteW in 64-bit Windows 7, 8
body: <p>I create application for 32-bit and 64-bit platforms. </p>
  
  <pre><code>var
  Form1: TForm1;
  FilePath : string;
  
  implementation
  
  uses ShellAPI;
  
  procedure TForm1.FormCreate(Sender: TObject);
  begin
    FilePath := ExtractFilePath(Application.ExeName);
  .........................
  
  procedure TForm1.MenuItem4Click(Sender: TObject);
  var
    path_to_handbook : WideString;
  begin
    case language of
      $0019 : path_to_handbook := FilePath+'help\handbook-ru.pdf'; // Russian
      $0009 : path_to_handbook := FilePath+'help\handbook-en.pdf'; // English
    end;
    ShellExecuteW(Handle, nil, PWideChar(path_to_handbook), nil, nil, SW_SHOWNORMAL);
  end;
  </code></pre>
  
  <p>Function ShellExecuteW in 64-bit Windows 7 or 8 not work!</p>
  
  <p>How can I solve it problem?</p>
  
  <p>Thank you very much!</p>