word

← →
Чувак (2006-05-21 22:50) [0]

как мне сделать так что при выборе любого вордовского(*.doc) файла запустился этот файл с ворда?
как использовать word application?

← →
Loginov Dmitry © (2006-05-21 23:39) [1]

Что-то в этом духе:

procedure TForm1.Button1Click(Sender: TObject); var FileName: OleVariant; begin FileName := "d:\docfile.doc"; WordApplication1.Connect; WordApplication1.Documents.Open(FileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam); WordDocument1.ConnectTo(WordApplication1.ActiveDocument); WordApplication1.Visible := True; end;

Это раннее связывание (которое к тому же реализовано в виде классов). При позднем связывании будет немного по-другому:
Word := CreateOleObject("Word.Application");

Ну и так далее.

← →
DevilDevil © (2006-05-22 00:50) [2]

Может не в тему, но так ещё можно:
WinExec("Explorer.exe D:\DocFile.doc");

← →
balepa © (2006-05-22 10:39) [3]

> DevilDevil © (22.05.06 00:50) [2]

Winexec("Explorer.exe D:\Doc.doc",SW_NORMAL)

← →
Ega23 © (2006-05-22 11:08) [4]

> Может не в тему, но так ещё можно:
> WinExec("Explorer.exe D:\DocFile.doc");

Зачем так-то? ShellExecute для этого есть...

Советую почитать статью на этом сайте:
http://www.delphimaster.ru/articles/dbtoword/index.html
Глущенко Юрий aka YurikGL
Экспорт из БД в Word.

Грамотно описаны принцыпы работы с WordApplication и несколько интересных приёмов работы с Word, даже есть исходники примера программы.

Определение приложения для файла и его открытие
FindExecutable(pFile, nil, pApp); Winexec(pApp pFile,SW_NORMAL)

word Найти похожие ветки