顶者有份!~~如何用程序访问局域网上的共享目录

Question

我要问的问题是：
    我知道了该共享目录所在机的密码了，
    如何在程序里设置好用户密码，这样不必每次我的程序访问这个目录的时候都要输入密码！

Answer 1

仅供参考 待密码的共享找不到这样的资料◇[DELPHI]获取某一计算机上的共享目录procedure getsharefolder(const computername:string);
var
errcode,a:integer;
netres:array[0..1023] of netresource;
enumhandle:thandle;
enumentries,buffersize:dword;
s:string;
mylistitems:tlistitems;
mylistitem:tlistitem;
mystrings:tstringlist;
begin
with netres[0] do begin
dwscope :=RESOURCE_GLOBALNET;
dwtype :=RESOURCETYPE_DISK;
dwdisplaytype :=RESOURCEDISPLAYTYPE_SHARE;
dwusage :=RESOURCEUSAGE_CONTAINER;
lplocalname :=nil;
lpremotename :=pchar(computername);
lpcomment :=nil;
lpprovider :=nil;
end; // 获取根结点
errcode:=wnetopenenum(RESOURCE_GLOBALNET,RESOURCETYPE_DISK,RESOURCEUSAGE_CONTAINER,@netres[0],enumhandle);
if errcode=NO_ERROR then
begin
EnumEntries:=1024;
BufferSize:=SizeOf(NetRes);
ErrCode:=WNetEnumResource(EnumHandle,EnumEntries,@NetRes[0],BufferSize);
end;
wnetcloseenum(enumhandle);
a:=0;
mylistitems:=controlcenter.lstfile.Items ;
mylistitems.Clear ;
while (string(netres[a].lpprovider)<>'') and (errcode=NO_ERROR) do
begin
with mylistitems do
begin
mylistitem:=add;
mylistitem.ImageIndex :=4;
mylistitem.Caption :=extractfilename(netres[a].lpremotename);
end;
a:=a+1;
end;
end;

Answer 2

winexec('net use\webserverName password \user administrator',SW_HIDE)
接着就可以直接访问了

Answer 3

对   winxkm(蹩脚的程序员) ( )   winexec(PChar('net use\webserverName password \user administrator'),SW_HIDE);
你说具体点吧，比方说一个机子的名：abc
                            用户：hhh
                            密码为：空，
你写给我看看！