我们知道在win32中有SHFlieOpStruct这个结构体,为什么在delphi中要这样声明的呢?var Opstuc:TSHFlieOpStruct

wenwenti01 2003-08-18 03:59:56
我们知道在win32中有SHFlieOpStruct这个结构体,为什么在delphi中要这样声明的呢?var Opstuc:TSHFlieOpStruct
为什么在SHFlieOpStruct中要多个字母T呢。
谢谢
...全文
80 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
wenwenti01 2003-08-18
  • 打赏
  • 举报
回复
thank u
lxpbuaa 2003-08-18
  • 打赏
  • 举报
回复
_SHFILEOPSTRUCTA = packed record
Wnd: HWND;
wFunc: UINT;
pFrom: PAnsiChar;
pTo: PAnsiChar;
fFlags: FILEOP_FLAGS;
fAnyOperationsAborted: BOOL;
hNameMappings: Pointer;
lpszProgressTitle: PAnsiChar; { only used if FOF_SIMPLEPROGRESS }
end;

SHFILEOPSTRUCTA = _SHFILEOPSTRUCTA;
SHFILEOPSTRUCT = SHFILEOPSTRUCTA;

TSHFileOpStructA = _SHFILEOPSTRUCTA;
TSHFileOpStruct = TSHFileOpStructA;

所以TSHFlieOpStruct和SHFlieOpStruct是完全一样的类型。加“T”表示类型名字Object Pascal默认规则。

————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————

5,379

社区成员

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

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