//没事写的一个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;