//没事写的一个delphi读内存函数

function Ncnr(lpADDress :integer):integer;stdcall;  //读内存函数

 var

Thwnd :HWND;

pid  :HWND;

pHandle:HWND;

test:integer;

lpNumberOfBytesRead:DWORD;

begin

Thwnd :=FindWindow('蜘蛛',nil);

GetWindowThreadProcessId(Thwnd,@pid);

pHandle:=OpenProcess(PROCESS_ALL_ACCESS,False,pid);

ReadProcessMemory(pHandle,Pointer(lpADDress),@test,sizeof(test),lpNumberOfBytesRead);

CloseHandle(pHandle);

  Result :=test;

end;