Delphi编写内存遍历工具

1. 
   
2. unit Main;
   
3. interface
   
4. uses
   
5.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   
6.   Dialogs, StdCtrls, ExtCtrls, ComCtrls;
   
7. type
   
8.   PEdit = ^TEdit;
   
9.   TFilterData = Record
   
10.     m_Text: string;
    
11.     m_Int: Integer;
    
12.     m_UnSign: Cardinal;
    
13.     m_Float: Single;
    
14.     m_Double: Double;
    
15.   End;
    
16.   PFilterData = ^TFilterData;
    
17.   
    
18.   TfrmMain = class(TForm)
    
19.     GroupBox1: TGroupBox;
    
20.     cbProcess: TComboBox;
    
21.     btReFresh: TButton;
    
22.     Label1: TLabel;
    
23.     edtBaseAddress: TEdit;
    
24.     Label2: TLabel;
    
25.     edtOffset1: TEdit;
    
26.     Label3: TLabel;
    
27.     edtOffset2: TEdit;
    
28.     Label4: TLabel;
    
29.     edtOffset3: TEdit;
    
30.     Label5: TLabel;
    
31.     edtOffset4: TEdit;
    
32.     Label6: TLabel;
    
33.     edtOffset5: TEdit;
    
34.     Label7: TLabel;
    
35.     edtOffset6: TEdit;
    
36.     Label8: TLabel;
    
37.     edtOffset7: TEdit;
    
38.     Label9: TLabel;
    
39.     edtOffset8: TEdit;
    
40.     Label10: TLabel;
    
41.     edtOffset9: TEdit;
    
42.     Label11: TLabel;
    
43.     edtOffset10: TEdit;
    
44.     Label12: TLabel;
    
45.     edtOffset11: TEdit;
    
46.     Label13: TLabel;
    
47.     edtOffset12: TEdit;
    
48.     Panel1: TPanel;
    
49.     GroupBox2: TGroupBox;
    
50.     Label14: TLabel;
    
51.     cbOffset3: TComboBox;
    
52.     Label15: TLabel;
    
53.     edtOffsetCount3: TEdit;
    
54.     Label16: TLabel;
    
55.     edtLoopCount3: TEdit;
    
56.     GroupBox3: TGroupBox;
    
57.     Label17: TLabel;
    
58.     Label18: TLabel;
    
59.     Label19: TLabel;
    
60.     cbOffset2: TComboBox;
    
61.     edtOffsetCount2: TEdit;
    
62.     edtLoopCount2: TEdit;
    
63.     GroupBox4: TGroupBox;
    
64.     Label20: TLabel;
    
65.     Label21: TLabel;
    
66.     Label22: TLabel;
    
67.     cbOffset1: TComboBox;
    
68.     edtOffsetCount1: TEdit;
    
69.     edtLoopCount1: TEdit;
    
70.     Splitter1: TSplitter;
    
71.     Panel2: TPanel;
    
72.     Panel3: TPanel;
    
73.     Splitter2: TSplitter;
    
74.     lvResult: TListView;
    
75.     Label23: TLabel;
    
76.     Label24: TLabel;
    
77.     lbRecordCount: TLabel;
    
78.     Label26: TLabel;
    
79.     lbSelectCount: TLabel;
    
80.     Label28: TLabel;
    
81.     Panel4: TPanel;
    
82.     GroupBox6: TGroupBox;
    
83.     rbText: TRadioButton;
    
84.     rbInt: TRadioButton;
    
85.     rbUnSign: TRadioButton;
    
86.     rbFloat: TRadioButton;
    
87.     rbDouble: TRadioButton;
    
88.     GroupBox7: TGroupBox;
    
89.     rbEqual: TRadioButton;
    
90.     rbLarge: TRadioButton;
    
91.     rbLess: TRadioButton;
    
92.     rbUnequal: TRadioButton;
    
93.     rbLargeOrEqual: TRadioButton;
    
94.     rbLessOrEqual: TRadioButton;
    
95.     rbBetween: TRadioButton;
    
96.     lbFitler: TLabel;
    
97.     edtFilter: TEdit;
    
98.     lbLargeOrEqual: TLabel;
    
99.     edtSmall: TEdit;
    
100.     lbLessOrEqual: TLabel;
     
101.     edtLarge: TEdit;
     
102.     cbFilterInProcess: TCheckBox;
     
103.     btFilterInResult: TButton;
     
104.     btSave: TButton;
     
105.     btStart: TButton;
     
106.     btSelect: TButton;
     
107.     btSaveToFile: TButton;
     
108.     btClear: TButton;
     
109.     chkFloatToInt: TCheckBox;
     
110.     chkOffset1: TCheckBox;
     
111.     chkOffset2: TCheckBox;
     
112.     chkOffset3: TCheckBox;
     
113.     chkTextMatch: TCheckBox;
     
114.     procedure FormCreate(Sender: TObject);
     
115.     procedure btReFreshClick(Sender: TObject);
     
116.     procedure rbEqualClick(Sender: TObject);
     
117.     procedure chkOffset1Click(Sender: TObject);
     
118.     procedure chkOffset2Click(Sender: TObject);
     
119.     procedure chkOffset3Click(Sender: TObject);
     
120.     procedure btClearClick(Sender: TObject);
     
121.     procedure btStartClick(Sender: TObject);
     
122.     procedure cbProcessChange(Sender: TObject);
     
123.     procedure lvResultClick(Sender: TObject);
     
124.     procedure lvResultResize(Sender: TObject);
     
125.     procedure btFilterInResultClick(Sender: TObject);
     
126.     procedure rbTextClick(Sender: TObject);
     
127.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     
128.     procedure btSaveClick(Sender: TObject);
     
129.     procedure btSaveToFileClick(Sender: TObject);
     
130.     procedure btSelectClick(Sender: TObject);
     
131.   private
     
132.     { Private declarations }
     
133.     aryEdit: array[0..11] of PEdit;
     
134.     ProcessHandel: THandle;
     
135.     FResultCount: Cardinal;
     
136.     FSelCount: Cardinal;
     
137.     procedure SetResultCount(const Value: Cardinal);
     
138.     procedure SetSelCount(const Value: Cardinal);
     
139.     procedure SetSingleFilter(bSingle: Boolean);
     
140.     procedure rbClick;
     
141.     procedure rbTypeClick;
     
142.     procedure ClearListView;
     
143.     property ResultCount: Cardinal read FResultCount write SetResultCount;
     
