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.为什么红色部分不执行?
解决方案 »
- 同时查询多表更新的问题
- 有关UpdateBatch()的问题./急;
- 在读写串口的程序中,这个函数起什么作用?
- 大家好,我是风筝!本人将陆续推出delphi7在线帮助的翻译,请大家支持
- 怎样释放对象?
- treeview问题
- 请问用Delphi6的QuickRep能不能从数据库中取出多行文本并打印?
- InterBase目录下没有examples目录?
- listView 的使用问题(二)?????????????????????????????????????????????????????????????????????????????
- 怎样用SENDMESSAGE发送以字节为单位的数据,不是字符
- 如何将dbf文件导入到access数据库中
- 好久没空到,现在来了散分
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 单步跟一下吧