Delphi 根据注册表信息判断程序是否安装

本文整理自网络，侵删。

 
function IsAppmethodInstalled( SVers: String ): Boolean;
var
  Vers: Integer;
  i: Integer;
  DefApp: String;
begin
  // check if Delphi is installed
  // 50 = Delphi5, 60 = Delphi 6 etc,
  // can check for ANY of multiple versions of delphi if separated by spaces
  i := Pos(' ', SVers);
  if i > 0 then
  begin
    result := IsAppmethodInstalled( Copy(SVers, i + 1, Length(SVers)) );
    if result then Exit;
    SVers := Copy(SVers, 1, i-1);
  end;
  Vers := StrToInt(SVers);
  case Vers of
    200: result := RegQueryStringValue( HKCU, 'SOFTWARE\Embarcadero\BDS\14.0\Personalities', '', DefApp ); // XE6/Appmethod 1.14
  else
    result := False;
  end;
  if result then
  begin
    result := DefApp = 'Appmethod';
  end;
end;
 

相关阅读 >>

Delphi读取radiogroup选中按钮的string文本

Delphi sql server 数据库转换为 access 数据库

Delphi 系统appdata local 路径

Delphi 简单播放mp3

Delphi将dbgrid数据导出到excel表中

Delphi comobj调用wmplayer播放音乐

winapi 字符及字符串函数(1): charlower - 字符或字符串转小写

Delphi 如何判断clipboard剪切板中的内容的类型

Delphi idhttp的基本用法

Delphi 读取内存

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

转载请注明出处：木庄网络博客 » Delphi 根据注册表信息判断程序是否安装