Discussion :

[leneant]

Bonjour,

Je souhaiterais connaitre la taille mémoire du PC 2Go, 3Go, 4Go ou plus.
J'ai essayé TMemoryInfo de delphi, mais ca ne semble pas implémenté sous lazarus et fpc.

Comment puis-faire, au démarrage de mon programme, pour connaitre la taille totale du PC ?

[Roland Chastain]

Bonjour !

J'ai trouvé la chose suivante. Si quelqu'un pouvait traduire le texte en français, ce serait bien. Pour ma part je ne sais pas ce que veut dire paging file.

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
 
(* http://www.greatis.com/delphicb/tips/lib/systemifo-memorysysinfo.html *)
 
program MemoryStatus;
 
uses
  Windows, SysUtils;
 
var
  s: TMemoryStatus;
 
begin
  s.dwLength := SizeOf(s);
  GlobalMemoryStatus(s);
  WriteLn(s.dwMemoryLoad, '% memory in use');
  WriteLn(s.dwTotalPhys / 1024:0:0, ' Kb of physical memory');
  WriteLn(s.dwAvailPhys / 1024:0:0, ' Kb of available physical memory');
  WriteLn(s.dwTotalPageFile / 1024:0:0, ' Kb that can be stored in the paging file');
  WriteLn(s.dwAvailPageFile / 1024:0:0, ' Kb available in the paging file');
  ReadLn;
end.

31% memory in use
3627272 Kb of physical memory
2499292 Kb of available physical memory
4194304 Kb that can be stored in the paging file
3067092 Kb available in the paging file

[Roland Chastain]

D'après ce que je viens de lire ici et là, sur les machines récentes il vaudrait mieux utiliser la fonction GlobalStatusMemoryEx. Il semble que la fonction ne soit pas disponible dans l'unité Windows de Free Pascal, et qu'il faille aller la chercher dans une DLL. J'ai trouvé un exemple Delphi qui fonctionne avec Free Pascal (l'exemple qui est au bas de la page).

Calling GlobalMemoryStatusEx
============================
Memory Load: 40%
Total Physical: 3627272 Kb
Avail Physical: 2172196 Kb
Total Page File: 4282632 Kb
Avail Page File: 2577984 Kb
Total Virtual: 2097024 Kb
Avail Virtual: 2040052 Kb

P.-S. Je constate que dans mon cas les résultats des deux fonctions concordent.

[tourlourou]

Hello !

Si je ne me fourvoie pas, Windows réserve de l'espace disque pour y cacher de la mémoire paginée dans un fichier système, lui permettant de simuler une mémoire vive virtuelle plus grande que celle physique disponible.

Et la mémoire virtuelle (Total Virtual) correspond à celle adressable par le processus.

[Roland Chastain]

Bonjour Yves !

D'accord, je vois. Merci pour l'éclaircissement.

[leneant]

Windows est indispensable ?
Car dans mon cas ca doit fonctionner avec windows et avec linux.