我要问的问题是:
我知道了该共享目录所在机的密码了,
如何在程序里设置好用户密码,这样不必每次我的程序访问这个目录的时候都要输入密码!
我知道了该共享目录所在机的密码了,
如何在程序里设置好用户密码,这样不必每次我的程序访问这个目录的时候都要输入密码!
解决方案 »
- 请问delphi里怎样调用oralcle数据库中的自定义函数
- Delphi如何解决 License id invalid or has expired
- 怎样将integer型转换成字母
- 请教!!寻找详细介绍wordapplication等控件的方法和属性的地方!!
- 兄弟們 請給我一個簡單得DLL編寫方法和實例
- 如何将纵向显示的日期数据横向显示
- 用ado的软件在某些机子上超时,其他机子没问题,怎么回事,调整con的timeout没什么作用
- 如何使GRID中的数据修改不写回数据源(详见内)
- 大难题!!!!!!!!!!!
- 想挣外块的朋友请进来!求购源代码或解决方案!
- 紧急求助!!!!!Delphi编程问题!!!!!!(要不会出人命的)
- 对话框问题
var
iCount : Integer;
bSuccess : Boolean;
lpNetResource : NETRESOURCE;
Flags,lpResult,lpBufferSize,dwRet : DWORD;
lpAccessName : Array [0..1024] of char;
begin
lpNetResource.dwScope := RESOURCE_GLOBALNET;
lpNetResource.dwType := RESOURCETYPE_DISK;
lpNetResource.dwDisplayType := RESOURCEDISPLAYTYPE_SHARE;
lpNetResource.dwUsage := RESOURCEUSAGE_CONTAINER;
lpNetResource.lpLocalName := nil;
lpNetResource.lpRemoteName := PChar(sFileDir);
lpNetResource.lpProvider := nil; Flags := 0 or CONNECT_PROMPT or CONNECT_UPDATE_PROFILE; lpResult := 0;
lpBufferSize := 1024;
dwRet := WNetUseConnection(HWND(nil),lpNetResource,PChar(sPassword),PChar(sUserName),Flags,lpAccessName,lpBufferSize,lpResult); if dwRet = NO_ERROR then
begin
Result := true;
end
else
begin
Result := false;
end;
end;
localname:本地磁盘号 如:Y: Z:
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;
API: WnetAddConnection2
var
iCount : Integer;
bSuccess : Boolean;
lpNetResource : NETRESOURCE;
Flags,lpResult,lpBufferSize,dwRet : DWORD;
lpAccessName : Array [0..1024] of char;
begin
lpNetResource.dwScope := RESOURCE_GLOBALNET;
lpNetResource.dwType := RESOURCETYPE_DISK;
lpNetResource.dwDisplayType := RESOURCEDISPLAYTYPE_SHARE;
lpNetResource.dwUsage := RESOURCEUSAGE_CONTAINER;
lpNetResource.lpLocalName := nil;
lpNetResource.lpRemoteName := PChar(sFileDir);
lpNetResource.lpProvider := nil; Flags := 0 or CONNECT_PROMPT or CONNECT_UPDATE_PROFILE; lpResult := 0;
lpBufferSize := 1024;
dwRet := WNetUseConnection(HWND(nil),lpNetResource,PChar(sPassword),PChar(sUserName),Flags,lpAccessName,lpBufferSize,lpResult); if dwRet = NO_ERROR then
begin
Result := true;
end
else
begin
Result := false;
end;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
if LoginServer('\\tchtc-svr','tchtc','tchtc') then
showmessage('成功登录\\tchtc-svr')
else
ShowMessage('登录\\tchtc-svr');
end;