支持加载程序

时间:2014-08-25 23:00:29

标签: inno-setup

我需要一些帮助loadinf function

const
  Section = 'Setup';

  procedure LoadInf(const FileName: String; var WantToSuppressMsgBoxes: Boolean);
var
  S: String;
begin
  //saved infs
  InitLang := GetIniString(Section, 'Lang', InitLang, FileName);
  InitDir := GetIniString(Section, 'Dir', InitDir, FileName);
  InitProgramGroup := GetIniString(Section, 'Group', InitProgramGroup, FileName);
  InitNoIcons := GetIniBool(Section, 'NoIcons', InitNoIcons, FileName);
  InitSetupType := GetIniString(Section, 'SetupType', InitSetupType, FileName);
  S := GetIniString(Section, 'Components', '$', FileName);
  if S <> '$' then begin
    InitComponentsSpecified := True;
    SetStringsFromCommaString(InitComponents, SlashesToBackslashes(S));
  end;
  S := GetIniString(Section, 'Tasks', '$', FileName);
  if S <> '$' then begin
    InitDeselectAllTasks := True;
    SetStringsFromCommaString(InitTasks, SlashesToBackslashes(S));
  end; 
end;

我遇到了问题 SetStringsFromCommaString(InitComponents, SlashesToBackslashes(S));

有没有办法在inno中执行此功能?

可以找到SetStringsFromCommaString here,但无法进行编译

最诚挚的问候,是BeGiN。

0 个答案:

没有答案