Capture Android depuis Delphi

Juin 29

Android

On remarquera sur la capture d’écran, le bouton sous la prévisualisation de la tâche dans Windows 7. Cela a été implémenté en suivant les explications de cet article.

Pour l’exécution du JAR, j’ai utilisé la méthode de ce site.

De plus, si le chemin d’ADB n’a pas encore été renseigné, j’essaye au lancement de l’application de le trouver. Pour cela, je me suis amusé à coder cette fonction (là, les éventuels développeurs Delphi vont prendre peur ).

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

function TfrmMain.TryToGetADBPath: TFileName;
var
reg : TRegistry;
fnADBPath: TFileName;
label
CloseKey, FreeReg;

function GetPath(const reg: TRegistry): TFileName;
begin
if reg.ValueExists('UninstallString') then
begin
fnADBPath := IncludeTrailingPathDelimiter(ExtractFilePath(reg.ReadString('UninstallString'))) + 'platform-tools\adb.exe';
if (FileExists(fnADBPath)) then
begin
Exit(fnADBPath);
end
else
begin
GetPath := '';
end;
end;
end;
begin
Result := '';
reg := TRegistry.Create;
try
reg.RootKey := HKEY_LOCAL_MACHINE;
if (reg.OpenKeyReadOnly('\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Android SDK Tools')) then
begin
Result := GetPath(reg);
if (Result <> '') then
begin
goto CloseKey; // ah ah ah
end;
end;
reg.CloseKey;
if (reg.OpenKeyReadOnly('\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\Android SDK Tools')) then
begin
Result := GetPath(reg);
end;
CloseKey:
reg.CloseKey;
finally
FreeReg:
reg.Free;
end;
end;

Il n’est pas nécessaire de télécharger le JAR utilisé par l’application. Celui-ci est inclus dans l’application et s’extrait automatiquement au lancement de celle-ci.