梦 梦天 Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-30 #1 在局域中,一个程序怎样才能够做到自我复制,检查如果那一台计算机没有复制,那它就去 再一次复制。
M mckz Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-30 #2 var myfilepath: String; begin myfilepath:= 'c:/a.exe'; targerfile:='//192.168.0.1/a.exe'; if not fileexists(targerfile) then begin copyfile(pchar(myfilepath),pchar(targerfile),true); end; end;
var myfilepath: String; begin myfilepath:= 'c:/a.exe'; targerfile:='//192.168.0.1/a.exe'; if not fileexists(targerfile) then begin copyfile(pchar(myfilepath),pchar(targerfile),true); end; end;