inno setup 更改安装路径学习

因为安装的时候，常常需要修改安装文件路径，因此需要这个功能

VAR

button_browse : HWND;

界面：

//浏览按钮
  button_browse := BtnCreate(WizardForm.Handle, 506, 420, 75, 24, ExpandConstant('{tmp}\button_browse.png'), 0, FALSE);
  BtnSetEvent(button_browse, ID_BUTTON_ON_CLICK_EVENT, WrapBtnCallback(@button_browse_on_click, 1));

响应按钮事件：

//主界面浏览按钮按下时执行的脚本
PROCEDURE button_browse_on_click(hBtn : HWND);
BEGIN
  WizardForm.DirBrowseButton.OnClick(WizardForm);
  edit_target_path.Text := WizardForm.DirEdit.Text;
END;

注意：在使用浏览按钮的时候，需要用到【路径输入框】，会将选择的路径填到输入框之中

效果图如下所示：