Juin 29

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 (rofl) ).

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.

Développé en Delphi

Share

Pages : 1 2

Lien permanent vers Capture Android depuis Delphi Rédigé par Whiler \\ Tags : , , , , , , ,

2 réponses pour “Capture Android depuis Delphi”

  1. Pings: Liens de l’épisode 1 de la saison 3 | Le Dev du Jeudi

Laisser une réponse

(requis)

(requis)

*

Notifiez-moi les commentaires à venir via email. Vous pouvez aussi vous abonner sans commenter.

;) (lol) (y) |-( (hi) 8-) (angel) :s (clap) (bow) (tmi) (:| plus »