Pascal Scripting: SetPreviousData

Прототип

function SetPreviousData(const PreviousDataKey: Integer; const ValueName, ValueData: String): Boolean;

Описание

Устанавливает значение, которое позже может быть восстановлено при помощи функции GetPreviousData. Используйте вызов SetPreviousData в событии функции RegisterPreviousData для каждого параметра.

Пример

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;