[utf8vcl-general] [utf8vcl - General] RE: Access Violation, Turbo Delphi

[SourceForge.net <no...@so...>]

Read and respond to this message at: 
https://sourceforge.net/forum/message.php?msg_id=4400045
By: nobody

I've found out that


function MakeWndProcIntercept(Original: TStdWndProcDef; Intercept:
TStdWndProcInterceptDef;
  Kind: Integer): TStdWndProcDef;
const
  { This is an assembly representation of StdWndProc }
  StdWndProcStub: array[0..46] of Byte =
   ($55, $8B, $EC, $83, $C4, $F8, $C7,
    $45, $F8, $FE, $FE, $FE, $FE, $8B, $45, $10, $50, $8B, $45, $14, $50, $8B,
$4D,
    $0C, $8B, $55, $08, $B8, $FE, $FE, $FE, $FE, $FF, $55, $F8, $89, $45, $FC,
$8B,
    $45, $FC, $59, $59, $5D, $C2, $10, $00);
begin
  Result := VirtualAlloc(nil, 256, MEM_COMMIT, PAGE_EXECUTE_READWRITE);
  Move(StdWndProcStub, Pointer(Result)^, Length(StdWndProcStub));


Result = nil so Move throw exception.

Do You have any idea why ?

______________________________________________________________________
You are receiving this email because you elected to monitor this forum.
To stop monitoring this forum, login to SourceForge.net and visit: 
https://sourceforge.net/forum/unmonitor.php?forum_id=671785