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
Delphi 读写其他进程内存
最新推荐文章于 2019-07-05 01:50:37 发布
该博客介绍了如何使用Delphi来读写其他进程的内存,包括读取内存、写入内存以及修改代码的示例代码。通过示例展示了如何打开进程、获取模块信息,并在目标进程中寻找特定地址进行内存操作。
摘要由CSDN通过智能技术生成