急求助:引用数据类型
在Delphi中怎样引用windows的数据类型,如SHARE_INFO_2,SHARE_INFO_502 问题点数：0、回复次数：7Top
1 楼lxpbuaa（桂枝香在故国晚秋）回复于 2003-09-02 11:39:20 得分 0
搜索一下没找到，可能Delphi没有重新声明，那么自己用记录来声明吧，原型如下：
typedef struct _SHARE_INFO_2 {
LPTSTR shi2_netname;
DWORD shi2_type;
LPTSTR shi2_remark;
DWORD shi2_permissions;
DWORD shi2_max_uses;
DWORD shi2_current_uses;
LPTSTR shi2_path;
LPTSTR shi2_passwd;
}
————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————Top
2 楼ouyang75928（Thinking in Pascal）回复于 2003-09-02 11:47:15 得分 0
typedef struct _SHARE_INFO_2 { LPWSTR shi2_netname; DWORD shi2_type; LPWSTR shi2_remark; DWORD shi2_permissions; DWORD shi2_max_uses; DWORD shi2_current_uses; LPWSTR shi2_path; LPWSTR shi2_passwd;
}
在单元中重新定义一个,
TShare_Info_2 = record
shi2_netname: WideString;
shi2_type: DWORD;
shi2_remark: WideString;
shi2_permissions: DWORD;
shi2_max_uses: DWORD;
shi2_current_uses: DWORD;
shi2_path: WideString;
shi2_passwd: WideString;
end;Top
3 楼mmtxm（小秀秀）回复于 2003-09-02 11:58:52 得分 0
shi2_permissions 的值列表在哪可以找到??Top
4 楼ouyang75928（Thinking in Pascal）回复于 2003-09-02 12:06:41 得分 0
//SHARE_INFO_502
//typedef struct _SHARE_INFO_502
{
LPWSTR shi502_netname;
DWORD shi502_type;
LPWSTR shi502_remark;
DWORD shi502_permissions;
DWORD shi502_max_uses;
DWORD shi502_current_uses;
LPWSTR shi502_path;
LPWSTR shi502_passwd;
DWORD shi502_reserved;
PSECURITY_DESCRIPTOR shi502_security_descriptor;
}
在单元中定义一个，
TSHARE_INFO_502 = record
shi502_netname: WideString;
shi502_type: DWORD;
WideString shi502_remark: WideString;
shi502_permissions: DWORD;
shi502_max_uses: DWORD;
shi502_current_uses: DWORD;
shi502_path: WideString;
shi502_passwd: WideString;
shi502_reserved: DWORD;
shi502_security_descriptor: pSecurityDescriptor; //pSecurityDescriptor在windows.pas中有定义
end;Top
5 楼mmtxm（小秀秀）回复于 2003-09-02 12:11:39 得分 0
ACCESS_READ ACCESS_WRITE ACCESS_CREATE ACCESS_EXEC ACCESS_DELETE
ACCESS_ATRIB
ACCESS_PERM ACCESS_ALL 的值列表在哪可以找到??
Top
6 楼ouyang75928（Thinking in Pascal）回复于 2003-09-02 13:05:18 得分 0
const
ACCESS_READ = 1;
ACCESS_WRITE = 2;
ACCESS_CREATE = 4;
ACCESS_EXEC = 8;
ACCESS_DELETE = 16;
ACCESS_ALL = 127;
自己定义就行了。Top
7 楼ouyang75928（Thinking in Pascal）回复于 2003-09-02 13:07:05 得分 0
刚才漏了两个
const
ACCESS_READ = 1;
ACCESS_WRITE = 2;
ACCESS_CREATE = 4;
ACCESS_EXEC = 8;
ACCESS_DELETE = 16;
ACCESS_ATRIB = 32;
ACCESS_PERM = 64;
ACCESS_ALL = 127;Top
