客户端程序A每次运行时先到服务器上取版本号，然后与本地INI文件中的版本号对比，如果
不一样则自动升级（运行程序B从服务器上COPY最新版本的程序）。
现在的问题是怎么样关掉客户端的程序A----->执行程序B----->从服务器上COPY最新的
程序A---->最后自动载入运行？
附程序A：
begin
if application.MessageBox(pchar('客户端最新版本为' + ServerVer + ',请立即更新！'), '提示', mb_YesNo + mb_IconQuestion) = Id_Yes then
begin
mainform.WindowState := wsMinimized;
close;
application.Terminate;
ShellExecute(handle, 'open', PChar('b.exe'), '', '', sw_ShowNormal);
end;
end;
程序B：
dirs := ExtractFilePath(Application.ExeName);
DeleteFile(pchar(dirs + 'a.exe'));
CopyFile(pchar('//'+ServerName+'/server_cc/a.exe.exe'), pchar(dirs + 'a.exe'), false);
我原来程序是这样写的，但是不能关掉自己（程序A）啊，有什么办法吗？[?]
=====================================================================
难道application.Terminate不能终止程序运行吗？
ShellExecute(handle, 'open', PChar('b.exe'), '', '', sw_ShowNormal);
application.Terminate;
exit; //<--防止其它因素影响程序退出的速度。
通常程序B还应该有一等待程序A结束的过程。可以用findwindow、loop、ProcessMessages
来完成。
=============================================================================
不知这样可否？
程序A：
procedure TForm1.FormCreate(Sender: TObject);
var mver,mpath,mrpath:string;
m,n:dword;
buf
char;
begin
//获取远程服务器上的程序的版本信息
mrpath:='//服务器上新程序路径';
if FileExists(mrpath) then
m:=GetFileVersionInfoSize(PChar(mpath),m) //服务器上新程序和版本号
else m:=0;
//获取当前程序的版本信息
mpath:=ExtractFilePath(Application.ExeName); //当前程序所在路径
n:=GetFileVersionInfoSize(PChar(mpath),n); //当前程序版本号
if (m<>n) and (m<>0) then
if MessageDlg('当前程序需升级',mtconfirmation,[mbyes,mbcancel],0)<>mryes then
exit else
try
ShellExecute(handle,'open',PChar(mpath+'B.exe'),'','',sw_ShowNormal);
Application.Terminate;
Except
ShowMessage('升级失败！');
exit;
end;
end;
程序B：
procedure TForm1.FormCreate(Sender: TObject);
var mpath,mrpath:string;
begin
label2.Caption:='程序正在升级，请稍候..';
bitbtn1.Enabled:=false;
bitbtn2.Enabled:=false;
mpath:=ExtractFilePath(Application.ExeName); //当前程序所在路径
mrpath:='//服务器上新程序路径';
if RenameFile(mpath+'A.exe',mpath+'A.backup')=false then begin
DeleteFile(mpath+'A.backup');
renamefile(mpath+'A.exe',mpath+'A.backup'); //备份原程序
end;
if CopyFile(pchar(mrpath),pchar(mpath+'A.exe'),false) then begin
label3.caption:='程序升级完毕，原程序已备份!';
label5.caption:='如需现在运行新程序则按“确定”继续！'; //bitbtn1
label6.caption:='否则按完成稍后运行！'; //bitbtn2
bitbtn1.Enabled:=true;
bitbtn2.Enabled:=true;
end else begin
showmessage('拷贝文件出错，升级失败！');
exit;
end;
end;
procedure TForm1.BitBtn1Click(Sender: TObject); //现在运行程序
begin
ShellExecute(handle,'open',PChar(ExtractFilePath(Application.ExeName)+'A.exe'),'','',sw_ShowNormal);
Application.Terminate;
end;
procedure TForm1.BitBtn2Click(Sender: TObject); //稍后运行程序
begin
Application.Terminate;
end;
程序A与B在同一目录中
========================================================================
谢谢大家的帮助！
不过最后我自己用了一种更加简单方便的方法，程序如下 ：
程序A：
begin
if application.MessageBox(pchar('客户端最新版本为' + ServerVer + ',请立即更新！'), '提示', mb_YesNo + mb_IconQuestion) = Id_Yes then
begin
mainform.WindowState := wsMinimized;
close;
close;
AssignFile(F, 'delself.bat');
Rewrite(F);
WriteLn(F, 'del ' + ExtractFileName(Application.ExeName));
WriteLn(F, 'b.exe');
CloseFile(F);
WinExec('delself.bat', SW_HIDE);
end;
end;
程序b不做任何改动。
=======================================================================
