Discussion :

[Invité]

Bonjour,

Je chercher une instruction qui me permettrait de connaître la taille en mémoire prise par mon programme en cours d'exécution, à la façon du Gestionnaire de tâches.

J'ai fait une recherche sur le forum. J'ai bien trouvé
http://www.developpez.net/forums/vie...ille+m%E9moire seulement, cela paraît assez complexe.

Ma question va peut-être paraître idiote mais, n'existe-t-il pas un moyen plus simple ?

J'utilise Delphi7 et je suis étonné qu'ils n'aient rien prévu pour ça.

Si quelqu'un peut m'aider ou me renseigner.

Par avance, merci.

[Eric Boisvert]

Moi j'utilise

Code :

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

1
2
 
GetProcessMemoryInfo

http://msdn.microsoft.com/library/?url=/library/en-us/perfmon/base/getprocessmemoryinfo.asp

[Noel Sybille]

Bonsoir,

Voici le code que j'utilise dans mes fenêtres «About»; outre les renseignements concernant le produit et ma société, j'affiche la mémoire physique disponible, la mémoire utilisée du PC ainsi que la mémoire utilisée par mon logiciel à la façon du gestionnaire des tâches (bien entendu, ce code ne fonctionne pas pour Win 9x...).
J'utilise un Timer pour réévaluer la mémoire à intervalles réguliers.
Dans les uses, mettre PsAPI.

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
 
//-----------------------------------------------------------------------------
procedure TAboutBox.FormCreate(Sender: TObject);
{------------------------------------------------------------------------------}
begin
   FTimer := TTimer.Create(Self);
   FTimer.Interval := 1000;
   FTimer.OnTimer := Self.OnTimer;
end;
 
//-----------------------------------------------------------------------------
procedure TAboutBox.FormClose(Sender: TObject; var Action: TCloseAction);
//-----------------------------------------------------------------------------
begin
   FTimer.Free;
end;
 
//-----------------------------------------------------------------------------
procedure TAboutBox.OnTimer(Sender: TObject);
//-----------------------------------------------------------------------------
var
   Mem: TMemoryStatus;
   psmemCounters: _PROCESS_MEMORY_COUNTERS;
begin
   //Recherche des informations sur la mémoire
   Mem.dwLength := SizeOf(TMemoryStatus);
   GlobalMemoryStatus(Mem);
   //Résultats
   LUtilisee.Caption := IntToStr(Mem.dwMemoryLoad)+' %';
   LDisp.Caption := FloatToStrF(Mem.dwAvailPhys/1024/1024,ffFixed,5,1)+' Mb';
   LTotale.Caption := FloatToStrF(Mem.dwTotalPhys/1024/1024,ffFixed,5,1)+' Mb';
   psmemCounters.cb := SizeOf(_PROCESS_MEMORY_COUNTERS);
   if GetProcessMemoryInfo(GetCurrentProcess,@psmemCounters,SizeOf(_PROCESS_MEMORY_COUNTERS)) then
      begin
      LLogicielUtilMem.Caption := Format('%d Kb',[psmemCounters.WorkingSetSize div 1024]);
      LLogicielMaxMem.Caption := Format('%d Kb',[psmemCounters.PeakWorkingSetSize div 1024]);
      end;
end;

[Invité]

Merci pour vos réponses.

Noel Sybille -> Ca fonctionne !!... et le code est relativement simple à comprendre et à mettre en oeuvre.

Encore merci.