我要登陆到2000 SERVER上怎么做才能不弹出要我输入用户名和密码对话框

Question

怎么通过API函数怎么才能和2000 SERVER建立连接！
var yy:TNetResource;
    xx:DWORD;
beginyy.lpRemoteName :='\\10.141.165.126\aa';
yy.lpLocalName:='';
yy.lpProvider:='';
yy.dwScope:=RESOURCE_CONNECTED;
yy.dwType:=RESOURCETYPE_ANY;
xx:=WNetAddConnection3(application.Handle,yy,'guest','guest',CONNECT_UPDATE_PROFILE);
编译没问题，但要是访问的话还是不行

Answer 1

用ADOConnection 简单些，设置ADOConnection.LoginPrompt := False

Answer 2

用ADOConnection 简单些，设置ADOConnection.LoginPrompt := False

Answer 3

ADOConnection.LoginPrompt := False

Answer 4

晕倒
上面的朋友在讲什么啊？？？
楼主好象是要登录WIN2K，而不是SQL2K啊！
不过楼主不要看我，我也没试过。

Answer 5

liang_z(千山一刀之忍者神龟) :没有了编译通过，执行也对，就是没有建立起连接

Answer 6

无论你是用DBE还是ADO，都要LoginPrompt := False。

Answer 7

我想用程序实现建立网络连接后，把共享目录中的文件COPY 到本机上

Answer 8

//在win2k对win2k经测试，可以成功映射网络驱动器
procedure TForm1.Button1Click(Sender: TObject);
var
  NetR :NETRESOURCE;
  ErrInfo : Longint;
begin
  NetR.dwType := RESOURCETYPE_DISK;
  NetR.lpLocalName := 'X:';
  NetR.lpRemoteName := '\\sky\backup';
  NetR.lpProvider := '';
  ErrInfo := WNetAddConnection2(NetR, 'My Password','Administrator',CONNECT_UPDATE_PROFILE);
  If ErrInfo = NO_ERROR Then
    ShowMessage('映射网络驱动器成功!')
  Else
    ShowMessage('ERROR:'+IntToStr(ErrInfo));
end;

Answer 9

但默认的，只要服务器是WINDOS2000 SERVER，除非你先建立起连接后才能让你打开你要访问的网络资源，但我用API WNetAddConnection3函数建立连接也没有反应！
关于发LoginPrompt := False。的同志们不要再贴了，先看懂我的问题再说

Answer 10

如果用的ADOCONNECTION控件作为数据库连接，将LoginPrompt设为FALSE就行了

Answer 11

uses
  Windows,winsock,SysUtils,Classes,ComObj, WinInet;
Function IPCConnect(Server , username , Password : String ) : Integer; //IPC连接
Function DisIPCConnect(Server : String) : integer;  //断开连接
type
  TNetResourceArray = ^TNetResource;Function IPCConnect(Server , username , Password : String ) : Integer;
var
  NR : TNetResource;
begin
  FillChar(NR, SizeOf(NR), 0);
  NR.dwType := RESOURCETYPE_ANY;
  NR.lpLocalName := '';
  NR.lpProvider := '';
  NR.lpRemoteName := pchar(Server);
  Result := WNetAddConnection2(NR, pchar(Password), pchar(UserName), 0);
end;Function DisIPCConnect(Server : String) : integer;
begin
  Result := WNetCancelConnection2(pchar(Server),0,True);
end;

Answer 12

是啊，不能用IP  { The network name cannot be found. }
  ERROR_BAD_NET_NAME = 67;
  {$EXTERNALSYM ERROR_BAD_NET_NAME}

Answer 13

设置ADOConnection.LoginPrompt := False

Answer 14

同意
用ADOConnection 简单些，设置ADOConnection.LoginPrompt := False

Answer 15

kiboisme(还是铁棒.....针) 
不行，有的机器可以有的不行
到底怎么回事