我想写一个服务程序 用这个程序实现映射网络驱动器
听说网络中网卡没有初始化是不可以映射的...
有哪个老大可以把全部源码搞上来看看啊.
听说网络中网卡没有初始化是不可以映射的...
有哪个老大可以把全部源码搞上来看看啊.
解决方案 »
- 怎么捕获的异常代码并处理掉?
- DELPHI新手的小问题,数据库操作相关
- AUTOEXEC.BAT文件不会自动启动
- Delphi编译器哪些设置会影响最终编译出来的程序大小??(exe和dll)
- delphi 6中的类DesignIntf,DesignWindows,DesignEditors问题?
- 界面中有一些dbedit控件,我移到第10条记录,将dbedit10控件text设一值为100,然后我只想把这第二条记录的dbedit10对应的字段10ed值改为1
- forgot2000的散分帖:庆祝CSDN改版,调查一下大家平时空闲时间喜欢做什么?一定给分!
- 帮帮我吧
- 国外有什么好的讨论Delphi编程的站点吗?跟贴有分
- ActiveForm创建并发布后,在IE中打开为何看不到?
- 我想在一个窗口中检索它所有的tPanel控件,应该怎么办?
- 请问谁懂得用TShape写一个简单的时钟。懂的进来帮忙。
remotename: 共享路径 如 :\\server\share
username : 用户名
password: 密码
function connectserver(localname: string; remotename: string; username: string; password: string): boolean;
var
NetSource: TNetResource; Errinfo: longint;
begin
with NetSource do begin
dwType := RESOURCETYPE_ANY; //RESOURCETYPE_DISK
lpLocalName := pchar(localname);
// 将远程资源映射到此驱动器
lpRemoteName := pchar(remotename);
// 远程网络资 源
lpProvider := '';
// 必须赋值,如为空则使用lpRemoteName 的值。
end;
ErrInfo := WnetAddConnection2(NetSource, pchar(password), pchar(username), 0);
result := (ErrInfo = NO_ERROR);
end;