如题。
解决方案 »
- 第一次发贴测试。实习项目象眼的判断问题
- 怎么样在ListView中显示以Treeview 选中的内容为条件的记录
- 请教一个问题----------------------------------------------关于封装成函数.......
- [正确就结贴]初混D区今天四个三角散一下分求鼓励
- 三国之 韩国首都的名字来由
- Borland要出售IDE了,Delphi的前途何在啊?
- 无题
- 如何设置系统日期的格式????
- 有谁知道什么地方可以免费上传软件供人试用?我有一个软件想发表!
- 报表的问题TQRDbtext的属性中autosize=false ,autostretch=true 后的问题?
- 各位高手,如何解决这样的登陆框问题,和如何显示的问题?
- winsock使用的问题
NetUseAdd
LPTSTR lpRemoteName,
LPTSTR lpPassword,
LPTSTR lpLocalName
);
DWORD WNetAddConnection2(
LPNETRESOURCE lpNetResource,
LPTSTR lpPassword,
LPTSTR lpUserID,
DWORD dwFlags
);
DWORD WNetAddConnection3(
HWND hwndOwner,
LPNETRESOURCE lpNetResource,
LPTSTR lpPassword,
LPTSTR lpUserID,
DWORD dwFlags
);
DOS:NET USE
但只是要进入文件夹读取文件(需要密码和用户),能否不建立映射网络驱动器。procedure TForm1.Button1Click(Sender : TObject);
var
NetSource : TNetResource;
begin
with NetSource do
begin
dwType := RESOURCETYPE_ANY;
lpLocalName := ‘X:';
// 将 远 程 资 源 映 射 到 此 驱 动 器
lpRemoteName := ‘\\hqServer\sys';
// 远 程 网 络 资 源
lpProvider := ‘';
// 必 须 赋 值,
如 为 空 则 使 用lpRemoteName 的 值。
end;
WnetAddConnection2(NetSource,‘Password',‘Guest',
// 用 户 名 为Guest, 口 令 为Password
CONNECT_UPDATE_PROFILE);
// 下 次 登 录 时 重 新 连 接
// 此 时 在Windows 资 源 管 理 器 中
可 看 到 网 络 驱 动 器X:
if MessageDlg(‘Are you sure to disconnect Drive ?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes
then
// 不 管 是 否 有 文 件 打 开,
断 开 网 络 驱 动 器X:
WNetCancelConnection2( ‘X:', CONNECT_UPDATE_
PROFILE, True);
end;
end;
lpfilename=DBDataPath;
if(DirectoryExists("X:"))//ShowMessage("1");
adddrive=WNetCancelConnection("X:",true);
adddrive=WNetAddConnection(DBDataPath,DBPassword,"X:");
if(adddrive==NO_ERROR);//adddrive=WNetCancelConnection("X:",true);//MessageBox(NULL,"1","2",MB_OK);
// else{ MessageBox(NULL,"共享密码不对或者没有权限读写数据!!!!!!","主任值班系统",MB_OK);Application->Terminate();}
else{ ShowMessage("共享密码不对或者没有权限读写数据!!!!!!");Application->Terminate();}//return;}
lpfilename+="Fetalfil.dbf";
// if((fp=fopen(lpfilename.c_str(),"rb"))==NULL)
if(!FileExists(lpfilename))
{
ShowMessage("!!!!!!!!!!!!!!!!\n\r找不到数据库文件或者没有权限访问。");
Application->Terminate();
}
var
NetSource : TNetResource;
begin
with NetSource do
begin
dwType := RESOURCETYPE_ANY;
lpLocalName := ‘X:';
// 将 远 程 资 源 映 射 到 此 驱 动 器
lpRemoteName := ‘\\hqServer\sys';
// 远 程 网 络 资 源
lpProvider := ‘';
// 必 须 赋 值,
如 为 空 则 使 用lpRemoteName 的 值。
end;
WnetAddConnection2(NetSource,‘Password',‘Guest',
// 用 户 名 为Guest, 口 令 为Password
CONNECT_UPDATE_PROFILE);
// 下 次 登 录 时 重 新 连 接
// 此 时 在Windows 资 源 管 理 器 中
可 看 到 网 络 驱 动 器X:
if MessageDlg(‘Are you sure to disconnect Drive ?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes
then
// 不 管 是 否 有 文 件 打 开,
断 开 网 络 驱 动 器X:
WNetCancelConnection2( ‘X:', CONNECT_UPDATE_
PROFILE, True);
end;
end;
var
NetSource : TNetResource;
begin
with NetSource do
begin
dwType := RESOURCETYPE_ANY;
lpLocalName := ‘X:';
// 将 远 程 资 源 映 射 到 此 驱 动 器
lpRemoteName := ‘\\hqServer\sys';
// 远 程 网 络 资 源
lpProvider := ‘';
// 必 须 赋 值,
如 为 空 则 使 用lpRemoteName 的 值。
end;
WnetAddConnection2(NetSource,‘Password',‘Guest',
// 用 户 名 为Guest, 口 令 为Password
CONNECT_UPDATE_PROFILE);
// 下 次 登 录 时 重 新 连 接
// 此 时 在Windows 资 源 管 理 器 中
可 看 到 网 络 驱 动 器X:
if MessageDlg(‘Are you sure to disconnect Drive ?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes
then
// 不 管 是 否 有 文 件 打 开,
断 开 网 络 驱 动 器X:
WNetCancelConnection2( ‘X:', CONNECT_UPDATE_
PROFILE, True);
end;
end;