144.     property SelCount: Cardinal read FSelCount write SetSelCount;
     
145.   public
     
146.     { Public declarations }
     
147.     procedure GetProcessInf;
     
148.     procedure ReadMemData(P: Pointer; pData: PFilterData);
     
149.     procedure ReadToListView(P: Pointer; Offset1,Offset2,Offset3: Cardinal);
     
150.     procedure AddListItem(pData: PFilterData; Offset1,Offset2,Offset3: Cardinal);
     
151.     procedure SaveSetting;
     
152.     procedure ReadSetting;
     
153.     function DebugPrivilege(bEnable: Boolean): Boolean;
     
154.     function GetSelProcessHandel: THandle;
     
155.     function DataFilter(pData: PFilterData): Boolean;
     
156.     function StrToFloatEx(str: string): Extended;
     
157.     function FloatToStrEx(flt: Extended): string;
     
158.     function HexToCardinal(hex: string): Cardinal;
     
159.     function IsFloat(f: Extended): Boolean;
     
160.     function TruncEx(r: Real): Int64;
     
161.     function ReadPointer(pAddress: Pointer): Pointer;
     
162.     function ReadCardinal(pAddress: Pointer): Cardinal;
     
163.     function ReadInteger(pAddress: Pointer): Integer;
     
164.     function ReadSingle(pAddress: Pointer): Single;
     
165.     function ReadDouble(pAddress: Pointer): Double;
     
166.     function ReadUnicode(pAddress: Pointer): string;
     
167.   end;
     
168.   
     
169. var
     
170.   frmMain: TfrmMain;
     
171. implementation
     
172. uses Tlhelp32, psapi, IniFiles;
     
173. {$R *.dfm}
     
174. { TfrmMain }
     
175. function TfrmMain.FloatToStrEx(flt: Extended): string;
     
176. begin
     
177.     try
     
178.         Result := FloatToStr(flt);
     
179.     except
     
180.         Result := '0.0';
     
181.     end;
     
182. end;
     
183. procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
     
184. begin
     
185.     ClearListView;
     
186. end;
     
187. procedure TfrmMain.FormCreate(Sender: TObject);
     
188. begin
     
189.     DebugPrivilege(True);
     
190.     GetProcessInf;
     
191.     SetSingleFilter(True);
     
192.     aryEdit[0] := @edtOffset1;
     
193.     aryEdit[1] := @edtOffset2;
     
194.     aryEdit[2] := @edtOffset3;
     
195.     aryEdit[3] := @edtOffset4;
     
196.     aryEdit[4] := @edtOffset5;
     
197.     aryEdit[5] := @edtOffset6;
     
198.     aryEdit[6] := @edtOffset7;
     
199.     aryEdit[7] := @edtOffset8;
     
200.     aryEdit[8] := @edtOffset9;
     
201.     aryEdit[9] := @edtOffset10;
     
202.     aryEdit[10] := @edtOffset11;
     
203.     aryEdit[11] := @edtOffset12;
     
204.     ReadSetting;
     
205. end;
     
206. procedure TfrmMain.GetProcessInf;
     
207. var
     
208.   lppe: TProcessEntry32;
     
209.   found : boolean;
     
210.   Hand : THandle;
     
211.   ProcessId:DWORD;
     
212.   ProcessName:string;
     
213. begin
     
214.     cbProcess.Clear;
     
215.     Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
     
216.     lppe.dwSize := SizeOf(TProcessEntry32);
     
217.     found := Process32First(Hand,lppe);
     
218.     while found do
     
219.     begin
     
220.         ProcessName := StrPas(lppe.szExeFile);
     
221.         if lppe.th32ProcessID>0 then
     
222.         begin
     
223.             ProcessId := lppe.th32ProcessID;
     
224.             cbProcess.Items.AddObject(ProcessName,TObject(ProcessId));
     
225.         end;
     
226.         found := Process32Next(Hand,lppe);
     
227.     end;
     
228. end;
     
229. function TfrmMain.GetSelProcessHandel: THandle;
     
230. var
     
231.     ProcessId: DWORD;
     
232. begin
     
233.     Result := 0;
     
234.     if cbProcess.ItemIndex < 0 then exit;
     
235.     ProcessId := DWORD(cbProcess.Items.Objects[cbProcess.ItemIndex]);
     
236.     Result := OpenProcess(PROCESS_ALL_ACCESS, FALSE, ProcessId);
     
237. end;
     
238. procedure TfrmMain.rbClick;
     
239. begin
     
240.     if rbBetween.Checked then
     
241.         SetSingleFilter(False)
     
242.     else
     
243.         SetSingleFilter(True);
     
244. end;
     
245. procedure TfrmMain.rbEqualClick(Sender: TObject);
     
246. begin
     
247.     rbClick;
     
248. end;
     
249. procedure TfrmMain.rbTextClick(Sender: TObject);
     
250. begin
     
251.     rbTypeClick;
     
252. end;
     
253. procedure TfrmMain.rbTypeClick;
     
254. begin
     
255.     if rbText.Checked then
     
256.     begin
     
257.         rbLarge.Enabled := False;
     
258.         rbLess.Enabled := False;
     
259.         rbUnequal.Enabled := False;
     
260.         rbLargeOrEqual.Enabled := False;
     
261.         rbLessOrEqual.Enabled := False;
     
262.         rbBetween.Enabled := False;
     
263.         rbEqual.Checked := True;
     
264.     end else
     
265.     begin
     
266.         rbLarge.Enabled := True;
     
267.         rbLess.Enabled := True;
     
268.         rbUnequal.Enabled := True;
     
269.         rbLargeOrEqual.Enabled := True;
     
270.         rbLessOrEqual.Enabled := True;
     
271.         rbBetween.Enabled := True;
     
272.     end;
     
273. end;
     
274. function TfrmMain.ReadCardinal(pAddress: Pointer): Cardinal;
     
275. var
     
276.   tmp: Cardinal;
     
277.   ReadCount: Cardinal;
     
278. begin
     
279.   Result := 0;
     
280.   if ProcessHandel = 0 then exit;
     
281.   if pAddress = nil then exit;
     
282.   ReadProcessMemory(ProcessHandel, pAddress, @tmp, SizeOf(tmp), ReadCount);
     
283.   Result := tmp;
     
284. end;
     
285. function TfrmMain.ReadDouble(pAddress: Pointer): Double;
     
286. var
     
287.   tmp: Double;
     
