|
#1
|
|||
|
|||
Файлы
Помогите, пожалуйста, решить одну проблему!
Каким способом можно сделать так, тобы при нажатии на кнопку запускался файл, лежащий в одной директории с прогой. Я имею ввиду файл справки(htm), который поставляется вместе с прогой. Заранее спасибо. |
#2
|
|||
|
|||
Типа кнопку на клаве?
|
#3
|
||||
|
||||
Примерно так
Код:
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; |
#4
|
|||
|
|||
А этот код можно как-нибудь переписать и присвоить компоненту Button, расположенному на форме?
|
#5
|
||||
|
||||
Код:
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; |
#6
|
|||
|
|||
Большое спасибо
|
#7
|
||||
|
||||
Если открывать файл по кнопке, то KeyPreview := true делать не нужно...
Последний раз редактировалось Decoding, 30.10.2006 в 16:04. |
#8
|
|||
|
|||
Ок, понятно
|