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;

推荐分享