[DillerInc]

Savant

А мона кода побольше?

Код:

CreateFile(OpenDlgBox.lpstrFile, GENERIC_READ, 0, NIL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

...кстати,почему без "А" - меняется ли от этого что-нибудь?

Код:

VirtualAlloc(NIL, MemSize, MEM_COMMIT, PAGE_READWRITE);

Параметр MemSize типа DWORD получен какими-то непонятными ухищрениями от значания параметра FileSize:

Код:

asm
 mov eax, [FileSize]     // Этот 
 add eax, 00010000   // код
 and eax, 3FFF0000 //   не я придумал =]
 mov [MemSize], eax
end;

GetLastError в следующей конструкции:

Код:

if ReadFile(тра-ля-ля) = False then
 GetLastError;

...вроде бы возвращает значение 03Е6h = 998 = ERROR_NOACCESS (смотрел в отладчике), что возможно означает,что проблема в функции VirtualAlloc.

hEXE на всякий сделай типа HANDLE

...дык, Delphi начинает орать,что не знает такого идентификатора...