delphi2007 教程

delphi2007 教程

首页 新随笔 联系 聚合 管理
  1013 Posts :: 0 Stories :: 28 Comments :: 0 Trackbacks
初学delphi请问一个简单得问题 望解答 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiAPI/html/delphi_20061201194317137.html
program   Project1;  
   
  uses  
      Unit1   in   'Unit1.pas';  
  var  
    f:file;  
   
  begin  
   
      UrlDownloadToFile(nil,   PChar('http://163.com/1234.exe'),   PChar('C:\Program   Files\1234.exe'),   0,   nil);  
   
  end.  
   
   
  我要下载http://163.com/1234.exe   这个文件   请问怎么处理在下在前先判断C:\Program   Files\目录下是否已经存在1234.exe文件呢?如果存在即跳过下载     学生望解答   谢谢各位了

fileexists

正确!

if   fileexists(C:\Program   Files\1234.exe)   then  
  ..........

正确!

提示undeclared   identifier:"fileexists"  
 

uses  
      SysUtils;  
   
      if   FileExists('C:\Program   Files\1234.exe')   then  
      begin  
          ......  
      end;

如果用了sysutils的话   你下载者的体积   就有   40多K了     把sysutils的fileexists函数分离出来写上去就是了    
   
 

posted on 2008-09-23 09:37 delphi2007 阅读(126) 评论(0)  编辑 收藏 引用
只有注册用户登录后才能发表评论。