发信人: leezy (【HIT】穆子), 信区: BorlandDev
标  题: 用Delphi实现网络驱动器的映射和断开的另一方法
发信站: 哈工大紫丁香 (2002年01月19日15:45:00 星期六), 站内信件

关键字：net use
类　别：网络
procedure TForm2.Button3Click(Sender: TObject);var pwd,ss,no:string;begin   
pwd:='er'; // 你的password   ss:=format('/c net use K: \\172.17.8.193\setup 
%s /USER:newer',[pwd]);   //用戶名為newer   ShellExecute(handle, Pchar('open
'), Pchar('cmd'), pchar(ss), Nil, 0);end;procedure TForm2.Button4Click(Sende
r: TObject);begin  //斷開网絡驅器K   ShellExecute(handle, Pchar('open'),    
            Pchar('cmd'),                pchar('/c net use /delete K:'),    
            Nil, 0);end;

--
°★．☆° ．★·°∴°★．°·∴°☆ ·°∴° ☆．．·°∴°．☆°★°∴°

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.230.122]