Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Delphi RAM auslesen - Fehler?? (https://www.delphipraxis.net/174597-ram-auslesen-fehler.html)

Madara Uchiha 30. Apr 2013 22:29

RAM auslesen - Fehler??
 
Hallo,

Ich lese hiermit mein RAM aus:

Delphi-Quellcode:
function GetTotalPhysMemory: string;
  var
    MemoryInfo: TMemoryStatus;
    Buf: Array [0 .. 255] Of Char;
  begin
    MemoryInfo.dwLength := SizeOf(MemoryInfo);
    GlobalMemoryStatus(MemoryInfo);
    StrFormatByteSizeW(MemoryInfo.dwTotalPhys, Buf, Length(Buf));
    Result := StrPas(Buf);
  end;
Allerdings zeigt es mir 3,99GB und ich hab 6GB? :?

Bernhard Geyer 30. Apr 2013 22:39

AW: RAM auslesen - Fehler??
 
Wenn du das als 32-Bit App kompilierst wirst du nicht mehr bekommen.

hathor 30. Apr 2013 22:47

AW: RAM auslesen - Fehler??
 
Delphi-Quellcode:
function gettotalphysmemory: Int64;
var
  memoryEx: TMemoryStatusEx;
begin
  begin
    memoryEx.dwLength := sizeof(TMemoryStatusEx);
    GlobalMemoryStatusEx(memoryEx);
    gettotalphysmemory := memoryEx.ullTotalPhys;
  end;
end;

Madara Uchiha 30. Apr 2013 23:18

AW: RAM auslesen - Fehler??
 
Zitat:

Zitat von hathor (Beitrag 1213619)
Delphi-Quellcode:
function gettotalphysmemory: Int64;
var
  memoryEx: TMemoryStatusEx;
begin
  begin
    memoryEx.dwLength := sizeof(TMemoryStatusEx);
    GlobalMemoryStatusEx(memoryEx);
    gettotalphysmemory := memoryEx.ullTotalPhys;
  end;
end;

Dankeschön.


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:57 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz