DELPHI菜鸟，求教

我刚学DELPHI自学的，没人指点我，首先感谢潇潇老大，为我门提供了那么好的交流平台，无谓的精神。
问题1。我今天在学习过程中看到了别人发布的，DELPHI辅助模版，代码，我想研究下，但是把代码全都闹到DELPHI里 全是错误，代码应该没错 ，是不是DELPHI只有代码，是生成不了EXE文件的，。。要怎么做， 代码我发一下。。请老大指点 高手指点，别笑我是菜鸟 我很爱学习的，
问题2对象树形查看器关闭了不知道怎么打开，，老大说了按F11我按了，只能按出对象检查器 按不出对象树形查看器对象树形查看器就是在对象检查器上面的那个窗口 不知道怎么按出来，我是中文版的，所以要说详细点 希望人能看明白 帮帮我，

忘了发 辅助模版代码了，，请高手 或者老大告诉我，怎么把这代码变成EXE文件
谢谢了

1. unit Unit1;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   
7. Dialogs, ComCtrls, StdCtrls, ExtCtrls, StrUtils;
   
8. 
   
9. type
   
10. TForm1 = class(TForm)
    
11. PageControl1: TPageControl;
    
12. TabSheet1: TTabSheet;
    
13. GroupBox1: TGroupBox;
    
14. Label1: TLabel;
    
15. Label2: TLabel;
    
16. Label3: TLabel;
    
17. EditName: TEdit;
    
18. EditHP: TEdit;
    
19. EditMP: TEdit;
    
20. Button1: TButton;
    
21. Button2: TButton;
    
22. Button3: TButton;
    
23. Button4: TButton;
    
24. 
    
25. procedure Button4Click(Sender: TObject);
    
26. procedure Button1Click(Sender: TObject);
    
27. procedure FormCreate(Sender: TObject);
    
28. procedure FormDestroy(Sender: TObject);
    
29. 
    
30. procedure RetCity;
    
31. procedure JiNeng;
    
32. procedure Button2Click(Sender: TObject);
    
33. procedure Button3Click(Sender: TObject);
    
34. 
    
35. 
    
36. private
    
37. { Private declarations }
    
38. 
    
39. public
    
40. { Public declarations }
    
41. 
    
42. end;
    
43. 
    
44. type // ---- 定义参数指针
    
45. P1_STR = packed record
    
46. Param1: DWORD;
    
47. Param2: DWORD;
    
48. end;
    
49. PP1_STR = ^P1_STR;
    
50. 
    
51. var
    
52. Form1: TForm1;
    
53. Base0, Base1, BaseT1: Integer;
    
54. HP, MP: Integer;
    
55. 
    
56. MyHwnd:Hwnd;
    
57. hProcess_N: THandle;
    
58. ThreadAdd, ParamAdd: Pointer;
    
59. ThreadID: DWORD;
    
60. 
    
61. MemSize, JNID: DWORD;
    
62. ByteRead: Cardinal;
    
63. 
    
64. implementation
    
65. 
    
66. {$R *.dfm}
    
67. 
    
68. 
    
69. procedure TForm1.FormCreate(Sender: TObject);
    
70. begin
    
71. MyHwnd:=findwindow(nil, 'Element Client');
    
72. GetWindowThreadProcessId(MyHwnd, @ThreadID);
    
73. hProcess_N := OpenProcess(PROCESS_ALL_ACCESS, False, ThreadID);
    
74. if hProcess_N = 0 then
    
75. begin
    
76. Messagebox(handle, '　请退出先登录运行《诛仙》游戏。　','提示',MB_OK+MB_IconError);
    
77. exit;
    
78. end;
    
79. 
    
80. Base0:=$9045EC; // $12F82C
    
81. MemSize:=128;
    
82. 
    
83. ThreadAdd := VirtualAllocEx(hProcess_N, nil, MemSize, MEM_COMMIT, PAGE_READWRITE);
    
