function TGameHackingEXE.AllocateMemoryEx(size : Integer) : Integer;
var
pResult       :  Pointer;
resultAddress :  ^Integer;
begin
    pResult:= nil;
    if (CheckHandle()) then
    begin
		pResult:= VirtualAllocEx(processHandle, nil, size, MEM_COMMIT, _
  PAGE_EXECUTE_READWRITE);
	end;
    if (pResult <> nil) then
    begin
        resultAddress:= @pResult;
        result:= resultAddress^;
    end
    else
        result:= 0;
end;

'Deklaration von GetAddrOf falls einigen nicht bekannt ist was das ist: siehe 
' z.b. VarPtr
Private Declare Function GetAddrOf Lib "KERNEL32" Alias "MulDiv" (nNumber As _
  Any, Optional ByVal nNumerator As Long = 1, Optional ByVal nDenominator As _
  Long = 1) As Long
 
Public Function AllocateMemoryEx(ByVal size As Long) As Long
Dim pResult       As Long
Dim resultAddress As Long
 
    If (CheckHandle()) Then pResult = VirtualAllocEx(ProcessHandle, ByVal 0&, _
      size, MEM_COMMIT, PAGE_EXECUTE_READWRITE)
    If (pResult <> 0) Then
        AllocateMemoryEx = pResult
 
        resultAddress = GetAddrOf(pResult)
        result = resultAddress
 
    Else
        AllocateMemoryEx = 0
    End If
End Function

___________________________________________________________________

[u]http://www.su.am