Delphi 如何使用程序标识符检查程序是否已安装

本文整理自网络，侵删。

 

如果安装了给定程序ID的程序并在系统中注册，则以下代码将返回True；否则，则返回False。

uses  System.Win.ComObj,ActiveX;

 {
 Access.Application
Excel.Application
FrontPage.Application
Outlook.Application
PowerPoint.Application
MSProject.Application
Word.Application
//delphitop.com
}

function ProgIDInstalled(const PID: string): Boolean;
var
  WPID: WideString;  // PID as wide string
  Dummy: TGUID;      // unused out value from CLSIDFromProgID function
begin
  WPID := PID;
  Result := ActiveX.Succeeded(ActiveX.CLSIDFromProgID(PWideChar(WPID), Dummy)
  );
end;

function IsIEInstalled: Boolean;
begin
  Result := ProgIDInstalled('FrontPage.Application');
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
if IsIEInstalled then
begin
  memo1.Lines.Add('FrontPage已安装');
  end
  else
  begin
   memo1.Lines.Add('FrontPage没安装');
end;
end;
 

相关阅读 >>

Delphi 取整算法集合

Delphi system 提供的编译期函数

Delphi 主线程等待子线程的安全退出

Delphi遍历所有控件

Delphi 10中实现android的广播接收器

Delphi 实现检测线程类tthread是否结束

Delphi的枚举类型

Delphi 检测进程是否存在函数

Delphi改变文件夹图标

Delphi idhttp上传图给asp完美解决

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 如何使用程序标识符检查程序是否已安装