怎样在DELPHI中编写程序，映射一个网络路径为模拟驱动器盘符？ 如达到这个函数： mapnetpath('\\ntserver\demo','B:')这样的效果？

Question

给一段BCB程序：
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 DWORD dwResult; dwResult = WNetConnectionDialog(Handle, RESOURCETYPE_DISK);
 if(dwResult == NO_ERROR)
   {
    StatusBar1->SimpleText="映射驱动器成功";
   }
 else
   {
    StatusBar1->SimpleText="映射驱动器失败";
    NetErrorHandler(dwResult, (LPSTR)"WNetConnectionDialog");
    return;
   }}

Answer 1

谢谢，不知道哪位高手能写成一个DELPHI形式的代码，不胜感谢！！！！

Answer 2

上面的代码会调出Windows标准的映射驱动器的对话框，其实可以不出现对话框：
WNetAddConnection('\\ntserver\demo','YourPassword','i:');
如果没有密码，就让他为空。
返回值：
wn_success成功
器它的自己看帮助。
断开的话用：
WNetCancelConnection('I:',bFlag);
其中bFlag标志是否强行断开映射。

Answer 3

DWORD dwResult；
dwResult＝WNetConnectionDialog（Handle,RESOURCETYPE_DISK)；
if(dwResult＝＝NO_ERROR)
{  //成功；｝
else｛//失败；｝

Answer 4

procedure TForm1.BitBtn1Click(Sender: TObject);
var
dwResult :DWORD ;
begindwResult := WNetConnectionDialog(Handle, RESOURCETYPE_DISK);
if(dwResult = NO_ERROR)then
  begin
    showmessage('映射驱动器成功');
  end else
  begin
    showmessage('映射驱动器失败');
    //NetErrorHandler(dwResult, 'WNetConnectionDialog');
    exit;
 end;
end;

Answer 5

NetErrorHandler(dwResult, 'WNetConnectionDialog');是自定义的函数，不要用它
    

Answer 6

不对呀：我到了客户那里，发现有了问题：只能映射共享名，却不能映射共享名下的子目录为驱动器号。在WIN2000里没有问题，但是在WINDOWS98的有些版本机器中有问题，我的机器WIN98SE没有事，客户那里却发现映射得不对。我的代码中返回的仍是正确，可实际上却不对。急死我啦！！！！！