DefaultInstallDir=D:\Games
Code:
WizardForm.DirEdit.Text := RemoveBackslashUnlessRoot(ExpandConstant(Trim(GetValStrEx('InstallOptions', 'DefaultInstallDir', '')))) + GetAppName('')
Code:
WizardForm.DirEdit.Text := RemoveBackslashUnlessRoot(ExpandConstant(Trim(GetValStrEx('InstallOptions', 'DefaultInstallDir', '')))) + '\' + GetAppName('')