【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 赋值,然后函数会返回这个值。