在安装过程中,我记录来自用户的输入,例如正在创建的Windows服务的名称。卸载此服务时,我需要知道用户最初输入的服务名称。
在卸载过程中获取服务名称的最佳方法是什么?
最适合您的要求似乎是处理 RegisterPreviousData
事件方法并从内部调用 SetPreviousData
函数,您可以在其中将字符串值存储在自定义键下。要恢复以前存储的数据,您可以调用GetPreviousData
函数。
下面是一个简单的用法示例:
[Code]
var
UserPage: TInputQueryWizardPage;
procedure InitializeWizard;
begin
UserPage := CreateInputQueryPage(wpWelcome, 'Caption', 'Description', '');
UserPage.Add('Service name:', False);
end;
procedure RegisterPreviousData(PreviousDataKey: Integer);
begin
SetPreviousData(PreviousDataKey, 'ServiceName', UserPage.Values[0]);
end;
function InitializeUninstall: Boolean;
var
ServiceName: string;
begin
ServiceName := GetPreviousData('ServiceName', '');
if ServiceName <> '' then
MsgBox('The value entered before: ' + ServiceName, mbInformation, MB_OK);
end;