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

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;
...全文
7 6 点赞 打赏 收藏 举报
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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单元有定义。
  • 打赏
  • 举报
回复
相关推荐
军队作战SLG小游戏策划案+公式设计+JSON实例模拟打包 公元135年,相传高祖病重后继无人,宦官专权祸乱朝纲,同年群雄逐鹿风起云涌。乱世的暗流涌动,引起了不少英雄豪杰的注意。广袤的疆域上,战马赫赫战鼓阵阵,纷飞的战火中,是敌人还是朋友也逐渐清晰了起来,这一战不止为了义气还为了和平。 你身边的有从军队中一路砍杀过来的勇士,也有行侠仗义的游侠,也有父从军的女子,也有从小被培养的刺客。他们组成了一支军队,运用自己擅长的作战方式,听从你的指挥,一切性命都系你的身上,如何判断作战情况都你的一念之间。当然军师会协助你,招兵买马,扩充军队,上阵步兵,作战方式均可与其商讨,谋而后立裁决果断并不冲突。 当然战场上武器一定是需要配备的,作战中失去了武器就等同于失去了性命,如何为军队中所有人配置趁手的武器也是作为主帅的你需要考虑的事情。训练军队的同时也要建设城镇,满满的谷仓,成群的鸡鸭,后方有稳健的保障,前方作战才能更加的果敢。 乱世出英雄,各种战役中飞快成长,创建一番属于自己的天地吧 实例对比描述: 实例说明: 实例展示了不同情况的军队作战效果,只需要调整参数既可以达到差异化目的。 第一组实例:1000军队的骑兵对战1000军队的骑兵,先手攻击方的
发帖
Delphi
加入

4969

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2004-05-01 09:47
社区公告
暂无公告