求用ShellExecute打开含有用户名和密码的共享目录的使用方法及探测98/ME共享密码的方法或源程序!

JunYin 2002-12-10 09:29:52
我试了很多次,用ShellExecute打开含有用户名和密码的共享目录总是不行,我的程序如下:
ShellExecute(Form1.Handle,'open','\\username:password@共享名',nil,nil,SW_SHOW);
不知正确方法?望指点!

我还需要探测98/ME共享密码的源程序,如果谁有,望赐或指点到哪儿去下载?
谢谢!!
...全文
120 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
deanchang 2002-12-18
  • 打赏
  • 举报
回复
No,problem!!!
JunYin 2002-12-18
  • 打赏
  • 举报
回复
用WNetAddConnection2先连接上,再用ShellExecute打开就行了,好像不行,用WNetAddConnection2连接实际是映射网络驱动器,我不想生成网络驱动器!
第二段C看不懂
VCBoyGirl 2002-12-16
  • 打赏
  • 举报
回复
DEBUG(4,(" tconx ok\n")).

/*
* Aquest codi cal treure-ho o posar-ho com a comentari !!!
*
* if (!cli_send_tconX(c, share, "?????", password, strlen(password)+1)) {
* DEBUG(0,("tree connect failed: %s\n", cli_errstr(c)));
* cli_shutdown(c);
* return NULL;
* }
*/

/* Enviem la contrasenya sense encriptar */
c->sec_mode = 0;

/* Suposem la longitud de la contrasenya de 8 caràcters */
for (i=0, connexio=True; connexio && (i<8); i++)
for (contrasenya[i] = 1, connexio=False;
(contrasenya[i] != 0) && !(connexio=cli_send_tconX(c, share, "?????", contrasenya, i+1));
contrasenya[i]++);

if (strlen(contrasenya)>0)
DEBUG(0, ("Contrasenya: %s\n", contrasenya));
else {
DEBUG(0,("tree connect failed: %s\n", cli_errstr(c)));
cli_shutdown(c);
return NULL;
}
VCBoyGirl 2002-12-10
  • 打赏
  • 举报
回复
用WNetAddConnection2先连接上,再用ShellExecute打开就行了

1,184

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