Inno Setup打包技巧——在非首次安装时让用户选择卸载还是重装

效果图：

---

代码如下： 

function InitializeSetup(): Boolean;
var
   Version: string;      
begin
   Result:= TRUE;
   Flag:='install';
  //read the version
  if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\xxx\xxxx\config',
     'Version', Version) then
  begin
    // Successfully read the value
    case TaskDialogMsgBox('Reinstall or Remove AndroidDM',
                        'Select the operation you wish to perform',   
                        mbInformation,
                        MB_YESNOCANCEL, ['Reinstall'#13#10'Reinstall xxx Server, it will update all data.', 'Remove'#13#10'Remove xxx Server from your computer.'],
                        IDYES) of
      IDYES: 
      begin
        Log('[Debug]Reinstall');
        if RegQueryStringValue(HKEY_LOC