[ozornik]

Помогите, пожалуйста, решить одну проблему!
Каким способом можно сделать так, тобы при нажатии на кнопку запускался файл, лежащий в одной директории с прогой. Я имею ввиду файл справки(htm), который поставляется вместе с прогой.
Заранее спасибо.

[ART]

Типа кнопку на клаве?

[Decoding]

Примерно так

Код:

uses
  ..., ShellAPI;

procedure TForm1.FormCreate(Sender: TObject);
begin
   KeyPreview := true;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key = VK_F1 then
      ShellExecute( Handle, PChar( 'open' ), PChar( 'имя_файла.htm' ), '', '', SW_SHOWNORMAL );
end;

[ozornik]

А этот код можно как-нибудь переписать и присвоить компоненту Button, расположенному на форме?

[Decoding]

Код:

uses
  ..., ShellAPI;

procedure TForm1.FormCreate(Sender: TObject);
begin
   KeyPreview := true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   ShellExecute( Handle, PChar( 'open' ), PChar( 'имя_файла.htm' ), '', '', SW_SHOWNORMAL );
end;

[ozornik]

Большое спасибо

[Decoding]

Если открывать файл по кнопке, то KeyPreview := true делать не нужно...

[ozornik]

Ок, понятно