288.   ReadCount: Cardinal;
     
289. begin
     
290.   Result := 0;
     
291.   if ProcessHandel = 0 then exit;
     
292.   if pAddress = nil then exit;
     
293.   ReadProcessMemory(ProcessHandel, pAddress, @tmp, SizeOf(tmp), ReadCount);
     
294.   Result := tmp;
     
295. end;
     
296. function TfrmMain.ReadInteger(pAddress: Pointer): Integer;
     
297. var
     
298.   tmp: Integer;
     
299.   ReadCount: Cardinal;
     
300. begin
     
301.   Result := 0;
     
302.   if ProcessHandel = 0 then exit;
     
303.   if pAddress = nil then exit;
     
304.   ReadProcessMemory(ProcessHandel, pAddress, @tmp, SizeOf(tmp), ReadCount);
     
305.   Result := tmp;
     
306. end;
     
307. procedure TfrmMain.ReadMemData(P: Pointer; pData: PFilterData);
     
308. begin
     
309.     pData.m_Text := ReadUnicode(P);
     
310.     pData.m_Int := ReadInteger(P);
     
311.     pData.m_UnSign := ReadCardinal(P);
     
312.     try
     
313.         pData.m_Float := ReadSingle(P);
     
314.     except
     
315.         pData.m_Float := 0.0;
     
316.     end;
     
317.     try
     
318.         pData.m_Double := ReadDouble(P);
     
319.     except
     
320.         pData.m_Double := 0.0;
     
321.     end;
     
322. end;
     
323. function TfrmMain.ReadPointer(pAddress: Pointer): Pointer;
     
324. var
     
325.   tmp: Cardinal;
     
326.   ReadCount: Cardinal;
     
327. begin
     
328.   Result := nil;
     
329.   if ProcessHandel = 0 then exit;
     
330.   if pAddress = nil then exit;
     
331.   ReadProcessMemory(ProcessHandel, pAddress, @tmp, SizeOf(tmp), ReadCount);
     
332.   Result := Pointer(tmp);
     
333. end;
     
334. procedure TfrmMain.ReadSetting;
     
335. var
     
336.     iniFile: TIniFile;
     
337.     strPath: string;
     
338. begin
     
339.     strPath := GetCurrentDir+'\Readmem.ini';
     
340.     iniFile := TIniFile.Create(strPath);
     
341.     edtBaseAddress.Text := iniFile.ReadString('ReadMem','edtBaseAddress','');
     
342.     edtOffset1.Text := iniFile.ReadString('ReadMem','edtOffset1','');
     
343.     edtOffset2.Text := iniFile.ReadString('ReadMem','edtOffset2','');
     
344.     edtOffset3.Text := iniFile.ReadString('ReadMem','edtOffset3','');
     
345.     edtOffset4.Text := iniFile.ReadString('ReadMem','edtOffset4','');
     
346.     edtOffset5.Text := iniFile.ReadString('ReadMem','edtOffset5','');
     
347.     edtOffset6.Text := iniFile.ReadString('ReadMem','edtOffset6','');
     
348.     edtOffset7.Text := iniFile.ReadString('ReadMem','edtOffset7','');
     
349.     edtOffset8.Text := iniFile.ReadString('ReadMem','edtOffset8','');
     
350.     edtOffset9.Text := iniFile.ReadString('ReadMem','edtOffset9','');
     
351.     edtOffset10.Text := iniFile.ReadString('ReadMem','edtOffset10','');
     
352.     edtOffset11.Text := iniFile.ReadString('ReadMem','edtOffset11','');
     
353.     edtOffset12.Text := iniFile.ReadString('ReadMem','edtOffset12','');
     
354.     chkOffset1.Checked := iniFile.ReadBool('ReadMem','chkOffset1',False);
     
355.     cbOffset1.ItemIndex := iniFile.ReadInteger('ReadMem','cbOffset1',-1);
     
356.     edtOffsetCount1.Text := iniFile.ReadString('ReadMem','edtOffsetCount1','2');
     
357.     edtLoopCount1.Text := iniFile.ReadString('ReadMem','edtLoopCount1','500');
     
358.     chkOffset2.Checked := iniFile.ReadBool('ReadMem','chkOffset2',False);
     
359.     cbOffset2.ItemIndex := iniFile.ReadInteger('ReadMem','cbOffset2',-1);
     
360.     edtOffsetCount2.Text := iniFile.ReadString('ReadMem','edtOffsetCount2','2');
     
361.     edtLoopCount2.Text := iniFile.ReadString('ReadMem','edtLoopCount2','500');
     
362.     chkOffset3.Checked := iniFile.ReadBool('ReadMem','chkOffset3',False);
     
363.     cbOffset3.ItemIndex := iniFile.ReadInteger('ReadMem','cbOffset3',-1);
     
364.     edtOffsetCount3.Text := iniFile.ReadString('ReadMem','edtOffsetCount3','2');
     
365.     edtLoopCount3.Text := iniFile.ReadString('ReadMem','edtLoopCount3','500');
     
366. end;
     
367. function TfrmMain.ReadSingle(pAddress: Pointer): Single;
     
368. var
     
369.   tmp: Single;
     
370.   ReadCount: Cardinal;
     
371. begin
     
372.   Result := 0;
     
373.   if ProcessHandel = 0 then exit;
     
374.   if pAddress = nil then exit;
     
375.   ReadProcessMemory(ProcessHandel, pAddress, @tmp, SizeOf(tmp), ReadCount);
     
376.   Result := tmp;
     
377. end;
     
378. function TfrmMain.ReadUnicode(pAddress: Pointer): string;
     
379. var
     
380.   tmp: array[0..31] of WideChar;
     
381.   ReadCount: Cardinal;
     
382. begin
     
383.   Result := '';
     
384.   if ProcessHandel = 0 then exit;
     
385.   if pAddress = nil then exit;
     
386.   ReadProcessMemory(ProcessHandel, pAddress, @tmp, SizeOf(tmp), ReadCount);
     
387.   Result := tmp;
     
388. end;
     
389. procedure TfrmMain.ReadToListView(P: Pointer; Offset1, Offset2,
     
390.   Offset3: Cardinal);
     
391. var
     
392.     pData: PFilterData;
     
393. begin
     
394.     New(pData);
     
395.     ReadMemData(P, pData);
     
396.     if cbFilterInProcess.Checked then
     
397.     begin
     
398.         if DataFilter(pData) then
     
399.             AddListItem(pData,Offset1,Offset2,Offset3)
     
