首页
社区
课程
招聘
[求助]类型转换遇到的问题
发表于: 2007-10-11 21:04 3860

[求助]类型转换遇到的问题

2007-10-11 21:04
3860
Program PE;
{$APPTYPE CONSOLE}

uses
    Windows, SysUtils;
var
    F, Dsig, PeOff : integer ;
    i, nSection : WORD ;
    PSig : Dword ;
    Buf : array[0..1024] of BYTE;
    PDos_Header : PImageDOSHeader;
    PFile_Header : PImageFileHeader;

begin
     F := FileOpen('Hello.exe', fmOpenRead);
     FileSeek(F, 0, 0);
     FileRead(F, Buf, 1024);
     PDos_Header := @Buf;
     PFile_Header := ( @Buf + sizeof(TImageDOSHeader) + 4 );
                       ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                       代码在这行编译通不过,请帮忙修改

[招生]科锐逆向工程师培训(2024年11月15日实地,远程教学同时开班, 第51期)

收藏
免费 0
支持
分享
最新回复 (1)
雪    币: 2384
活跃值: (766)
能力值: (RANK:410 )
在线值:
发帖
回帖
粉丝
2
//这样应该就可以了。
PFile_Header := pImageFileHeader(Cardinal(@Buf) + sizeof(TImageDOSHeader) + 4);
2007-10-12 09:40
0
游客
登录 | 注册 方可回帖
返回
//