我的软件启动的时候是由主窗体调用登陆窗体,在登陆窗体中输入用户密码之后再显示主窗体,我现在用TigerUpdate做了一个自动升级功能,能升级了,但是好象主窗体没关闭,并且自动下载后的安装无法运行。并且不断的出现主窗体的程序,好象循环死了~~这是登陆窗口的代码:
procedure TloginForm.FormCreate(Sender: TObject);
var
sjcxd2 :integer =1;
begin
Edit1.Clear;
Edit2.Clear;
if TigerUpdate1.Version < TigerUpdate1.LatestVersion then
begin
Caption := TigerUpdate1.LatestVersion;
sjcxd2 := 0;
end;
if sjcxd2 =0 then
begin
if TigerUpdate1.Download then
Close;
Frm_main.close; ///Frm_main是主窗体
loginForm.close;
end
else
end;我估计自动下载好以后我运行的软件并没有完全释放。
procedure TloginForm.FormCreate(Sender: TObject);
var
sjcxd2 :integer =1;
begin
Edit1.Clear;
Edit2.Clear;
if TigerUpdate1.Version < TigerUpdate1.LatestVersion then
begin
Caption := TigerUpdate1.LatestVersion;
sjcxd2 := 0;
end;
if sjcxd2 =0 then
begin
if TigerUpdate1.Download then
Close;
Frm_main.close; ///Frm_main是主窗体
loginForm.close;
end
else
end;我估计自动下载好以后我运行的软件并没有完全释放。
aFileStream := TFileStream.Create(FUpdateFile, fmCreate); 这句不知道什么意思!