Discussion :

[curt25]

Bonjour à tous,

Je sais que le sujet a déjà été abordé dans ce forum, mais parmi toutes les solutions proposées, aucune ne fonctionne dans ma configuration.
J'utilise Delphi 7 et test mon application sur Win10.

Je voudrai obtenir la mémoire utilisée par mon "exe" au même titre que celle que l'on peut visualiser dans le gestionnaire des tâches.
Or je n'obtiens jamais le même résultat (même a quelques octets près...).

J'ai utilisé les fonctions GetProcessMemoryInfo de l’unité psAPI, GetMemoryManagerState de FASTMM4, GetHeapStatus .... Beaucoup de code sources similaires trouvés ici et là sur internet....

Mais je n'ai jamais un résultat semblable au gestionnaire de tâches.

Quelqu'un aurait-il une idée ?

Merci pour votre aide.

[ShaiLeTroll]

Je suis aussi intéressé, pendant la comparaison entre FastMM RTL, FastMM 4.992, FastMM 5.0 et NexusMM 4.10, pas moyen de trouver les mêmes chiffres
En 64Bits, on obtient des valeurs sur le mappage de la mémoire virtuelle qui dépasse de loin les 32Go de la machine en terme d'@
En 32Bits, on n'a pas essayé, l'idée c'est de se débarrasser de D7.

@Curt, D7 donc 32Bits, donc une application émulée sur un environnement 64Bits, le gestionnaire de taches n'inclut-il pas la mémoire nécessaire à l'émulation, que l'application elle-même ne voit pas puisqu'elle tourne dans le sous-système 32Bits ?
Va savoir comment ça fonctionne WoW64 ?

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
39
40
41
42
43
44
45
46
47
48
49
50
{ TTestPerformanceExtensionPlugInImplementationEvaluationMM.TUtilities }
 
//------------------------------------------------------------------------------
class constructor TTestPerformanceExtensionPlugInImplementationEvaluationMM.TUtilities.Create();
begin
  with GetMemoryStatus() do
    FStatusBase := dwTotalVirtual - dwAvailVirtual;
  with GetMemoryStatusEx() do
    FStatusExBase := ullTotalVirtual - ullAvailVirtual;
end;
 
//------------------------------------------------------------------------------
class function TTestPerformanceExtensionPlugInImplementationEvaluationMM.TUtilities.GetMemoryCounters(): TProcessMemoryCounters;
begin
  Result.cb := SizeOf(Result);
  if not GetProcessMemoryInfo(GetCurrentProcess, @Result, Result.cb) then
    ZeroMemory(@Result, Result.cb);
end;
 
//------------------------------------------------------------------------------
class function TTestPerformanceExtensionPlugInImplementationEvaluationMM.TUtilities.GetMemoryDetail(): TMemoryDetail;
begin
  ZeroMemory(@Result, SizeOf(Result));
end;
 
//------------------------------------------------------------------------------
class function TTestPerformanceExtensionPlugInImplementationEvaluationMM.TUtilities.GetMemoryShot(): TMemoryShot;
begin
  Result.Detail := GetMemoryDetail();
  Result.Status := GetMemoryStatus();
  Result.StatusRelative := Result.Status.dwTotalVirtual - Result.Status.dwAvailVirtual - FStatusBase;
  Result.StatusEx := GetMemoryStatusex();
  Result.StatusExRelative := Result.StatusEx.ullTotalVirtual - Result.StatusEx.ullAvailVirtual - FStatusExBase;
  Result.Counters := GetMemoryCounters();
end;
 
//------------------------------------------------------------------------------
class function TTestPerformanceExtensionPlugInImplementationEvaluationMM.TUtilities.GetMemoryStatus(): TMemoryStatus;
begin
  Result.dwLength := SizeOf(Result);
  GlobalMemoryStatus(Result);
end;
 
//------------------------------------------------------------------------------
class function TTestPerformanceExtensionPlugInImplementationEvaluationMM.TUtilities.GetMemoryStatusEx(): TMemoryStatusEx;
begin
  Result.dwLength := SizeOf(Result);
  if not GlobalMemoryStatusEx(Result) then
    ZeroMemory(@Result, Result.dwLength);
end;

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
{ TTestPerformanceExtensionPlugInImplementationEvaluationFastMM4.TFastMMUtilities }
 
//------------------------------------------------------------------------------
class function TTestPerformanceExtensionPlugInImplementationEvaluationFastMM4.TFastMMUtilities.GetMemoryDetail(): TMemoryDetail;
var
  mms: TMemoryManagerState;
  isbts: Integer;
begin
  FastMM4.GetMemoryManagerState(mms);
  Result.Medium := mms.TotalAllocatedMediumBlockSize;
  Result.Large := mms.TotalAllocatedLargeBlockSize;
  Result.Small := 0;
  for isbts := Low(mms.SmallBlockTypeStates) to High(mms.SmallBlockTypeStates) do
    with mms.SmallBlockTypeStates[isbts] do
      Result.Small := Result.Small + InternalBlockSize * AllocatedBlockCount;
  Result.Total :=  Result.Medium + Result.Large + Result.Small;
end;

[curt25]

Merci pour votre retour,

Effectivement ce phénomène est certainement dû à la capacité d'exécuter des applications 32 bits sur Windows 64 bits !
Mais il y a peut-être un moyen de récupérer directement la valeur du gestionnaire des tâches ou utiliser un composant externe.

Je cherche encore dans ce sens...