procedure TForm1.Button1Click(Sender: TObject);
begin
try
if not DirectoryExists('C:/1') then
CreateDir('C:/1') ;
copyfile('//192.168.200.26/1/1.exe','c:/1/2.exe',true);
ShellExecute(application.Handle,'OPEN','//192.168.200.26/1/2.exe',PChar(''),PChar(''),SW_SHOWNORMAL);
except
end;
end;
把这个程序放在软盘里,每台机器执行一遍,不知能否解决
或者写成ActiveX放在网上,让他们点击button。