как в делфи объявить, чтобы html файл открывался в Word

@Bruno · Регистрация: 20.03.2012

Author24 — интернет-сервис помощи студентам

Delphi

procedure TForm1.LISTBOXClick(Sender: TObject);
begin
 case LISTBOX.ItemIndex of
  0 : begin
  WEB.Navigate(GetCurrentDir+'/Files/index1.htm'); 
  ShellExecute (Form2.Handle, nil, 'F:\Справочник Чётких Пацанов\Files\index1.htm', nil, nil, SW_RESTORE);
  end;

в этом случае выбранный элемент из Listbox открывается в браузере.
если поменять в свойствах Windows, чтобы HTM-страницы открывались в Word по умолчанию, то и через Делфи они открываются через Ворд.
Так вот, как сделать так, чтобы в системе ничего не надо было менять, т.е. чтобы HTM страницы открывались сразу через Ворд, независимо от того, что выбрано в Windows

Надеюсь, обьяснил понятно :3

@alexmcoder · 23.05.2012, 15:08

в Uses добавить ShellApi
как пример:

Delphi

begin
ShellExecute(0,LPCTSTR('open'),LPCTSTR('winword'),
LPCTSTR('C:\index.html'), LPCTSTR('C:\'),SW_SHOWNORMAL);
end;

@Bruno · 23.05.2012, 15:20 **[ТС]**

Спасибо большое, выручил

@alexmcoder · 23.05.2012, 15:28

пробывал на своем файле, поэтому так написал, для тебя будет, так

Delphi

begin
ShellExecute(0,LPCTSTR('open'),LPCTSTR('winword'),
LPCTSTR('F:\Справочник Чётких Пацанов\Files\index1.htm'), LPCTSTR('C:\'),SW_SHOWNORMAL);
end;

@Bruno 0 / 0 / 0 Регистрация: 20.03.2012 Сообщений: 6
	23.05.2012, 15:20 [ТС]	3
	Спасибо большое, выручил 0

	23.05.2012, 15:28