使用NetShareAdd应该可以吧:
NET_API_STATUS NetShareAdd(
LPTSTR servername, //对应你的\\ServerName
DWORD level,
LPBYTE buf,
LPDWORD parm_err
);NetUseAdd和WNetAddConnection2的功能一样,但是前者是16bitsWindows使用的,后者是32Bits。—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
I.Maxim := MaximStr;
I.Explain := '可用分不够可以给我发短消息';
I.Desire := '加不加分随你';
—————————————————————————————————
NET_API_STATUS NetShareAdd(
LPTSTR servername, //对应你的\\ServerName
DWORD level,
LPBYTE buf,
LPDWORD parm_err
);NetUseAdd和WNetAddConnection2的功能一样,但是前者是16bitsWindows使用的,后者是32Bits。—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
I.Maxim := MaximStr;
I.Explain := '可用分不够可以给我发短消息';
I.Desire := '加不加分随你';
—————————————————————————————————
解决方案 »
- QReport如何得到总页数?
- 鼠标拖动图标
- 我的一个程序的一个窗体一打开就没反应,像死机一样?
- 我是用ORACLE数据库,使用oraquery查询显示数据,因为数据量比较大,有等待时间,我想查询中中断查询,因该怎么搞,唉????
- 我是dehpi初学者,我想知道一些dehpi的专业学习和控件下载网站
- 无意中下载了一本书(D7Books.GDB),却不知是什么格式用何阅读器打开?
- 三天内结帖,来者有分!
- 如何改变dbgrid的列宽?
- Paradox7中插入日期
- 请各路英雄进去帮帮忙吧http://www.csdn.net/expert/topicview1.asp
- 怎样禁止用户修改系统时间(100分相送)
- 那里有下载delphi5补丁?
好像不对吧!!!
看看我的代码:Function TNetwork.LogonServer( ServerName : cString; UserName : cString; Password : cString ) : Boolean;
Var
TempServer : WideString;
TempPassword : WideString;
TempName : WideString;
ParmError : DWORD;
Buf : Pointer;
nResult : NET_API_STATUS;
NetResource : TUse_Info_2;
Begin
TempServer := ServerName;
TempPassword := Password;
TempName := UserName;
With NetResource Do
Begin
Password := PWideChar( TempPassword );
UserName := PWideChar( TempName );
Remote := PWideChar( TempServer );
Local := Nil;
Asg_Type := USE_WILDCARD;
DomainName := Nil;
End;
Buf := PNetResource( @NetResource );
nResult := NetUseAdd( Nil, 2, Buf, ParmError );
Result := ( nResult = NERR_Success );
End;如果ServerName := 'Server\\Share'那么就正确
但是我希望ServerName := '\\Server'也正确!!!