Delphi编写的Android程序获取Root权限实现(2015.4.15更新,支持Android 4.4)

借助谷歌,并经过本大侠施展坑、蒙、拐、骗、偷五大绝技,终于成功实现在Delphi下获取Root权限并将其扩展为一个完整功能更加完整的TQAndroidShell记录,在华为荣耀2(Android 4.2)、Nubia Z5S(Android 4.4)测试通过。参考代码如下:

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
;
 
interface
 
{
)所有。
)、使用许可及限制
  您可以自由复制、分发、修改本源码,但您的修改应该反馈给作者,并允许作者在必要时,
QDAC版权声明限制。
:
QDAC项目,版权归作者所有。
)、技术支持
250530692共同探讨。
)、赞助
  您可以自由使用本源码而不需要支付任何费用。如果您觉得本源码对您有帮助,您可以赞
  助本项目(非强制),以使作者不为生活所迫,有更多的精力为您呈现更好的作品:
  赞助方式:
姓名:管耸寰
  建设银行:
  户名:管耸寰
731
  开户行:建设银行长春团风储蓄所
}
{
Root权限,
Root账号下执行
Root账号返回普通账号模式。
Initialize方法来初始化当前实例
;
Root权限,否则忽略此步骤
then
begin
.
end
//进入失败,手机未Root或者用户拒绝给予Root权限
;
Execute方法来执行命令行并获得返回的结果
;
ExitRoot来返回当前普通账号模式
New生成的)
 
}
 
,
,
,
,
,
;
 
type
;
 
record
private
;
;
;
;
;
/// <summary>发送一个命令行</summary>
/// <returns>成功,返回true,失败,返回false</returns>
/// <remarks>仅用于Root模式下</remarks>
;
;
public
/// <summary>初始化函数,用于初始化一个TQAndroidShell实例</summary>
/// <returns>返回当前记录的指针</returns>
;
/// <summary>请求Root权限以进入Root账号准备执行后续的命令</summary>
/// <returns>成功,返回True,失败,返回False</returns>
/// <remarks>如果失败,一般有两种可能:
/// 1、设备未Root,此时IsRooted属性为False;
/// 2、用户拒绝授权
/// </remarks>
;
/// <summary>执行指定的命令行并等待返回</summary>
/// <returns>返回命令行的输出结果</returns>
)
;
/// <summary>退出Root模式</summary>
/// <remarks>如果未处于Root模式,什么也不会发生</remarks>
;
/// <summary>当前是否处于Root模式</summary>
;
/// <summary>当前设备是否已经Root过了</summary>
;
;
 
implementation
 
type
;
;
 
// ----------------------------------JProcess----------------------
)
]
 
;
 
]
)
]
}
;
;
;
;
;
;
;
 
)
;
 
// ----------------------------------Jruntime----------------------
)
]
}
;
 
]
)
]
}
;
;
;
)
;
)
;
;
;
;
;
;
;
;
;
)
;
;
;
;
;
;
;
;
;
;
;
;
;
 
)
;
 
}
 
;
begin
;
then
begin
;
then
begin
;
then
begin
;
then
begin
// 通过检查当前账号来判断下自己是否成功获取root权限
then
begin
;
;
;
;
then
;
;
;
;
;
 
;
begin
;
;
;
;
;
 
)
;
var
;
begin
;
then
begin
then
;
end
else
begin
;
then
;
;
;
 
;
begin
then
begin
then
begin
;
;
;
;
;
;
 
;
begin
;
;
 
)
;
var
;
;
;
begin
;
;
;
;
repeat
then
AInput
then
;
;
then
begin
;
try
;
;
finally
;
;
end
else
;
;
 
;
begin
;
;
 
;
var
;
;
;
begin
;
;
try
;
;
;
;
;
except
;
;
;
;
 
.

 【提示】应修改AndroidManifest.template.xml文件,加入ACCESS_SUPERUSER权限,虽然不加暂时也没有太大的副作用。

 
1
2
3
4
5
6
/>
%>
<!-- 添加此行此声明需要管理员权限 -->
/>
<!-- 添加完毕 -->

不需多说,看疗效:

Delphi编写的Android程序获取Root权限实现(2015.4.15更新,支持Android 4.4)   Delphi编写的Android程序获取Root权限实现(2015.4.15更新,支持Android 4.4)

完整的源码下载:百度网盘

http://www.qdac.cc/?p=1130