[varvar123]

Уважаемые программисты, подскажите пожалуйста. Мне необходимо, чтобы при нажатии кнопки открывался Word_овский файл в режиме "только для чтения". Для этого я прописала:

Код:

procedure TForm1.N5Click(Sender: TObject);
var
WordApp: OleVariant;
begin
WordApp := CreateOLEObject('Word.Application');
WordApp.Documents.Add('C:\Users\1\Desktop\Project1\1Doc\Rab_prog.doc',0,true);
WordApp.Visible := True;
WordApp.DisplayAlerts:=False;
end;

Админ: Пользуемся тегами для оформления кода.

Это работает, но есть проблема: в дальнейшем необходимо будет создать загрузочный диск и, само собой, придётся каким-то образом менять все пути к файлам.
Вопрос: Возможно ли как-то прописать только имена doc-файлов?

[Kailon]

Чтобы получить путь запуска программы я пользуюсь функцией GetDir

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  MyPath: String;
  WordApp: OleVariant;
begin
  GetDir(0, MyPath);
  WordApp := CreateOLEObject('Word.Application');
  WordApp.Documents.Add(MyPath + '\Rab_prog.doc',0,true);
  WordApp.Visible := True;
  WordApp.DisplayAlerts:=False;
end;

Переменную MyPath делаю глобальной...

[varvar123]

Всё работает! Ура!!! Большое спасибо.

[Assistant]

ну не знаю прям, всегда делал так, без глобальных переменных и т.д.:

Код:

......
  WordApp.Documents.Add(ExtractFilePath(Application.ExeName) + 'Rab_prog.doc',0,true);
......