請教先進 現有A跟B兩台電腦,檔案都是放在B上,現A要透過網芳去存取B的 檔案,但是B有設網芳密碼,請教A在存取B的檔案前,要如何先登入B PS: 不使用網路磁碟機的方法 感激不盡

請參考這篇看看,應該有你要的

請參考 WNetAddConnection2 .. http://delphi.ktop.com.tw/topic.php?TOPIC_ID=22100

感謝前輩   但電腦B是"暈倒98"的,若用下面方式,都是傳回true

function checkNTPass(iUserID, iPassword, iRemoteName: String): Boolean;
var
  lpNetResource: _NETRESOURCE;
begin
  lpNetResource.dwType := RESOURCETYPE_ANY;
  lpNetResource.lpLocalName := Nil;
  lpNetResource.lpRemoteName := PChar(iRemoteName);
  lpNetResource.lpProvider := Nil;
  case WNetAddConnection2(lpNetResource, PChar(iPassword), PChar(iUserID), 0) of
  NO_ERROR:
    begin
      Result := True;
      //if WNetCancelConnection2(PChar(iRemoteName), 0, true) <> NO_ERROR then
        //showMessage('無法離線')
      //else
        //showMessage('已離線');
    end
    else
      Result := False;
  end;
end;

感激不盡,謝謝

一些相關的function WNetAddConnection 創建同一個網絡資源的永久性連接  WNetAddConnection2 創建同一個網絡資源的連接  WNetAddConnection3 創建同一個網絡資源的連接  WNetCancelConnection 結束一個網絡連接  WNetCancelConnection2 結束一個網絡連接  WNetCloseEnum 結束一次枚舉操作  WNetConnectionDialog 啟動一個標准對話框，以便建立同網絡資源的連接  WNetDisconnectDialog 啟動一個標准對話框，以便斷開同網絡資源的連接  WNetEnumResource 枚舉網絡資源  WNetGetConnection 獲取本地或已連接的一個資源的網絡名稱  WNetGetLastError 獲取網絡錯誤的擴展錯誤信息  WNetGetUniversalName 獲取網絡中一個文件的遠程名稱以及/或者UNC（統一命名規範）名稱  WNetGetUser 獲取一個網絡資源用以連接的名字  WNetOpenEnum 啟動對網絡資源進行枚舉的過程     原文出處http://www2.ccw.com.cn/tips/9906/060704_05.asp 試看看這個

procedure TForm1.Button1Click
(Sender : TObject);
var
  NetSource : TNetResource;
begin
  with NetSource do
  begin
    dwType := RESOURCETYPE_ANY;
lpLocalName := 'X:';             
// 將遠程資源映射到此驅動器
lpRemoteName := '\\hqServer\sys';  
// 遠程網絡資源
lpProvider := '';  // 必須賦值,
如為空則使用lpRemoteName的值。
  end;
  WnetAddConnection2(NetSource, 'Password', 'Guest',  
 //用戶名為Guest，口令為Password
CONNECT_UPDATE_PROFILE); 
//下次登錄時重新連接
//此時在Windows資源管理器中可看到網絡驅動器X：
if MessageDlg('Are you sure to disconnect Drive ?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then      
//不管是否有文件打開，斷開網絡驅動器X：
      WNetCancelConnection2
( 'X:', CONNECT_UPDATE_PROFILE, True);  
end;
end;

發表人 - turboted 於 2003/05/28 09:33:48

引言: 一些相關的function WNetAddConnection 創建同一個網絡資源的永久性連接 WNetAddConnection2 創建同一個網絡資源的連接 WNetAddConnection3 創建同一個網絡資源的連接 WNetCancelConnection 結束一個網絡連接 WNetCancelConnection2 結束一個網絡連接 WNetCloseEnum 結束一次枚舉操作 WNetConnectionDialog 啟動一個標准對話框，以便建立同網絡資源的連接 WNetDisconnectDialog 啟動一個標准對話框，以便斷開同網絡資源的連接 WNetEnumResource 枚舉網絡資源 WNetGetConnection 獲取本地或已連接的一個資源的網絡名稱 WNetGetLastError 獲取網絡錯誤的擴展錯誤信息 WNetGetUniversalName 獲取網絡中一個文件的遠程名稱以及/或者UNC（統一命名規範）名稱 WNetGetUser 獲取一個網絡資源用以連接的名字 WNetOpenEnum 啟動對網絡資源進行枚舉的過程 原文出處http://www2.ccw.com.cn/tips/9906/060704_05.asp 試看看這個

procedure TForm1.Button1Click
(Sender : TObject);
var
  NetSource : TNetResource;
begin
  with NetSource do
  begin
    dwType := RESOURCETYPE_ANY;
lpLocalName := 'X:';             
// 將遠程資源映射到此驅動器
lpRemoteName := '\\hqServer\sys';  
// 遠程網絡資源
lpProvider := '';  // 必須賦值,
如為空則使用lpRemoteName的值。
  end;
  WnetAddConnection2(NetSource, 'Password', 'Guest',  
 //用戶名為Guest，口令為Password
CONNECT_UPDATE_PROFILE); 
//下次登錄時重新連接
//此時在Windows資源管理器中可看到網絡驅動器X：
if MessageDlg('Are you sure to disconnect Drive ?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then      
//不管是否有文件打開，斷開網絡驅動器X：
      WNetCancelConnection2
( 'X:', CONNECT_UPDATE_PROFILE, True);  
end;
end;

發表人 - turboted 於 2003/05/28 09:33:48

感謝前輩的指導,看來似乎一定要先建立網路磁碟機 才能存取檔案,再次感謝