Discussion :

[pepito62]

Bonjour,

Mon application Delphi est construite avec des BPL et des DLL.

Dans l'application, j'aimerais pouvoir lister à l'utilisateur les BPL/DLL que l'application utilise.

Avec le nom du paquet, le numéro de version et le chemin du bpl/dll, à la mode Delphi XE...A propos, Infos version

Comment retrouver les dépendances de mon application en run ? (Un peu comme la fonction TDump en ligne de commande...)

Merci.

[ShaiLeTroll]

Avec CreateSnapShotToolHelp


Comment lister les processus actifs ?
Comment connaître la liste des DLL utilisées par mon programme ?
Comment lister les modules d'un processus ?


Jouer peut-être avec GetPackageInfo

[pepito62]

J'ai essayé d'utiliser CreateSnapShotToolHelp sans succès.

En faite j'arrive à récupérer tous les processus lancé.

Lors que j'essai de récupérer les modules associé aux process, ça echoue.

Voici le bout de code effectué :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Uses
  PsAPI, TlHelp32;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  snapshotProcess: THandle;
  snapshotModule: THandle;
  ProcEntry: TProcessEntry32;
  moduleEntry: TModuleEntry32;
begin
  Memo1.Lines.Clear;
  snapshotProcess := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if snapshotProcess <> INVALID_HANDLE_VALUE then
  begin
    ProcEntry.dwSize := SizeOf(ProcessEntry32);
    if (Process32First(snapshotProcess, ProcEntry)) then
    begin
      Memo1.Lines.Add(ProcEntry.szExeFile);
      while Process32Next(snapshotProcess, ProcEntry) do
      begin
        Memo1.Lines.Add(ProcEntry.szExeFile);
        snapshotModule:= CreateToolhelp32Snapshot(TH32CS_SNAPHEAPLIST, ProcEntry.th32ProcessID);
        if snapshotModule <> INVALID_HANDLE_VALUE then
        begin
          moduleEntry.dwSize := SizeOf(TModuleEntry32);
          if Module32First(snapshotModule, moduleEntry) then
          begin
            Memo1.Lines.Add(moduleEntry.szExePath);
            while (Module32Next(snapshotModule, moduleEntry)) do
              Memo1.Lines.Add(moduleEntry.szExePath);
          end;
        end;
        CloseHandle(snapshotModule);
      end;
    end;
  end;
  CloseHandle(snapshotProcess);
end;

[pepito62]

De plus, des personnes dise que CreateToolhelp32Snapshot ne fonctionne pas sur Win 64 bits.

J'ai lancé l'appli sur WinXP 32 bits et Win7 64 bits, Pour l'instant même résultat.

[pepito62]

En faisant des tests j'ai oublié de remplacer TH32CS_SNAPHEAPLIST par TH32CS_SNAPMODULE.

Du coup je pense que ça fonctionne, je termine les tests je vous tiens au courant.

[pepito62]

Ca fonctionne.

Merci.