Question

我的设置中有自定义页面，要求用户输入标识符。我的要求是，如果用户输入标识符，则应更改应用名称以包含标识符。

我的设置部分看起来像

#define AppName 'SMARTsoft Name and Address Import'

[Setup]
AppName={#AppName}

自定义页面创建为： -

function CreateDataPage(PreviousPageId: Integer): Integer;
var
    Page: TWizardPage;
begin
    Page :=CreateCustomPage(PreviousPageId,'Additional Identifier for the Interface',
    'Provide any extra information/identifier you will be using');

    FirstLabel :=TLabel.Create(Page);
    with FirstLabel do
        begin
            Parent :=Page.Surface;
            Caption :='Identifier';
            Left :=ScaleX(56);
            Top :=ScaleY(36);
            Width :=ScaleX(70);
            Height :=ScaleY(17);
        end;   

    txtIndentifier :=TEdit.Create(Page);
    with txtIndentifier do
    begin
        Parent :=Page.Surface;
        Left :=ScaleX(136);
        Top :=ScaleY(36);
        Width :=ScaleX(51);
        Height :=ScaleY(25);
        TabOrder :=3;
        Text :='';
        MaxLength := 5;
    end;

    with Page do
    begin
        OnNextButtonClick :=@Check;
    end;

    Result :=Page.ID;

end;

现在我想检查User是否在控件txtIndentifier中给出了值，然后更改了AppName。我在Next Button上添加了一个功能点击： -

function Check(Page: TWizardPage): Boolean;
begin
    Result :=True;
    MsgBox('In Authentication', mbError, MB_OK);          
    if txtIndentifier.Text <> ''  then
      begin
        ***<<here I want to update the App Name>>***
        ***something like - {#AppName} := ExpandConstant('{#AppName}') + ' (' + txtIndentifier.Text + ')';***

      end  
end;

请帮忙。

由于

根据Inno Setup中的用户输入更改AppName

0 个答案: