inno setup 完成安装后创建 Bat 文件

Question

效果很好！问题是，创建蝙蝠时，它不会创建创建它的路径。

这是我当前的代码：

[Code]
function CreateBatch(): boolean;
var
  fileName : string;
  lines : TArrayOfString;
begin
  Result := true;
  fileName := ExpandConstant('{pf}\{#MyAppName}\batch.bat');
  SetArrayLength(lines, 2);
  lines[0] := '{pf}\{#MyAppName}\soft21\launcher.exe" -g "{pf}\{#MyAppName}\soft\code\Turbo.rpx';
  lines[2] := 'exit';
  Result := SaveStringsToFile(filename,lines,true);
  exit;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if  CurStep=ssPostInstall then
    begin
         CreateBatch();
    end

我需要的是使用以下代码行在创建蝙蝠的当前位置创建蝙蝠。

它应该看起来像这样，例如：

“C:\Program Files\soft21\launcher.exe”-g“C:\Program Files\soft12\code\Turbo.rpx”

Answer 1

你应该ExpandConstant重视lines[0]。

请记住正确的报价。

如果您不想在每次安装应用程序时附加批处理，请不要使用truefor SaveStringsToFile。

[Code]
function CreateBatch(): boolean;
var
  fileName : string;
  lines : TArrayOfString;
begin
    //test for directory
    if not DirExists(ExpandConstant('{userdesktop}\{#MyAppName}')) then begin
        CreateDir(ExpandConstant('{userdesktop}\{#MyAppName}'));
    end;
    //test for dir end
  fileName := ExpandConstant('{userdesktop}\{#MyAppName}\batch.bat');
  SetArrayLength(lines, 2);
  lines[0] := ExpandConstant('"{pf}\{#MyAppName}\soft21\launcher.exe" -g "{pf}\{#MyAppName}\soft\code\Turbo.rpx"');
  lines[1] := 'exit';
  Result := SaveStringsToFile(filename,lines,true);
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if  CurStep=ssPostInstall then
    begin
         CreateBatch();
    end
end;