如果尝试选择组件或选择完全安装,我想重命名文件。但是有一些问题。
当我运行它时,出现错误:
Line 55;
Column 5;
Identifier expected;
这将是procedure CurStepChanged(CurStep: TSetupStep);
下面的行。
[Code]
function GetFileName(const AFileName: string): string;
begin
Result := ExpandConstant('{app}\' + AFileName);
end;
procedure AfterInstallProc;
begin
If IsComponentSelected('update') or IsComponentSelected('full') then
begin
procedure CurStepChanged(CurStep: TSetupStep);
begin
if (CurStep = ssInstall) then
begin
if not FileExists(GetFileName('update.old.dat')) then
RenameFile(GetFileName('update.dat'), GetFileName('update.old.dat'));
end;
end;
else
result := true;
end;
end;
请注意,我是通过在此处搜索问题来获得这些代码的。我不确定我是否执行正确。解决了一些错误,例如选择组件,但是现在看来重命名文件的过程是错误的?
改写这个:
procedure CurStepChanged(CurStep: TSetupStep);
begin
if (CurStep = ssInstall) and (IsComponentSelected('full') or
IsComponentSelected('update')) then
begin
if not FileExists(GetFileName('update.old.dat')) then
RenameFile(GetFileName('update.dat'), GetFileName('update.old.dat'));
end;
end;
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句