在局域网中自动更新

wazhqi 2002-11-01 03:42:43

客户端中，在局域网若自动更新，自已更新自已并执行，要原码

...全文

146 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

truemoller 2003-05-03

打赏
举报

internet上行吗？

programmer200x 2003-02-23

打赏
举报

问题挺好的，怎么没有人讨论啊？

quark 2003-02-12

打赏
举报

//==============================================================================
//客户端.从服务器指定的FTP地址下载最新程序**************************************
//==============================================================================
procedure ClientDownload;
var NMFTP: TNMFTP;
begin
NMFTP := TNMFTP.Create(nil);
NMFTP.Vendor := 2411;
NMFTP.Host := Master.Computer;
NMFTP.Port := 21;
NMFTP.Timeout := 5000;
NMFTP.UserID := 'anonymous';
NMFTP.Password := 'user@host.com';
try
NMFTP.Connect;
NMFTP.Download(Slave.AppName, Slave.AppPath + Slave.AppName + '~');
finally
NMFTP.Disconnect;
NMFTP.Free;
end;
end;

//==============================================================================
//客户端.用下载的程序更新原程序*************************************************
//==============================================================================
procedure ClientReplace;
var ProcessInfo: TProcessInformation;
StartUpInfo: TStartupInfo;
BatchFileName: string;
BatchFile: TextFile;
begin
BatchFileName := ChangeFileExt(Paramstr(0),'.bat');
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
AssignFile(BatchFile, BatchFileName);
Rewrite(BatchFile);
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Writeln(BatchFile, ':try');
Writeln(BatchFile, 'del "' + Slave.AppPath + Slave.AppName + '"');
Writeln(BatchFile, 'if exist "' + Slave.AppPath + Slave.AppName + '" goto try');
Writeln(BatchFile, 'if not exist "' + Slave.AppPath + Slave.AppName + '" ren "' + Slave.AppPath + Slave.AppName + '~" "' + Slave.AppName + '"');
//自启动~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//Writeln(BatchFile, 'if exist "' + Slave.AppPath + Slave.AppName + '" "' + Slave.AppPath + Slave.AppName + '"');
Writeln(BatchFile, 'del %0');
CloseFile(BatchFile);
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
FillChar(StartUpInfo, SizeOf(StartUpInfo), $00);
StartUpInfo.dwFlags := STARTF_USESHOWWINDOW;
StartUpInfo.wShowWindow := SW_HIDE;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
if CreateProcess(nil,PChar(BatchFileName),nil,nil,False,IDLE_PRIORITY_CLASS,nil,nil,StartUpInfo,ProcessInfo) then
begin
CloseHandle(ProcessInfo.hThread);
CloseHandle(ProcessInfo.hProcess);
end;
end;

wazhqi 2002-11-05

打赏
举报

求解脱还得靠自已，我自已解决吧

hfycl 2002-11-04

打赏
举报

del_c_sharp 2002-11-04

打赏
举报

to BoningSword

佛曰：不可说～～～不可说～～～◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎

ihihonline 2002-11-04

打赏
举报

BoningSword(我爱的人名花有主，爱我的人惨不忍睹)说：
广告满天飞啊，简直比网络时代的烧钱运动还热乎，呵呵。
del_c_sharp(摩托还需骆拉)说：
我是佛，：佛曰：不可说～～～不可说～～～◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎
小小说：摩托吃人不吐骨头，我踩你！BoningSword，小小下次不敢了；嘻嘻

BoningSword 2002-11-03