84. ParamAdd := VirtualAllocEx(hProcess_N, nil, 20, MEM_COMMIT, PAGE_READWRITE);
    
85. end;
    
86. 
    
87. 
    
88. procedure TForm1.FormDestroy(Sender: TObject);
    
89. begin
    
90. VirtualFreeEx(hProcess_N, ThreadAdd, MemSize, MEM_RELEASE);
    
91. VirtualFreeEx(hProcess_N, ParamAdd, 20, MEM_RELEASE);
    
92. CloseHandle(hProcess_N);
    
93. end;
    
94. 
    
95. 
    
96. procedure InjectFunc(Func: Pointer; Param: Pointer; ParamSize: DWORD);
    
97. var
    
98. hThread: THandle;
    
99. lpNumberOfBytes: DWORD;
    
100. 
     
101. begin
     
102. if hProcess_N<>0 then
     
103. begin
     
104. // ---- 写入函数地址
     
105. WriteProcessMemory(hProcess_N, ThreadAdd, Func, MemSize, lpNumberOfBytes);
     
106. // ---- 写入参数地址
     
107. WriteProcessMemory(hProcess_N, ParamAdd, Param, ParamSize, lpNumberOfBytes);
     
108. // ---- 创建远程线程
     
109. hThread := CreateRemoteThread(hProcess_N, nil, 0, ThreadAdd, ParamAdd, 0, lpNumberOfBytes);
     
110. // ---- 等待线程结束
     
111. WaitForSingleObject(hThread, INFINITE);
     
112. CloseHandle(hThread);
     
113. end;
     
114. end;
     
115. 
     
116. // ---- 死亡回城 CALL
     
117. procedure MyCall1; Stdcall;
     
118. var
     
119. Address:pointer;
     
120. begin
     
121. Address:=Pointer($5A1F70);
     
122. asm
     
123. pushad
     
124. call Address
     
125. popad
     
126. end;
     
127. end;
     
128. 
     
129. 
     
130. // ---- 技能 CALL
     
131. procedure MyCall8(P:PP1_STR); Stdcall;
     
132. var
     
133. Address: pointer;
     
134. P1: DWORD;
     
135. begin
     
136. Address:=Pointer($4656F0);
     
137. P1:=P^.Param1; // ---- 技能ID号
     
138. asm
     
139. pushad
     
140. push -1
     
141. push 0
     
142. push 0
     
143. push P1
     
144. mov ecx,DWORD PTR DS:[$900adc]
     
145. mov edx,DWORD PTR DS:[ecx+$1c]
     
146. mov ecx,DWORD PTR DS:[edx+$28]
     
147. call address
     
148. popad
     
149. end;
     
150. end;
     
151. 
     
152. 
     
153. // --- 退出
     
154. procedure TForm1.Button4Click(Sender: TObject);
     
155. var
     
156. FTxt: TextFile;
     
157. S: String;
     
158. 
     
159. begin
     
160. SetWindowText(MyHwnd, 'Element Client');
     
161. Close;
     
162. end;
     
163. 
     
164. // ---- 读角色信息
     
165. procedure TForm1.Button1Click(Sender: TObject);
     
166. var
     
167. FTxt: TextFile;
     
168. S: String;
     
169. Name: array [0..16] of WideChar;
     
170. 
     
171. begin
     
172. ReadProcessMemory(hProcess_N, Pointer(Base0), @BaseT1, 4, ByteRead);
     
173. ReadProcessMemory(hProcess_N, Pointer(BaseT1+($28)), @Base1, 4, ByteRead);
     
174. 
     
175. ReadProcessMemory(hProcess_N, Pointer(Base1+($3A4)), @BaseT1, 4, ByteRead);
     
176. ReadProcessMemory(hProcess_N, Pointer(BaseT1+($0)), @Name, 16, ByteRead); // ---- 主角信息
     
