Delphi 读写其他进程内存

unit Unit1;


interface


uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, Psapi, StdCtrls;


type

TForm1 = class(TForm)

Timer1: TTimer;

LabelHint: TLabel;

ButtonShow: TButton;

procedure Timer1Timer(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure ButtonShowClick(Sender: TObject);

private

FProcessAry: packed array of DWORD;

FModuleAry: packed array of DWORD;

FFileName: string;



FHasProcess: Boolean;

FProcessID: DWORD;


function DoWriteMem: Boolean;

public

{ Public declarations }

end;


var

Form1: TForm1;


implementation


{$R *.dfm}


function MyReadPrcoessMem(XHandle: Cardinal; XAddr: Cardinal; var RetValue: Cardinal): Boolean;

var

LOldProtect: DWORD;

LTmp: DWORD;

begin

VirtualProtectEx(XHandle, Pointer(XAddr), 4, PAGE_EXECUTE_READWRITE, LOldProtect);

Result := ReadProcessMemory(XHandle, Pointer(XAddr), @RetValue, SizeOf(RetValue), LTmp);

Virt