代码之家 › 专栏 › 技术社区 › Wernfried Domscheit

在Inno设置中提示用户快捷方式中要使用的文件

pascalscript inno-setup user-interface

Wernfried Domscheit · 技术社区 · 7 年前

"C:\Program Files (x86)\MapInfo\Professional\MapInfow.exe" "{app}\DPImap.MBX"

MapInfow.exe

; Default value for silent installion
#define MapInfoDefault AddBackslash(GetEnv("ProgramFiles(x86)")) + "MapInfo\Professional\MapInfow.exe"

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked

[Icons]
Name: {group}\DPImap; Filename: {code:MapInfoExecutable} {app}\DPImap.mbx
Name: {userdesktop}\DPImap; Filename: {code:MapInfoExecutable} {app}\DPImap.mbx; Tasks: desktopicon

[Code]    

function MapInfoExecutable(Param: String): String;
var
    FileName: string;
begin
    FileName := '';
    if GetOpenFileName('Locate your MapInfo Application', FileName, ExpandConstant('{pf32}'), 'Executable (*.exe)|*.exe', 'exe') then
        Result := FileName
    else
        { Return default #MapInfoDefault if user does not provide any file }
        Result := ExpandConstant('{#MapInfoDefault}');
end;

如何提供正确的用户对话框?

1 回复 | 直到 7 年前

Martin Prikryl 7 年前

应该是:

[Icons]
Name: {group}\DPImap; Filename: "{code:MapInfoExecutable}"; \
    Parameters: """{app}\DPImap.mbx"""

var
  FileName: string;

function MapInfoExecutable(Param: String): String;
begin
  if FileName = '' then
  begin
    if not GetOpenFileName(
        'Locate your MapInfo Application', FileName, ExpandConstant('{pf32}'),
        'Executable (*.exe)|*.exe', 'exe') then
    begin
      { Return default #MapInfoDefault if user does not provide any file }
      FileName := '{#MapInfoDefault}';
    end;
  end;
  Result := FileName;
end;

Inno Setup Prompt for external file location

MapInfoExecutable

注意我已经移除了 ExpandConstant '{#MapInfoDefault}' -这是胡说八道。参见 Evaluate preprocessor macro on run time in Inno Setup Pascal Script

推荐文章

Seg · _tkinter。TclError|TCL安装不正确。FreeSimpleGUI中出错

6 月前

FranticFronk · Tkinter单选按钮在已选择时执行命令

7 月前

Kumkuatte · 如何将UI元素对齐到Unity中的左侧位置

11 月前

Calax · GUI不显示所有组件(C++)

1 年前

trassert · python flet容器

1 年前

Shady Abdulmunim · 喷气背包组合中的扫掠渐变圆形进度条

1 年前

Jason Parmar · 伪OSS错误:校验和输入流计算器不支持标记

1 年前

Kdwk · 为什么添加这个Flutter小部件会使应用程序对鼠标点击没有响应?

1 年前

zadisk8 · 带有Q拆分器和多级选项卡的PyQt5

1 年前

Patrick Visi · Zitadel日常创建服务用户

1 年前