MemorySearch内存搜索工具

内存搜索工具 unit UnitMemorySearch; interface uses tlhelp32,strutils, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, Buttons, ExtCtrls; type TFrmMemory = class(TForm) ListAdress: TListBox; BtnFirst: TButton; BtnNext: TButton; Label1: TLabel; Edvalue1: TEdit; Label2: TLabel; ComMod: TComboBox; Label3: TLabel; Edvalue2: TEdit; Label4: TLabel; Edname: TEdit; Label5: TLabel; ComTypes: TComboBox; Label6: TLabel; stList: TListBox; Button1: TButton; ProgressBar1: TProgressBar; Edit1: TEdit; Label7: TLabel; BitBtn1: TBitBtn; Labpro: TLabel; Label8: TLabel; Listgetadr: TListBox; BtnAdd: TButton; Label9: TLabel; Edread: TEdit; Label10: TLabel; Edwrite: TEdit; Label11: TLabel; BtnWrite: TButton; BtnRead: TButton; Label12: TLabel; LabTime: TLabel; BtnSave: TButton; ListVal: TListBox; BtnAddVal1: TButton; BtnAddval2: TButton; BtnDelete: TButton; BtnSaveVal: TButton; BtnRAdd: TButton; Timer1: TTimer; CheckBox1: TCheckBox; BtnProset: TButton; labDebug: TLabel; ListTask: TListBox; BtnDelTask: TButton; BtnAddTask: TButton; Label13: TLabel; Label14: TLabel; Label15: TLabel; Label16: TLabel; ComTask: TComboBox; EdTaskAdr: TEdit; EdTaskVal: TEdit; Label17: TLabel; BtnResume: TButton; BtnRun: TButton; BtnTaskSave: TButton; Label18: TLabel; procedure BtnFirstClick(Sender: TObject); function GetmemoryValue(i,vsize:integer):integer; function FindAdress(trvalue,olvalue:integer):boolean; function FindAdress1(trvalue,olvalue:integer):boolean; procedure BtnNextClick(Sender: TObject); procedure Button1Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure ComModChange(Sender: TObject); procedure ListAdressDblClick(Sender: TObject); procedure