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 调用外部 dll 中的函数(2. 晚绑定)

Delphi 下载并显示网上的图片

Delphi apihook createprocess

Delphi 在窗口作图的源代码

Delphi之autorun(复制自身+循环扫描)

Delphi 随机函数单元urandomutils

Delphi共享软件防破解的实用招法

Delphi使用api实现模拟按键

Delphi 对zlib单元进行再封装

Delphi 利用sendinput模拟鼠标键盘

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

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