177. ReadProcessMemory(hProcess_N, Pointer(Base1+($254)), @HP, 4, ByteRead);
     
178. ReadProcessMemory(hProcess_N, Pointer(Base1+($258)), @MP, 4, ByteRead);
     
179. 
     
180. EditName.Text:=Name;
     
181. EditHP.Text:=IntToStr(HP);
     
182. EditMP.Text:=IntToStr(MP);
     
183. end;
     
184. 
     
185. 
     
186. // --- 调用CALL 回城
     
187. procedure TForm1.RetCity;
     
188. var
     
189. MyParam : P1_STR;
     
190. ParamSum: DWORD;
     
191. begin
     
192. ParamSum:=0;
     
193. if MyHwnd<>0 then
     
194. begin
     
195. injectfunc(@MyCall1, @MyParam, ParamSum);
     
196. end;
     
197. end;
     
198. 
     
199. 
     
200. // ---- 调用CALL 技能
     
201. procedure TForm1.JiNeng;
     
202. var
     
203. MyParam : P1_STR;
     
204. ParamSum: DWORD;
     
205. begin
     
206. MyParam.Param1:=JNID;
     
207. ParamSum:=SizeOf(MyParam);
     
208. if MyHwnd<>0 then
     
209. begin
     
210. injectfunc(@MyCall8, @MyParam, ParamSum);
     
211. end;
     
212. end;
     
213. 
     
214. 
     
215. procedure TForm1.Button2Click(Sender: TObject);
     
216. begin
     
217. RetCity;
     
218. end;
     
219. 
     
220. procedure TForm1.Button3Click(Sender: TObject);
     
221. begin
     
222. JNID:=$DA;
     
223. JiNeng;
     
224. end;
     
225. 
     
226. end.

复制代码

问题1。上面的代码算最简单的调用CALL代码，你把代码全复制然后回到代码编辑窗口，把原来的删除，保存。然后回form1窗口把相应控件画上就可以。要生成EXE文件，运行后在默认路径下就自动生成EXE文件。另外我把代码整理了下。

1. 
   
2. unit Unit1;
   
3. interface
   
4. uses
   
5. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   
6. Dialogs, ComCtrls, StdCtrls, ExtCtrls, StrUtils;
   
7. type
   
8. TForm1 = class(TForm)
   
9.     Label1: TLabel;
   
10.     Label2: TLabel;
    
11.     Label3: TLabel;
    
12.     Button1: TButton;
    
13.     Button2: TButton;
    
14.     Button3: TButton;
    
15.     Button4: TButton;
    
16.     EditHP: TEdit;
    
17.     EditMP: TEdit;
    
18.     EditName: TEdit;
    
19. procedure Button4Click(Sender: TObject);
    
20. procedure Button1Click(Sender: TObject);
    
21. procedure FormCreate(Sender: TObject);
    
22. procedure FormDestroy(Sender: TObject);
    
23. procedure RetCity;
    
24. procedure JiNeng;
    
25. procedure Button2Click(Sender: TObject);
    
26. procedure Button3Click(Sender: TObject);
    
27. 
    
28. private
    
29. { Private declarations }
    
30. public
    
31. { Public declarations }
    
32. end;
    
33. type // ---- 定义参数指针
    
34. P1_STR = packed record
    
35. Param1: DWORD;
    
36. Param2: DWORD;
    
37. end;
    
38. PP1_STR = ^P1_STR;
    
39. var
    
40. Form1: TForm1;
    
41. Base0, Base1, BaseT1: Integer;
    
42. HP, MP: Integer;
    
43. MyHwnd:Hwnd;
    
44. hProcess_N: THandle;
    
45. ThreadAdd, ParamAdd: Pointer;
    
46. ThreadID: DWORD;
    
47. MemSize, JNID: DWORD;
    
48. ByteRead: Cardinal;
    
49. implementation
    
50. {$R *.dfm}
    
