社区
Delphi
帖子详情
请问win98和win2000,winXp下如何用程序实现网络磁盘映射?
138075
2004-04-30 02:45:59
请问win98和win2000,winXp下如何用程序实现网络磁盘映射?
好象win98和winXP.win2000的用法是不一样的。
...全文
104
3
打赏
收藏
请问win98和win2000,winXp下如何用程序实现网络磁盘映射?
请问win98和win2000,winXp下如何用程序实现网络磁盘映射? 好象win98和winXP.win2000的用法是不一样的。
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
yueshujiang
2004-04-30
打赏
举报
回复
www.delphi.com
Rex_love_Burger
2004-04-30
打赏
举报
回复
procedure TForm1.Button1Click(Sender: Tobject);
var NetR :NETRESOURCE;ErrInfo : Longint;
begin
NetR.dwScope := RESOURCE_GLOBALNET;
NetR.dwType := RESOURCETYPE_DISK;
NetR.dwDisplayType := RESOURCEDISPLAYTYPE_SHARE;
NetR.dwUsage := RESOURCEUSAGE_CONNECTABLE;
NetR.lpLocalName := 'j:';
NetR.lpRemoteName := '\\Lifang\c';
ErrInfo := WNetAddConnection2(NetR, '', '', CONNECT_UPDATE_PROFILE);
If ErrInfo = NO_ERROR Then
messagebox(0,'Net connection successful!','',0)
Else
messagebox(0,'ERROR: ','',0);
end;
断开映射网络驱动器
procedure TForm1.Button2Click(Sender: Tobject);
var ErrInfo : Longint;
strLocalName : pchar;
begin
strLocalName:='j:';
ErrInfo := WNetCancelConnection2(strLocalName, CONNECT_UPDATE_PROFILE, False);
If ErrInfo = NO_ERROR Then
messagebox(0,'Net disconnection successful!','',0)
Else
messagebox(0,'ERROR','',0);
end;
138075
2004-04-30
打赏
举报
回复
没有人知道吗?
Win
dows问答精华
DOS下安装
Win
XP
方法.txt DOS中使用系统还原工具.txt E
xp
lorer的作用.txt folder.htt等文件的问题.txt found.000文件夹的问题.txt IE以最大化显示.txt Mfm1992文件问题.txt Regsvr32 用法和错误消息的说明.tx Regsvr...
网站发布详细步骤
网站发布是一个关键的步骤,涉及到服务器的配置、网站内容的管理和
网络
安全。本篇将详细讲解如何在
Win
dows操作系统上使用微软提供的两种服务——IIS(Internet Information Services)和个人Web服务器(PWS,...
电脑百科全书-----217个电脑知识和实用问题解决集锦
下)(5#) <br>BB是报警的声音(6#) <br>开机BIOS语言(7#) <br>BIOS可以被
映射
(8#) <br>BIOS与CMOS区别(9#) <br>CMOS密码清除方法(10#) <br>在DOS下安装
Win
XP
(11#) <br>在DOS中...
用我所用,弃我所弃——
Win
dows
XP
服务详解
Win
XP
的变化主要源于其摒弃了以前家用操作系统的内核,除了漂亮的界面消耗了大量的内存和显存等系统资源外,和
Win
2000
一样,
Win
XP
默认在后台还运行了很多不同的服务,像打印机服务、系统自动更新服务等,对系统的...
Win
9X、
2000
、
XP
、2003所有注册表设置
Win
9X、
2000
、
XP
、2003所有注册表设置 ...所以我搜集了网上的这些键值加上自己总结下了自己这些年来的一些心得,希望能对大家有所帮助! 《开始菜单及相关设置》 [HKEY_CURRENT_USER\Soft...
Delphi
5,930
社区成员
262,936
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章