请教各位大侠:程序中需要访问网络邻居(win2000),而该计算机已经禁用了Guest帐号,如何编程实现模拟输入一个已经在的帐号和密码?从而直接访问该计算机?100分相赠,急呀~~
解决方案 »
- 用Delphi做管理系统时的用户权限设置问题
- ksaiy(阳光总在风雨后) 进来拿分(是有关IFS动态加解密的贴子)
- 如何在DLL中使用窗口?
- 求助!Delphi中的Project1.dpr可以运行,而Project1.exe不能运行,为什么?
- MDI窗体的简单问题,解决马上给分!
- 再见,也许是永远(第一个留言30分,在线散!)
- 一个关于回车键的问题
- 提供能显示行号,并能显示合计标题和合计数的网格控件,并能告诉如何设置它的合计数据列
- 请问有谁用过TComm这个通信控件,,,它是怎么清空缓存区数据的????
- 怎样自己编写函数???
- 一个关于数据库的问题请教了....拜托了
- 请教高手,如何检测dbgrid中有某一行被选中?详细请进.
net use命令來實現共享如果沒有,那樓主可以自己作一個輸入框之類的不過我想,應該會有更好的API函數的
参考
http://msdn.microsoft.com/library/en-us/stgmgmt/fs/netshareadd.asp
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;