51. 
    
52. procedure TForm1.FormCreate(Sender: TObject);
    
53. begin
    
54. MyHwnd:=findwindow(nil, 'Element Client');
    
55. GetWindowThreadProcessId(MyHwnd, @ThreadID);
    
56. hProcess_N := OpenProcess(PROCESS_ALL_ACCESS, False, ThreadID);
    
57. if hProcess_N = 0 then
    
58. begin
    
59. Messagebox(handle, '　请退出先登录运行《诛仙》游戏。　','提示',MB_OK+MB_IconError);
    
60. exit;
    
61. end;
    
62. Base0:=$9045EC; // $12F82C
    
63. MemSize:=128;
    
64. ThreadAdd := VirtualAllocEx(hProcess_N, nil, MemSize, MEM_COMMIT, PAGE_READWRITE);
    
65. ParamAdd := VirtualAllocEx(hProcess_N, nil, 20, MEM_COMMIT, PAGE_READWRITE);
    
66. end;
    
67. 
    
68. procedure TForm1.FormDestroy(Sender: TObject);
    
69. begin
    
70. VirtualFreeEx(hProcess_N, ThreadAdd, MemSize, MEM_RELEASE);
    
71. VirtualFreeEx(hProcess_N, ParamAdd, 20, MEM_RELEASE);
    
72. CloseHandle(hProcess_N);
    
73. end;
    
74. 
    
75. procedure InjectFunc(Func: Pointer; Param: Pointer; ParamSize: DWORD);
    
76. var
    
77. hThread: THandle;
    
78. lpNumberOfBytes: DWORD;
    
79. begin
    
80. if hProcess_N<>0 then
    
81. begin
    
82. // ---- 写入函数地址
    
83. WriteProcessMemory(hProcess_N, ThreadAdd, Func, MemSize, lpNumberOfBytes);
    
84. // ---- 写入参数地址
    
85. WriteProcessMemory(hProcess_N, ParamAdd, Param, ParamSize, lpNumberOfBytes);
    
86. // ---- 创建远程线程
    
87. hThread := CreateRemoteThread(hProcess_N, nil, 0, ThreadAdd, ParamAdd, 0, lpNumberOfBytes);
    
88. // ---- 等待线程结束
    
89. WaitForSingleObject(hThread, INFINITE);
    
90. CloseHandle(hThread);
    
91. end;
    
92. end;
    
93. // ---- 死亡回城 CALL
    
94. procedure MyCall1; Stdcall;
    
95. var
    
96. Address:pointer;
    
97. begin
    
98. Address:=Pointer($5A1F70);
    
99. asm
    
100. pushad
     
101. call Address
     
102. popad
     
103. end;
     
104. end;
     
105. 
     
106. // ---- 技能 CALL
     
107. procedure MyCall8(P:PP1_STR); Stdcall;
     
108. var
     
109. Address: pointer;
     
110. P1: DWORD;
     
111. begin
     
112. Address:=Pointer($4656F0);
     
113. P1:=P^.Param1; // ---- 技能ID号
     
114. asm
     
115. pushad
     
116. push -1
     
117. push 0
     
118. push 0
     
119. push P1
     
120. mov ecx,DWORD PTR DS:[$900adc]
     
121. mov edx,DWORD PTR DS:[ecx+$1c]
     
122. mov ecx,DWORD PTR DS:[edx+$28]
     
123. call address
     
124. popad
     
125. end;
     
126. end;
     
127. 
     
128. // --- 退出
     
129. procedure TForm1.Button4Click(Sender: TObject);
     
130. begin
     
131. SetWindowText(MyHwnd, 'Element Client');
     
132. Close;
     
133. end;
     
134. // ---- 读角色信息
     
135. procedure TForm1.Button1Click(Sender: TObject);
     
136. var
     
137. Name: array [0..16] of WideChar;
     
138. begin
     
