登陆网络中别的计算机的程序实现？？？

转贴两个例子，看有没有用：如何用Delphi映射网络驱动器？function WNetAddConnection2W(var lpNetResource: TNetResourceW;lpPassword, lpUserName: PWideChar; dwFlags: DWORD): DWORD; stdcall;首先要填一个 lpNetResource structure，然后 password,user name, 和一个标志表明是否这个映射每次登录时都要还原。
var 
  NRW: TNetResource;
begin 
  with NRW do begin dwType := RESOURCETYPE_ANY;
  lpLocalName := 'X:'; // map to this driver letter
  lpRemoteName := '\\MyServer\MyDirectory';
  // Must be filled in. If an empty string is used,
  // it will use the lpRemoteName. lpProvider := ''; end;
  WNetAddConnection2(NRW, 'MyPassword', 'MyUserName', CONNECT_UPDATE_PROFILE);
end; ///////////////////////////////////////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(Sender: TObject);
begin     ShellExecute(handle, Pchar('open'),Pchar('cmd'),pchar('/c net use /delete K:'),Nil, 0);
end;