初次见面，请多关照！

Question

靠！这1分是我的，谁也别想把它拿走！

Answer 1

这上面回答问题的水平还可以

Answer 2

原来不可以给自己呀！倒霉，浪费了这一分！

Answer 3

我问了个问题你贴上
procedure ConnectToDomain(ServerName:string); 
var 
  nr:TNetResource; 
  szRemotePath : array[0..255] of char; 
  szPassWord:array[0..255] of char; 
begin   // use default connect 
  nr.dwScope := RESOURCE_GLOBALNET; 
  nr.dwType  := RESOURCETYPE_ANY; 
  nr.dwDisplayType := RESOURCEDISPLAYTYPE_GENERIC; 
  nr.dwUsage := RESOURCEUSAGE_CONNECTABLE ; 
  nr.lpLocalName := nil; 
  nr.lpRemoteName := StrPCopy(szRemotePath,'\\'+ServerName+'\IPC$'); 
  nr.lpComment := nil; 
  nr.lpProvider:= nil; 
  if WNetAddConnection2(nr,nil,nil,0) <> NO_ERROR then begin 
     dlgLoginDomain := TdlgLoginDomain.Create(Application); 
     try 
        dlgLoginDomain.labServerName.Caption := ServerName ; 
        if dlgLoginDomain.ShowModal <> mrOK then 
           raise EPromiseAbortException.Create(''); 
        StrPCopy(szPassWord,dlgLoginDomain.Password.Text); 
        if WNetAddConnection2(nr,szPassword,nil,0) <> NO_ERROR then 
           raise EPromisePromptException.Create('Invalid password'); 
     finally 
        dlgLoginDomain.Free; 
     end; 
  end; end;

Answer 4

呵呵，原来也可以当作聊天工具呀！