看看我的程序吧,可能有所启发.再就搜索以前的贴有很多位FW都回答过了。
procedure Tw_check_newver.BitBtn1Click(Sender: TObject);
var NewVer_Path:string;
; ; hwnd:Thandle;
; ; Fnew,FOld:TsearchRec;
begin
; NewVer_Path:=Trim(dxButtonEdit1.text);
; if copy(NewVer_Path,length(NewVer_Path)-1,1)<>'/' then
; ; ;NewVer_Path:=NewVer_Path+'/';
; NewVer_Path:= NewVer_Path+ExtractFileName(ParamStr(1));
; if NewVer_path=paramstr(1) then
; ; ;begin
; ; ; ; ; ; ;msgbox('源程序和目的程序同处在相同的路径!',48,'系统提示');
; ; ; ; ; ; ;exit;
; ; ;end;
; if FileExists(NewVer_Path) then
; begin
; ; ;if FindFirst(NewVer_Path,faAnyFile,Fnew)=0 then
; ; ; ; IF FindFirst(ParamStr(1),faAnyFile,Fold)=0 then
; ; ; ; ; ;if (Fnew.time<Fold.time) then
; ; ; ; ; ;begin
; ; ; ; ; ; ; msgbox('没有找到新的版本!',48,'系统提示');
; ; ; ; ; ; ; exit;
; ; ; ; ; ;end;
; ; ;if 6=msgbox('找到新版本的程序,系统将关闭程序进行更新。继续吗?',4+32,'') then
; ; ; ;begin
; ; ; ; ; hwnd:=FindWindow(nil,pchar(ParamStr(2)));
; ; ; ; ; if hwnd<>0 then begin
; ; ; ; ; ; ; ; try
; ; ; ; ; ; ; ; ; ; application.MainForm.hide;
; ; ; ; ; ; ; ; ; ; sendMessage(hwnd,WM_SetFocus,0,0);
; ; ; ; ; ; ; ; ; ; sendMessage(hwnd,wm_close,0,0);
; ; ; ; ; ; ; ; ; ; postmessage(hwnd,WM_KEYDOWN,VK_Return,0);
; ; ; ; ; ; ; ; Finally
; ; ; ; ; ; ; ; ; ; sendMessage(application.Handle,WM_SetFocus,0,0);
; ; ; ; ; ; ; ; ; ; application.MainForm.show;
; ; ; ; ; ; ; ; ; ; if 6=msgbox('您真的想替换原程序吗吗?',4+32,'') then
; ; ; ; ; ; ; ; ; ; if CopyFile(pchar(NewVer_Path),pchar(ParamStr(1)),false) then
; ; ; ; ; ; ; ; ; ; begin
; ; ; ; ; ; ; ; ; ; ; ;msgbox('更新成功!',48,'系统提示');
; ; ; ; ; ; ; ; ; ; ; ;application.Terminate;
; ; ; ; ; ; ; ; ; ; end;
; ; ; ; ; ; ; ; end;
; ; ; ; ; end;
; ; ; ;end;
; end
; else
; ; ;msgbox('['+NewVer_Path+']文件不存在!请确认这是存放新版本的路径.',16,'系统提示');
end;
