Узнать, запущена ли программа из пакета MS OfficeDelphi , Технологии , OLE Automation MSOfficeУзнать, запущена ли программа из пакета MS Office
Оформил: DeeCo uses ComObj, ActiveX; function IsObjectActive(ClassName: string): Boolean; var ClassID: TCLSID; Unknown: IUnknown; begin try ClassID := ProgIDToClassID(ClassName); Result := GetActiveObject(ClassID, nil, Unknown) = S_OK; except // raise; Result := False; end; end; procedure TForm1.Button1Click(Sender: TObject); begin if IsObjectActive('Word.Application') then ShowMessage('Word is running !'); if IsObjectActive('Excel.Application') then ShowMessage('Excel is running !'); if IsObjectActive('Outlook.Application') then ShowMessage('Outlook is running !'); if IsObjectActive('Access.Application') then ShowMessage('Access is running !'); if IsObjectActive('Powerpoint.Application') then ShowMessage('Powerpoint is running !'); end; Статья Узнать, запущена ли программа из пакета MS Office раздела Технологии OLE Automation MSOffice может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: OLE Automation MSOffice ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |