var
flag: boolean; //升级标志{$R *.res}begin
falg := false; //自动升级
if FileAge('\\abc\a.exe') > FileAge(ParamStr(0)) then
begin
if application.MessageBox('是否升级?', 'Upgrade Time!', 1) = 1 then
begin
falg := true;
... 升级过程略...
end;
end; application.Initialize;
try
begin
if flag then
application.MessageBox('成功升级.', '提示', 1)
else
application.MessageBox('没有升级.', '提示', 1);
frmLogin := TfrmLogin.Create(application);
frmLogin.ShowModal;
application.Run;
end
except
...
end;end.为什么红色部分不执行?
begin
if application.MessageBox('是否升级?', 'Upgrade Time!', MB_YESNO + MB_ICONQUESTION
1) =1MB_YES thenbegin
falg := true;
... 升级过程略...
end;
end;
-------
下面至少会执行 else 部分的代码 if flag then
application.MessageBox('成功升级.', '提示', 1)
else
application.MessageBox('没有升级.', '提示', 1);f8 单步跟一下吧