翻译一个c的结构到pascal,谢谢了

ikumei 2003-10-25 04:41:25
typedef struct _IMAGE_RESOURCE_DIRECTORY_ENTRY {
union {
struct {
DWORD NameOffset:31;
DWORD NameIsString:1;
};
DWORD Name;
WORD Id;
};
union {
DWORD OffsetToData;
struct {
DWORD OffsetToDirectory:31;
DWORD DataIsDirectory:1;
};
};
} IMAGE_RESOURCE_DIRECTORY_ENTRY, *PIMAGE_RESOURCE_DIRECTORY_ENTRY;
...全文
45 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
ikumei 2003-10-28
  • 打赏
  • 举报
回复
Delphi是有“联合”概念的,只是没想到c居然可以将一个类型拆成二进制位
哈哈,c还真是有趣
Seahilly 2003-10-28
  • 打赏
  • 举报
回复
有意思,在Delphi中只好做按位运算了,虽然麻烦一些,但是可以实现。
jinkaoyan 2003-10-28
  • 打赏
  • 举报
回复
弱形别语言要是没有共用体(像c的union)我觉得也是不完美的地方
yayv 2003-10-27
  • 打赏
  • 举报
回复
定义好相关的读写操作就是了,虽然麻烦了一点,但还是可行的。
bottom 2003-10-27
  • 打赏
  • 举报
回复
当鼠标在屏幕上移动是只要碰到 WINDOWS窗体的
密码框 或是 IE中是 密码显示的 TEXT框
都得捕获到密码,怎么做?
以下代码在2000,2003,XP下都不行啊?
procedure TForm1.Timer1Timer(Sender: TObject);
var p:Tpoint;hd:HWND;l:integer;buf:pchar;
begin GetCursorPos(p); hd:=WindowFromPoint(p);
l:=sendmessage(hd,WM_GETTEXTLENGTH,0,0); getmem(buf,l+2);
sendmessage(hd,WM_GETTEXT,l+1,int64(buf));
edit1.Text :=strpas(buf); freemem(buf);end;
bottom 2003-10-27
  • 打赏
  • 举报
回复
c太强大了 中国人没水平修改 微软和BORLAND的编译器 所以
只好 用老外写的语言 哎!

谁有J++BUILDER 9.0的破解包?
我用买来的光盘上的破解包 解了一下午也没搞定!
快帮助我?!谢谢!
ahjoe 2003-10-26
  • 打赏
  • 举报
回复
这个不行的,你只能定义一个DWORD,使用时用位运算。没有C那么方便。
ikumei 2003-10-26
  • 打赏
  • 举报
回复
我想也是,呵呵
没想到c还有这玩意儿
ikumei 2003-10-25
  • 打赏
  • 举报
回复
关键是
DWORD NameOffset:31;
DWORD NameIsString:1;

这个东西在delphi中没有

1,184

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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