Hi,
ich portiere gerade eine Funktion aus meinem C++ Code nach Delphi und ich habe Delphi leider verlernt wie es scheint und verzweifle gerade daran zu casten:
Delphi-Quellcode:
hFile := CreateFileA(szDllName, GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
if hFile <> INVALID_HANDLE_VALUE then
begin
dwSize := GetFileSize(hFile, nil);
pbDLL := GetMemory(dwSize);
ReadFile(hFile, pbDLL, dwSize, dwRead, nil);
CloseHandle(hFile);
if IMAGE_DOS_HEADER(pbDLL).e_magic <> $5A4D then
begin
end;
end;
Es geht um den cast zu IMAGE_DOS_HEADER. Ich möchte nicht extra eine variable anlegen und size of dos header rein lesen. In c++ ist es easy:
reinterpret_cast<IMAGE_DOS_HEADER*>(pbDLL)->e_magic
apropro e_magic, kennt jemand magic um das in delphi ähnlich zu machen?
Danke im voraus!