400.         else
     
401.             Dispose(pData);
     
402.     end else
     
403.         AddListItem(pData,Offset1,Offset2,Offset3);
     
404. end;
     
405. procedure TfrmMain.SaveSetting;
     
406. var
     
407.     iniFile: TIniFile;
     
408.     strPath: string;
     
409. begin
     
410.     strPath := GetCurrentDir+'\Readmem.ini';
     
411.     iniFile := TIniFile.Create(strPath);
     
412.     with iniFile do
     
413.     begin
     
414.         WriteString('ReadMem', 'edtBaseAddress', edtBaseAddress.Text);
     
415.         WriteString('ReadMem', 'edtOffset1', edtOffset1.Text);
     
416.         WriteString('ReadMem', 'edtOffset2', edtOffset2.Text);
     
417.         WriteString('ReadMem', 'edtOffset3', edtOffset3.Text);
     
418.         WriteString('ReadMem', 'edtOffset4', edtOffset4.Text);
     
419.         WriteString('ReadMem', 'edtOffset5', edtOffset5.Text);
     
420.         WriteString('ReadMem', 'edtOffset6', edtOffset6.Text);
     
421.         WriteString('ReadMem', 'edtOffset7', edtOffset7.Text);
     
422.         WriteString('ReadMem', 'edtOffset8', edtOffset8.Text);
     
423.         WriteString('ReadMem', 'edtOffset9', edtOffset9.Text);
     
424.         WriteString('ReadMem', 'edtOffset10', edtOffset10.Text);
     
425.         WriteString('ReadMem', 'edtOffset11', edtOffset11.Text);
     
426.         WriteString('ReadMem', 'edtOffset12', edtOffset12.Text);
     
427.         WriteBool('ReadMem', 'chkOffset1', chkOffset1.Checked);
     
428.         WriteInteger('ReadMem', 'cbOffset1', cbOffset1.ItemIndex);
     
429.         WriteString('ReadMem', 'edtOffsetCount1', edtOffsetCount1.Text);
     
430.         WriteString('ReadMem', 'edtLoopCount1', edtLoopCount1.Text);
     
431.         WriteBool('ReadMem', 'chkOffset2', chkOffset2.Checked);
     
432.         WriteInteger('ReadMem', 'cbOffset2', cbOffset2.ItemIndex);
     
433.         WriteString('ReadMem', 'edtOffsetCount2', edtOffsetCount2.Text);
     
434.         WriteString('ReadMem', 'edtLoopCount2', edtLoopCount2.Text);
     
435.         WriteBool('ReadMem', 'chkOffset3', chkOffset3.Checked);
     
436.         WriteInteger('ReadMem', 'cbOffset3', cbOffset3.ItemIndex);
     
437.         WriteString('ReadMem', 'edtOffsetCount3', edtOffsetCount3.Text);
     
438.         WriteString('ReadMem', 'edtLoopCount3', edtLoopCount3.Text);
     
439.     end;
     
440. end;
     
441. procedure TfrmMain.SetResultCount(const Value: Cardinal);
     
442. begin
     
443.   FResultCount := Value;
     
444.   lbRecordCount.Caption := IntToStr(FResultCount);
     
445. end;
     
446. procedure TfrmMain.SetSelCount(const Value: Cardinal);
     
447. begin
     
448.   FSelCount := Value;
     
449.   lbSelectCount.Caption := IntToStr(FSelCount);
     
450. end;
     
451. procedure TfrmMain.SetSingleFilter(bSingle: Boolean);
     
452. begin
     
453.     if bSingle then
     
454.     begin
     
455.         lbFitler.Visible := True;
     
456.         edtFilter.Visible := True;
     
457.         lbLargeOrEqual.Visible := False;
     
458.         lbLessOrEqual.Visible := False;
     
459.         edtLarge.Visible := False;
     
460.         edtSmall.Visible := False;
     
461.     end else
     
462.     begin
     
463.         lbFitler.Visible := False;
     
464.         edtFilter.Visible := False;
     
465.         lbLargeOrEqual.Visible := True;
     
466.         lbLessOrEqual.Visible := True;
     
467.         edtLarge.Visible := True;
     
468.         edtSmall.Visible := True;
     
469.     end;
     
470. end;
     
471. function TfrmMain.StrToFloatEx(str: string): Extended;
     
472. var
     
473.     tmp: string;
     
474. begin
     
475.     tmp := str;
     
476.     if Pos('.', tmp) < 1 then
     
477.         tmp := tmp + '.0';
     
478.     try
     
479.         Result := StrToFloat(tmp);
     
480.     except
     
