определить офис Delphi

[Vali_T]

помогите плз,
как программно определить какой офис установлен на компе Microsoft Office или OpenOffice?

[Stilet]

Например так:

var o:oleVariant;
begin
  o:=GetActiveOleObject('Word.Application');
 caption:=o.Version;
end;

При этом Ворд должен быть запущен.
Но можно заменить на CreateOleObject а потом Ворд закрывать методом quit.

[Vali_T]

Stilet не совсем поняла (извиняюсь),
т.е. программа сначала определяет какой офис, потом непосредственно файл открывает в соответствующей форме либо open (form) либо microsoft (oleContainer), при этом никаких вордов не должно быть открыто

var oleVariant;
begin
o:=GetActiveOleObject('Word.Applica tion');
caption:=o.Version;
end;
это как процедуру описывать или функцию?

[Stilet]

Тебе нужна версия оффиса? 2003 или 2007 или еще какой либо?
Так вот я знаю один способ - запустить СОМ-сервер Ворда и спросить у него версию.

[Vali_T]

procedure TForm1.Button5Click(Sender: TObject); // word
//var oleVariant;
begin
//o:=CreateOleObject('Word.Applicatio n');
//caption:=o.Version;
if OFFICE=1 then Button1Click(Self); // если опен то ворд в форме open
if OFFICE=2 then Button3Click(Self); // елси майкрософт то форма microsoft olecontainer
end;

программа должна работать как с майкрософт так и опеном, взависимости от того который установлена на компе

[Stilet]

Так стоп. т.е заранее ты не знаешь с чем работать?
Тогда выкладывай задачу подробнее ибо может возникнуть ситуация когда на машине стоят несколько вордов разной версии и несколько ОпенОффисов рядом.

[mutabor]

ибо может возникнуть ситуация когда на машине стоят несколько вордов разной версии и несколько ОпенОффисов рядом

Во-во, тоже хотел сказать. Может просто определять к-рый по умолчанию является для документов .doc?