Узнать запущена ли программа.

[krulik]

Как можно узнать запущена ли программа и как сделать главное окно активным. В моем случае мне необходимо отследить запущен ли Ворл. Если да то необходимо сделать его активным и добавить новый документ. Если нет то как запустить Ворд это я знаю. А вот как подконектится к запущенному :?
Оч надо помогите. Скоро защита диплома а пример на стадии разработки

[krulik]

Народ не напрягатесь. Вопрос отпал сам собой.

function IsObjectActive(ClassName: string): Boolean;  //проверяю запущен ли Ворд
var
   ClassID: TCLSID;
   Unknown: IUnknown;
begin
 try
   ClassID := ProgIDToClassID(ClassName);
   Result  := GetActiveObject(ClassID, nil, Unknown) = S_OK;
 except
   Result := False;
  end;
end;

procedure TForm1.btWordClick(Sender: TObject);
begin
 if IsObjectActive('Word.Application')
          then w:=GetActiveOleObject('Word.application')
          else w:=CreateOleObject('word.application');
 ........
end;

Функция взята с www.delphiworld.narod.ru