下面的代碼寫在那個地方?

caizicheng 2004-05-01 09:47:02
为调用此函数必须填写
lpNetResouce结构,此结构的定义为:
typedef struct _NETRESOUCE{
DWORD dwScope;
DWORD dwType;
DWORD dwDisplayType;
DWORD dwUsage;
LPTSTR lpLocalName;
LPTSR lpRemoteName;
LPTSr lpProvider;
} NETRESOURCE;
...全文
69 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
caizicheng 2004-05-02
  • 打赏
  • 举报
回复
谢谢
lijinghe1 2004-05-02
  • 打赏
  • 举报
回复
uses Windows就行了,不用定义
caizicheng 2004-05-02
  • 打赏
  • 举报
回复
我狂顶
caizicheng 2004-05-02
  • 打赏
  • 举报
回复
TNetResource数据类型如何定义呀?
caizicheng 2004-05-02
  • 打赏
  • 举报
回复
function WNetAddConnection2(var lpNetResource: TNetResource;lpPassword,lpUserName: PChar; dwFlags: DWORD): DWORD; stdcall;
(上面是api调用)
要运行下面代码还需要申明什么?
procedure TForm1.Button1Click
(Sender : TObject);
var
NetSource : TNetResource;
begin
with NetSource do
begin
dwType := RESOURCETYPE_ANY;
lpLocalName := X:;
// 将远程资源映射到此驱动器
lpRemoteName := \hqServersys;
// 远程网络资源
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;

lijinghe1 2004-05-01
  • 打赏
  • 举报
回复
楼主搞混了几个问题,
LPNETRESOURCE lpNetResource,
lpNetResource是参数名,前面才是类型。
这个结构在windows单元有定义。

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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