if Pos('65535',GetFileVerStr(aFile))>0 then begin case Application.MessageBox(PChar('系统检查到原先文件未下载完毕,是否续传?'),PChar('系统提示'),MB_YESNOCANCEL+MB_ICONQUESTION) of IDYes: begin aHint:=False; MyDownLoad(aURL, aFile, True); //续传 end; IDNo: begin MyDownLoad(aURL, aFile, False); //覆盖 end; IDCancel: Exit; //取消 end;