根据已知的ip,程序把自身考到指定的目录下面,而且执行一次(100分)

  • 主题发起人 主题发起人 新小丸子
  • 开始时间 开始时间

新小丸子

Unregistered / Unconfirmed
GUEST, unregistred user!
我正在做公司内部的局域网办公软件,不想满公司去安装。谢谢![:)]
 
放在网页上让他们自己下载,自己安装啊
 
都是领导,哪敢牢烦他们呀!就愿意光点点鼠标,你告诉他地址栏在哪里都不知道![:(]
 
在网页提供一个安装程序连接,点击,让他们选择运行
 
为什么要程序自身,运行别的程序再把程序Copy到别的机器上不就行了吗?
 
你想COPY上去也还要权限嘛,而你要设权限或目录也还是要过去嘛.我想不出什么法子,不过
你最好给他装PCAnyWhere,不过,呵呵,领导的私隐哟,肯定也不行.
你还是过去老老实实装吧,不然到时候老大的电脑莫名其妙就装了一个软件出来,那他还不
疑神疑鬼?
 
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。
 
接受答案了.
 
后退
顶部