139. ReadProcessMemory(hProcess_N, Pointer(Base0), @BaseT1, 4, ByteRead);
     
140. ReadProcessMemory(hProcess_N, Pointer(BaseT1+($28)), @Base1, 4, ByteRead);
     
141. ReadProcessMemory(hProcess_N, Pointer(Base1+($3A4)), @BaseT1, 4, ByteRead);
     
142. ReadProcessMemory(hProcess_N, Pointer(BaseT1+($0)), @Name, 16, ByteRead); // ---- 主角信息
     
143. ReadProcessMemory(hProcess_N, Pointer(Base1+($254)), @HP, 4, ByteRead);
     
144. ReadProcessMemory(hProcess_N, Pointer(Base1+($258)), @MP, 4, ByteRead);
     
145. EditName.Text:=Name;
     
146. EditHP.Text:=IntToStr(HP);
     
147. EditMP.Text:=IntToStr(MP);
     
148. end;
     
149. 
     
150. // --- 调用CALL 回城
     
151. procedure TForm1.RetCity;
     
152. var
     
153. MyParam : P1_STR;
     
154. ParamSum: DWORD;
     
155. begin
     
156. ParamSum:=0;
     
157. if MyHwnd<>0 then
     
158. begin
     
159. injectfunc(@MyCall1, @MyParam, ParamSum);
     
160. end;
     
161. end;
     
162. 
     
163. // ---- 调用CALL 技能
     
164. procedure TForm1.JiNeng;
     
165. var
     
166. MyParam : P1_STR;
     
167. ParamSum: DWORD;
     
168. begin
     
169. MyParam.Param1:=JNID;
     
170. ParamSum:=SizeOf(MyParam);
     
171. if MyHwnd<>0 then
     
172. begin
     
173. injectfunc(@MyCall8, @MyParam, ParamSum);
     
174. end;
     
175. end;
     
176. 
     
177. procedure TForm1.Button2Click(Sender: TObject);
     
178. begin
     
179. RetCity;
     
180. end;
     
181. procedure TForm1.Button3Click(Sender: TObject);
     
182. begin
     
183. JNID:=$DA;
     
184. JiNeng;
     
185. end;
     
186. end.
     

复制代码

源码下载：

问题2：
对象树形查看器打开方法：
1、View(视图)－Object TreeView(对象树形查看器);2、快捷键：Shift+Alt+F11。
对象检查器：
1、View(视图)－Object Inspector(对象检查器);2、快捷键：F11。

老大 爱死你了，你给我了 学下去的勇气，终于有老师教我了，不知道说什么好了，感激吧

还帮按直接做好了，在次感谢老大

我还是失败了，提示我有那些按纽，但是按F9运行 他又说我没那些按纽，真气人 ，好象这很矛盾啊，。老大能不能 录制个30秒的操作过程，我看一下 好吗 我实在是太笨了 急死了，

我的操作步骤是这样的，先打开DELPHI 在窗体上双击 进到输入代码的地方  把里面的代码全删了 换上了新代码，然后回到FORM1里 画按纽什么的，他提示我有按纽了，但是我又按F9运行程序 他又说我没按纽 气气气

要在添加按钮等控件前删除代码里的
PageControl1: TPageControl;
TabSeet1: TTabSheet;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
EditName: TEdit;
EditHP: TEdit;
EditMP: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;

经过老大的，在次提醒 我成功了，做下笔记 也让和我一样的菜鸟分享一起学习
1要删除代码里那些窗体上还没有出现的按纽，Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    EditHP: TEdit;
    EditMP: TEdit;
    EditName: TEdit;
这样你可以直接按F9运行程序 他会提示你你缺少了EDITNAME  我门只要在试图面版上画个EDIT控件就可以把属性里的名字改成EDITNAME他就不提示错误，在按F9他提示缺少EDITHP 按纽 办法和前面一样，，这样就搞定了，，， 谢谢老大 我好高兴哦