Форум по Delphi программированию - Показать сообщение отдельно - Как прописать путь к doc-файлу?

Kailon · #2 26.05.2011, 13:45

Чтобы получить путь запуска программы я пользуюсь функцией 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 делаю глобальной...