我需要在注册表中写入我的应用程序安装时的当前日期.为此我已经在[code]部分创建了函数并试图从[registry]部分调用它,但它不起作用.如何从[registry]部分调用我的函数来获取它返回的值?
[Registry]
Root: HKLM; Subkey: SOFTWARE\MyAppName; ValueType: string; ValueName: date; ValueData: **{code:DateTime}**; Flags: createvalueifdoesntexist; Tasks: ; Languages:
[Code]
function DateTime() : String;
begin
result := GetDateTimeString('dd/mm/yyyy hh:nn:ss', '-', ':');
end;
Run Code Online (Sandbox Code Playgroud)
您必须使用字符串参数声明该函数
function DateTime(param: string) : String;
Run Code Online (Sandbox Code Playgroud)
即使它没有在功能内部使用.
该{代码:调用允许一个字符串参数.如果省略它(就像你一样),则使用空字符串.