481.         ShowMessage(''''+tmp+'''转换为浮点型时出错！');
     
482.         Result := 0.0;
     
483.     end;
     
484. end;
     
485. function TfrmMain.TruncEx(r: Real): Int64;
     
486. var
     
487.     tmp: string;
     
488.     p: Integer;
     
489. begin
     
490.     tmp := FloatToStrEx(r);
     
491.     p := Pos('.', tmp);
     
492.     if p > 0 then
     
493.         tmp := Copy(tmp, 0, p-1);
     
494.     Result := StrToInt64(tmp);
     
495. end;
     
496. function TfrmMain.IsFloat(f: Extended): Boolean;
     
497. var
     
498.     tmp: Extended;
     
499. begin
     
500.     try
     
501.         tmp := Trunc(f);
     
502.         Result := True;
     
503.     except
     
504.         Result := False;
     
505.     end;
     
506. end;
     
507. function TfrmMain.HexToCardinal(hex: string): Cardinal;
     
508. begin
     
509.     Result := StrToInt('$'+hex);
     
510. end;
     
511. procedure TfrmMain.lvResultClick(Sender: TObject);
     
512. begin
     
513.     SelCount := lvResult.SelCount;
     
514. end;
     
515. procedure TfrmMain.lvResultResize(Sender: TObject);
     
516. var
     
517.     ColWidth: Integer;
     
518.     tmp: Integer;
     
519. begin
     
520.     ColWidth := 30;
     
521.     tmp := lvResult.Width div 25;
     
522.     if (tmp < (ColWidth+2)) then
     
523.         tmp := ColWidth;
     
524.     lvResult.Columns[0].Width := tmp *  4;
     
525.     lvResult.Columns[1].Width := tmp *  3;
     
526.     lvResult.Columns[2].Width := tmp *  3;
     
527.     lvResult.Columns[3].Width := tmp *  3;
     
528.     lvResult.Columns[4].Width := tmp *  3;
     
529.     lvResult.Columns[5].Width := tmp *  3;
     
530.     lvResult.Columns[6].Width := tmp *  3;
     
531.     lvResult.Columns[7].Width := tmp *  3;
     
532. end;
     
533. procedure TfrmMain.AddListItem(pData: PFilterData; Offset1,Offset2,Offset3: Cardinal);
     
534. var
     
535.     lvItem: TListItem;
     
536.     tmpStr: string;
     
537. begin
     
538.     lvItem := lvResult.Items.Add;
     
539.     lvItem.Data := pData;
     
540.     lvItem.Caption := pData.m_Text;
     
541.    
     
542.     lvItem.SubItems.Add(IntToStr(pData.m_Int));
     
543.     lvItem.SubItems.Add(IntToStr(pData.m_UnSign));
     
544.     tmpStr := FloatToStrEx(pData.m_Float);
     
545.     lvItem.SubItems.Add(tmpStr);
     
546.     tmpStr := FloatToStrEx(pData.m_Double);
     
547.     lvItem.SubItems.Add(tmpStr);
     
548.     lvItem.SubItems.Add(IntToHex(Offset1, 4));
     
549.     lvItem.SubItems.Add(IntToHex(Offset2, 4));
     
550.     lvItem.SubItems.Add(IntToHex(Offset3, 4));
     
551.     ResultCount := ResultCount + 1;
     
552. end;
     
553. procedure TfrmMain.btClearClick(Sender: TObject);
     
554. begin
     
555.     ClearListView;
     
556. end;
     
557. procedure TfrmMain.btFilterInResultClick(Sender: TObject);
     
558. var
     
559.     I: Cardinal;
     
560.     pData: PFilterData;
     
561.     lstItemCount: Cardinal;
     
562. begin
     
563.     I := 0;
     
564.     lstItemCount := lvResult.Items.Count;
     
565.     while lstItemCount > I do
     
566.     begin
     
567.         pData := lvResult.Items.Item[I].Data;
     
568.         if DataFilter(pData) = False then
     
569.         begin
     
570.             Dispose(pData);
     
571.             lvResult.Items.Delete(I);
     
572.             lstItemCount := lstItemCount -1;
     
573.             ResultCount := ResultCount -1;
     
574.         end else
     
575.             I := I + 1;
     
576.     end;
     
577. end;
     
578. procedure TfrmMain.btReFreshClick(Sender: TObject);
     
579. begin
     
580.     GetProcessInf;
     
581. end;
     
582. procedure TfrmMain.btSaveClick(Sender: TObject);
     
583. begin
     
584.     SaveSetting;
     
585. end;
     
586. procedure TfrmMain.btSaveToFileClick(Sender: TObject);
     
587. var
     
588.   i,j: Integer;
     
589.   s: string;
     
590.   StrList: TStringList;
     
591.   SaveDlg: TSaveDialog;
     
592.   SaveName: string;
     
593. begin
     
594.     with lvResult do
     
595.     begin
     
596.         StrList := TStringList.Create;
     
597.         s := '文本'+#9+'整型'+#9+'无符整型'+#9+'浮点型'+#9+'双精度'+#9+'一级偏量'+#9+'二级偏量'+#9+'三级偏量';
     
598.         StrList.Add(s);
     
599.         for i := 0 to Items.Count-1 do
     
600.         begin
     
601.             s := Items[i].Caption;
     
602.             for j := 1 to Columns.Count-1 do
     
603.             begin
     
604.                 s := s + #9 + items[i].subitems[j-1];
     
605.             end;
     
606.             StrList.Add(s);
     
607.         end;
     
608.     end;
     
609.     SaveDlg := TSaveDialog.Create(nil);
     
610.     SaveDlg.Filter := 'txt';
     
611.     if SaveDlg.Execute(self.Handle) = False then exit;
     
612.     SaveName := SaveDlg.FileName + '.' + SaveDlg.Filter;
     
613.     SaveDlg.Free;
     
614.     StrList.SaveToFile(SaveName);
     
615.     StrList.Free;
     
616. end;
     
617. procedure TfrmMain.btSelectClick(Sender: TObject);
     
618. begin
     
619.     MessageBox(self.Handle, '作者：ABC'+#13+'QQ:67217629', '内存遍历ABC', MB_OKCANCEL);
     
620. end;
     
621. procedure TfrmMain.btStartClick(Sender: TObject);
     
622. var
     
623.     I,J,K,L: Integer;
     
624.     P,BaseAddress: Pointer;
     
625.     tmpCardinal: Cardinal;
     
626.     Offset1, Offset2, Offset3: Cardinal;
     
627. begin
     
628.     if ProcessHandel = 0 then
     
629.     begin
     
630.         ShowMessage('请选择要操作的进程.');
     
631.         cbProcess.SetFocus;
     
632.         exit;
     
633.     end;
     
634.     if edtBaseAddress.Text = '' then
     
635.     begin
     
636.         ShowMessage('请设置基址.');
     
637.         edtBaseAddress.SetFocus;
     
638.         exit;
     
639.     end;
     
640.     BaseAddress := Pointer(HexToCardinal(edtBaseAddress.Text));
     
641.     I := 0; J := 0; K := 0;
     
642.     if chkOffset1.Checked = False then
     
643.     begin
     
644.         P := BaseAddress;
     
645.         Offset1 := 0; Offset2 := 0; Offset3 := 0;
     
646.         for L := 0 to 11 do
     
647.         begin
     
648.             if P = nil then Break;
     
649.             if aryEdit[L].Text = '' then Break;
     
650.             P := ReadPointer(P);
     
651.             tmpCardinal := HexToCardinal(aryEdit[L].Text);
     
652.             P := Pointer(Cardinal(P) + tmpCardinal);
     
653.         end;
     
654.         ReadToListView(P, Offset1, Offset2, Offset3);
     
655.         Exit;
     
656.     end;
     
657.     for I := 0 to StrToInt(edtLoopCount1.Text) do
     
658.     begin
     
659.         if chkOffset2.Checked = False then
     
660.         begin
     
661.             P := BaseAddress;
     
662.             Offset1 := 0; Offset2 := 0; Offset3 := 0;
     
663.             for L := 0 to 11 do
     
664.             begin
     
665.                 if P = nil then Break;
     
666.                 if aryEdit[L].Text = '' then Break;
     
667.                 P := ReadPointer(P);
     
668.                 tmpCardinal := HexToCardinal(aryEdit[L].Text);
     
669.                 if L = cbOffset1.ItemIndex then
     
670.                 begin
     
671.                     Offset1 := HexToCardinal(edtOffsetCount1.Text)*I;
     
672.                     tmpCardinal := tmpCardinal + Offset1;
     
673.                 end;
     
674.                 P := Pointer(Cardinal(P) + tmpCardinal);
     
675.             end;
     
676.             ReadToListView(P, Offset1, Offset2, Offset3);
     
677.             Continue;
     
678.         end;
     
679.         for J := 0 to StrToInt(edtLoopCount2.Text) do
     
680.         begin
     
681.             if chkOffset3.Checked = False then
     
682.             begin
     
683.                 P := BaseAddress;
     
684.                 Offset1 := 0; Offset2 := 0; Offset3 := 0;
     
685.                 for L := 0 to 11 do
     
686.                 begin
     
687.                     if P = nil then Break;
     
688.                     if aryEdit[L].Text = '' then Break;
     
689.                     P := ReadPointer(P);
     
690.                     tmpCardinal := HexToCardinal(aryEdit[L].Text);
     
691.                     if L = cbOffset1.ItemIndex then
     
692.                     begin
     
693.                         Offset1 := HexToCardinal(edtOffsetCount1.Text)*I;
     
694.                         tmpCardinal := tmpCardinal + Offset1;
     
695.                     end;
     
696.                     if L = cbOffset2.ItemIndex then
     
697.                     begin
     
698.                         Offset2 := HexToCardinal(edtOffsetCount2.Text)*J;
     
699.                         tmpCardinal := tmpCardinal + Offset2;
     
700.                     end;
     
701.                     P := Pointer(Cardinal(P) + tmpCardinal);
     
702.                 end;
     
703.                 ReadToListView(P, Offset1, Offset2, Offset3);
     
704.                 Continue;
     
705.             end;
     
706.             for K := 0 to StrToInt(edtLoopCount3.Text) do
     
707.             begin
     
708.                 P := BaseAddress;
     
709.                 Offset1 := 0; Offset2 := 0; Offset3 := 0;
     
710.                 for L := 0 to 11 do
     
711.                 begin
     
712.                     if P = nil then Break;
     
713.                     if aryEdit[L].Text = '' then Break;
     
714.                     P := ReadPointer(P);
     
715.                     tmpCardinal := HexToCardinal(aryEdit[L].Text);
     
716.                     if L = cbOffset1.ItemIndex then
     
717.                     begin
     
718.                         Offset1 := HexToCardinal(edtOffsetCount1.Text)*I;
     
719.                         tmpCardinal := tmpCardinal + Offset1;
     
720.                     end;
     
721.                     if L = cbOffset2.ItemIndex then
     
722.                     begin
     
723.                         Offset2 := HexToCardinal(edtOffsetCount2.Text)*J;
     
724.                         tmpCardinal := tmpCardinal + Offset2;
     
725.                     end;
     
726.                     if L = cbOffset3.ItemIndex then
     
727.                     begin
     
728.                         Offset3 := HexToCardinal(edtOffsetCount3.Text)*K;
     
729.                         tmpCardinal := tmpCardinal + Offset3;
     
730.                     end;
     
731.                     P := Pointer(Cardinal(P) + tmpCardinal);
     
732.                 end;
     
733.                 ReadToListView(P, Offset1, Offset2, Offset3);
     
734.             end;
     
735.         end;
     
736.     end;
     
737. end;
     
738. procedure TfrmMain.chkOffset2Click(Sender: TObject);
     
739. begin
     
740.     if chkOffset2.Checked then
     
741.     begin
     
742.         cbOffset2.Enabled := True;
     
743.         edtOffsetCount2.Enabled := True;
     
744.         edtLoopCount2.Enabled := True;
     
745.         chkOffset3.Enabled := True;
     
746.         cbOffset2.ItemIndex := cbOffset1.ItemIndex+1;
     
747.     end else
     
748.     begin
     
749.         cbOffset2.Enabled := False;
     
750.         edtOffsetCount2.Enabled := False;
     
751.         edtLoopCount2.Enabled := False;
     
752.         chkOffset3.Checked := False;
     
753.         chkOffset3.Enabled := False;
     
754.     end;
     
755. end;
     
756. procedure TfrmMain.chkOffset3Click(Sender: TObject);
     
757. begin
     
758.     if chkOffset3.Checked then
     
759.     begin
     
760.         cbOffset3.Enabled := True;
     
761.         edtOffsetCount3.Enabled := True;
     
762.         edtLoopCount3.Enabled := True;
     
763.         cbOffset3.ItemIndex := cbOffset2.ItemIndex+1;
     
764.     end else
     
765.     begin
     
766.         cbOffset3.Enabled := False;
     
767.         edtOffsetCount3.Enabled := False;
     
768.         edtLoopCount3.Enabled := False;
     
769.     end;
     
770. end;
     
771. procedure TfrmMain.ClearListView;
     
772. var
     
773.     I: Integer;
     
774. begin
     
775.     for I := 0 to lvResult.Items.Count - 1 do
     
776.     begin
     
777.             Dispose(lvResult.Items.Item[I].Data);
     
778.     end;
     
779.     lvResult.Clear;
     
780.     ResultCount := 0;
     
781.     SelCount := 0;
     
782. end;
     
783. procedure TfrmMain.cbProcessChange(Sender: TObject);
     
784. begin
     
785.     if ProcessHandel <> 0 then CloseHandle(ProcessHandel);
     
786.     ProcessHandel := GetSelProcessHandel;
     
787. end;
     
788. procedure TfrmMain.chkOffset1Click(Sender: TObject);
     
789. var
     
790.     I: Integer;
     
791. begin
     
792.     if chkOffset1.Checked then
     
793.     begin
     
794.         cbOffset1.Enabled := True;
     
795.         edtOffsetCount1.Enabled := True;
     
796.         edtLoopCount1.Enabled := True;
     
797.         chkOffset2.Enabled := True;
     
798.         for I := 0 to 11 do
     
799.         begin
     
800.             if aryEdit[I].Text = '' then Break;
     
801.         end;
     
802.         cbOffset1.ItemIndex := I-1;
     
803.     end else
     
804.     begin
     
805.         cbOffset1.Enabled := False;
     
806.         edtOffsetCount1.Enabled := False;
     
807.         edtLoopCount1.Enabled := False;
     
808.         chkOffset2.Checked := False;
     
809.         chkOffset3.Checked := False;
     
810.         chkOffset2.Enabled := False;
     
811.         chkOffset3.Enabled := False;
     
812.     end;
     
813. end;
     
814. function TfrmMain.DataFilter(pData: PFilterData): Boolean;
     
815. var
     
816.     tmpInt1, tmpInt2, tmpInt3: Int64;
     
817.     tmpFloat1, tmpFloat2, tmpFloat3: Single;
     
818.     tmpDouble1, tmpDouble2, tmpDouble3: Double;
     
819. begin
     
820.     Result := False;
     
821.     tmpInt1:=0; tmpInt2:=0; tmpInt3:=0;
     
822.     tmpFloat1:=0.0; tmpFloat2:=0.0; tmpFloat3:=0.0;
     
823.     tmpDouble1:=0.0; tmpDouble2:=0.0; tmpDouble3:=0.0;
     
824.     if rbText.Checked then
     
825.     begin
     
826.         if rbEqual.Checked then
     
827.         begin
     
828.             if chkTextMatch.Checked then
     
829.                 Result := (Pos(edtFilter.Text, pData.m_Text) > 0)
     
830.             else
     
831.                 Result := (edtFilter.Text = pData.m_Text);
     
832.             exit;
     
833.         end;
     
834.         exit;
     
835.     end;
     
836.     if rbInt.Checked then
     
837.     begin
     
838.         if rbEqual.Checked then
     
839.         begin
     
840.             Result := (pData.m_Int = StrToInt(edtFilter.Text));
     
841.             exit;
     
842.         end;
     
843.         if rbLarge.Checked then
     
844.         begin
     
845.             Result := (pData.m_Int > StrToInt(edtFilter.Text));
     
846.             exit;
     
847.         end;
     
848.         if rbLess.Checked then
     
849.         begin
     
850.             Result := (pData.m_Int < StrToInt(edtFilter.Text));
     
851.             exit;
     
852.         end;
     
853.         if rbUnequal.Checked then
     
854.         begin
     
855.             Result := (pData.m_Int <> StrToInt(edtFilter.Text));
     
856.             exit;
     
857.         end;
     
858.         if rbLargeOrEqual.Checked then
     
859.         begin
     
860.             Result := (pData.m_Int >= StrToInt(edtFilter.Text));
     
861.             exit;
     
862.         end;
     
863.         if rbLessOrEqual.Checked then
     
864.         begin
     
865.             Result := (pData.m_Int <= StrToInt(edtFilter.Text));
     
866.             exit;
     
867.         end;
     
868.         if rbBetween.Checked then
     
869.         begin
     
870.             Result := ((pData.m_Int >= StrToInt(edtSmall.Text)) And
     
871.                         (pData.m_Int <= StrToInt(edtLarge.Text)));
     
872.             exit;
     
873.         end;
     
874.         exit;
     
875.     end;
     
876.     if rbUnSign.Checked then
     
877.     begin
     
878.         if rbEqual.Checked then
     
879.         begin
     
880.             Result := (pData.m_UnSign = StrToInt(edtFilter.Text));
     
881.             exit;
     
882.         end;
     
883.         if rbLarge.Checked then
     
884.         begin
     
885.             Result := (pData.m_UnSign > StrToInt(edtFilter.Text));
     
886.             exit;
     
887.         end;
     
888.         if rbLess.Checked then
     
889.         begin
     
890.             Result := (pData.m_UnSign < StrToInt(edtFilter.Text));
     
891.             exit;
     
892.         end;
     
893.         if rbUnequal.Checked then
     
894.         begin
     
895.             Result := (pData.m_UnSign <> StrToInt(edtFilter.Text));
     
896.             exit;
     
897.         end;
     
898.         if rbLargeOrEqual.Checked then
     
899.         begin
     
900.             Result := (pData.m_UnSign >= StrToInt(edtFilter.Text));
     
901.             exit;
     
902.         end;
     
903.         if rbLessOrEqual.Checked then
     
904.         begin
     
905.             Result := (pData.m_UnSign <= StrToInt(edtFilter.Text));
     
906.             exit;
     
907.         end;
     
908.         if rbBetween.Checked then
     
909.         begin
     
910.             Result := ((pData.m_UnSign >= StrToInt(edtSmall.Text)) And
     
911.                         (pData.m_UnSign <= StrToInt(edtLarge.Text)));
     
912.             exit;
     
913.         end;
     
914.         exit;
     
915.     end;
     
916.     if rbFloat.Checked then
     
917.     begin
     
918.         if IsFloat(pData.m_Float) = False then Exit;
     
919.         
     
920.         if chkFloatToInt.Checked then
     
921.         begin
     
922.             tmpInt1 := TruncEx(pData.m_Float);
     
923.             tmpInt2 := Trunc(StrToFloatEx(edtFilter.Text));
     
924.         end else
     
925.         begin
     
926.             tmpFloat1 := pData.m_Float;
     
927.             tmpFloat2 := StrToFloatEx(edtFilter.Text);
     
928.         end;
     
929.         if rbEqual.Checked then
     
930.         begin
     
931.             if chkFloatToInt.Checked then
     
932.                 Result := (tmpInt1 = tmpInt2)
     
933.             else
     
934.                 Result := (tmpFloat1 = tmpFloat2);
     
935.             exit;
     
936.         end;
     
937.         if rbLarge.Checked then
     
938.         begin
     
939.             if chkFloatToInt.Checked then
     
940.                 Result := (tmpInt1 > tmpInt2)
     
941.             else
     
942.                 Result := (tmpFloat1 > tmpFloat2);
     
943.             exit;
     
944.         end;
     
945.         if rbLess.Checked then
     
946.         begin
     
947.             if chkFloatToInt.Checked then
     
948.                 Result := (tmpInt1 < tmpInt2)
     
949.             else
     
950.                 Result := (tmpFloat1 < tmpFloat2);
     
951.             exit;
     
952.         end;
     
953.         if rbUnequal.Checked then
     
954.         begin
     
955.             if chkFloatToInt.Checked then
     
956.                 Result := (tmpInt1 <> tmpInt2)
     
957.             else
     
958.                 Result := (tmpFloat1 <> tmpFloat2);
     
959.             exit;
     
960.         end;
     
961.         if rbLargeOrEqual.Checked then
     
962.         begin
     
963.             if chkFloatToInt.Checked then
     
964.                 Result := (tmpInt1 >= tmpInt2)
     
965.             else
     
966.                 Result := (tmpFloat1 >= tmpFloat2);
     
967.             exit;
     
968.         end;
     
969.         if rbLessOrEqual.Checked then
     
970.         begin
     
971.             if chkFloatToInt.Checked then
     
972.                 Result := (tmpInt1 <= tmpInt2)
     
973.             else
     
974.                 Result := (tmpFloat1 <= tmpFloat2);
     
975.             exit;
     
976.         end;
     
977.         if rbBetween.Checked then
     
978.         begin
     
979.             if chkFloatToInt.Checked then
     
980.             begin
     
981.                 tmpInt2 := Trunc(StrToFloatEx(edtSmall.Text));
     
982.                 tmpInt3 := Trunc(StrToFloatEx(edtLarge.Text));
     
983.                 Result := ((tmpInt1 >= tmpInt2) And (tmpInt1 <= tmpInt3));
     
984.             end else
     
985.             begin
     
986.                 tmpFloat2 := StrToFloatEx(edtSmall.Text);
     
987.                 tmpFloat3 := StrToFloatEx(edtLarge.Text);
     
988.                 Result := ((tmpFloat1 >= tmpFloat2) And (tmpFloat1 <= tmpFloat3));
     
989.             end;
     
990.             exit;
     
991.         end;
     
992.         exit;
     
993.     end;
     
994.     if rbDouble.Checked then
     
995.     begin
     
996.         if IsFloat(pData.m_Double) = False then Exit;
     
997.         
     
998.         if chkFloatToInt.Checked then
     
999.         begin
     
1000.             tmpInt1 := TruncEx(pData.m_Double);
      
1001.             tmpInt2 := Trunc(StrToFloatEx(edtFilter.Text));
      
1002.         end else
      
1003.         begin
      
1004.             tmpDouble1 := pData.m_Double;
      
1005.             tmpDouble2 := StrToFloatEx(edtFilter.Text);
      
1006.         end;
      
1007.         if rbEqual.Checked then
      
1008.         begin
      
1009.             if chkFloatToInt.Checked then
      
1010.                 Result := (tmpInt1 = tmpInt2)
      
1011.             else
      
1012.                 Result := (tmpDouble1 = tmpDouble2);
      
1013.             exit;
      
1014.         end;
      
1015.         if rbLarge.Checked then
      
1016.         begin
      
1017.             if chkFloatToInt.Checked then
      
1018.                 Result := (tmpInt1 > tmpInt2)
      
1019.             else
      
1020.                 Result := (tmpDouble1 > tmpDouble2);
      
1021.             exit;
      
1022.         end;
      
1023.         if rbLess.Checked then
      
1024.         begin
      
1025.             if chkFloatToInt.Checked then
      
1026.                 Result := (tmpInt1 < tmpInt2)
      
1027.             else
      
1028.                 Result := (tmpDouble1 < tmpDouble2);
      
1029.             exit;
      
1030.         end;
      
1031.         if rbUnequal.Checked then
      
1032.         begin
      
1033.             if chkFloatToInt.Checked then
      
1034.                 Result := (tmpInt1 <> tmpInt2)
      
1035.             else
      
1036.                 Result := (tmpDouble1 <> tmpDouble2);
      
1037.             exit;
      
1038.         end;
      
1039.         if rbLargeOrEqual.Checked then
      
1040.         begin
      
1041.             if chkFloatToInt.Checked then
      
1042.                 Result := (tmpInt1 >= tmpInt2)
      
1043.             else
      
1044.                 Result := (tmpDouble1 >= tmpDouble2);
      
1045.             exit;
      
1046.         end;
      
1047.         if rbLessOrEqual.Checked then
      
1048.         begin
      
1049.             if chkFloatToInt.Checked then
      
1050.                 Result := (tmpInt1 <= tmpInt2)
      
1051.             else
      
1052.                 Result := (tmpDouble1 <= tmpDouble2);
      
1053.             exit;
      
1054.         end;
      
1055.         if rbBetween.Checked then
      
1056.         begin
      
1057.             if chkFloatToInt.Checked then
      
1058.             begin
      
1059.                 tmpInt2 := Trunc(StrToFloatEx(edtSmall.Text));
      
1060.                 tmpInt3 := Trunc(StrToFloatEx(edtLarge.Text));
      
1061.                 Result := ((tmpInt1 >= tmpInt2) And (tmpInt1 <= tmpInt3));
      
1062.             end else
      
1063.             begin
      
1064.                 tmpDouble2 := StrToFloatEx(edtSmall.Text);
      
1065.                 tmpDouble3 := StrToFloatEx(edtLarge.Text);
      
1066.                 Result := ((tmpFloat1 >= tmpDouble2) And (tmpFloat1 <= tmpDouble3));
      
1067.             end;
      
1068.             exit;
      
1069.         end;
      
1070.         exit;
      
1071.     end;
      
1072. end;
      
1073. function TfrmMain.DebugPrivilege(bEnable: Boolean): Boolean;
      
1074. var
      
1075.     hToken: THandle;
      
1076.     TokenPrivileges: TTokenPrivileges;
      
1077.     RetLength: DWORD;
      
1078. begin
      
1079.     Result := true;
      
1080.     If OpenProcessToken(GetCurrentProcess(),
      
1081.                         TOKEN_QUERY or TOKEN_ADJUST_PRIVILEGES,
      
1082.                         hToken) = false then
      
1083.     Begin
      
1084.         ShowMessage('权限提升失败!');
      
1085.         exit;
      
1086.     End;
      
1087.     TokenPrivileges.PrivilegeCount := 1;
      
1088.     If bEnable Then
      
1089.         TokenPrivileges.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED
      
1090.     Else
      
1091.         TokenPrivileges.Privileges[0].Attributes := 0;
      
1092.     LookupPrivilegeValue(nil, 'SeDebugPrivilege', TokenPrivileges.Privileges[0].Luid);
      
1093.     AdjustTokenPrivileges(hToken, False, TokenPrivileges,
      
1094.                             sizeof(TokenPrivileges),TokenPrivileges,RetLength);
      
1095.     CloseHandle(hToken);
      
1096. end;
      
1097. end.
      

复制代码

游客，如果您要查看本帖隐藏内容请回复

看起来不错，顶一个！多谢了！

都不敢乱下了，才下了一个工具，那些辅助版块都进不去了。郁闷！

瞧一瞧哈....

支持一下....