【1】注册表：安装时写入

#define MyAppVersion "1.0.0.111"

#define MyRegInstall "Software\产品名称\发布者\install"
#define MyRegInstallVersion "installVersion"

[Registry]
Root:HKCU;Subkey: "{#MyRegInstall }" ; ValueType:string; ValueName:"{#MyRegInstallVersion }"; ValueData:"{#MyAppVersion}";Flags:uninsdeletekeyifempty

【2】注册表：卸载时删除

[Registry]

Root:HKCU;Subkey: "{#MyRegInstall }" ; Flags:uninsdeletekey

【3】注册表：安装时读取

[Code]

function GetInstallString(): String;
var
  sInstallVersion: String;
begin
  sInstallVersion:= '';
  if RegValueExists(HKEY_CURRENT_USER, '{#MyRegInstall} ', '{#MyRegInstallVersion}') then
  begin
    RegQueryStringValue(HKEY_CURRENT_USER, '{#MyRegInstall} ', '{#MyRegInstallVersion}', sInstallVersion)
  end
  Result := sInstallVersion;
end;

注：在Pascal语言中，函数的返回值通过Result 变量来传递。Result 是一个特殊的变量，用于存放函数的返回值。在函数结束前，可以给Result 赋值，然后函数会返回这个值。