Delphi 读内存函数

//没事写的一个delphi读内存函数function Ncnr(lpADDress :integer):integer;stdcall; //读内存函数 varThwnd :HWND;pid :HWND;pHandle:HWND;test:integer;lpNumberOfByt

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


相关推荐

[!--temp.pl--]