RAM auslesen

[Privateer3000]

Hi Leuts,

ich habe in einem Tut gesehen und ausprobiert wie man den RAM ausliest.
Kann man das so verfeinern das festgestellt werden kann ob es SD- oder DDR-Ram ist?

Grüsse

[Luckie]

Interessant, gib mal Link zu dem Tut, würde ich mir auch mal gerne ankucken. dann kann man eventuell mehr sagen.

[Privateer3000]

Keine Ahnung wo das war, aber hier der Code

Code:

procedure TForm1.Button2Click(Sender: TObject);
var MS: TMemoryStatus;
begin
GetSerialNumber(Char('Edit1.Text'));
MS.dwLength:=sizeof(MS);
GlobalMemoryStatus(MS);
Label12.Caption := (FormatFloat('#,
#" Byte"', MS.dwTotalPhys));    {Totaler RAM}
Label13.Caption := (FormatFloat('#,
#" Byte"', MS.dwAvailPhys));    {Freier RAM}
Label14.Caption := (FormatFloat('#,
#" Byte"', MS.dwTotalPageFile));    {max. Auslagerungsdatei}
end;

Grüsse

[Luckie]

Sorry, ich muß mich mal kurz wegwerfen: *wirftsichweg*.

Der Code ließt den Speicherstatus aus. Ist nichts neues.

Ich hatte jetzt gedacht, dass du was gefunden hast, wo man Hardware-Infos zum Spiecher auslesen kann, wie es einige RAM-Testprogramme können. Kuck das zu mal im PSDK oder im Windows-SDk von Delphi unter MEMORYSTATUS. Da findest du mehr Infos und was man damit noch machen kann. Ein Anwendungsbeispiel hast du ja jetzt. Du kannst dir auch meinen ProcessViewer runterladen, da findest du auch Code diesbezüglich. (Aber geht komischer liefert er unter Win9x falsche Werte bzw. keine Werte, also nur unter Win2000 richtig lauffähig).

Nebenbei: Diese 12 Zeilen Coder als Tutorial zu bezeichnen ist reichlich übertrieben, das ist ein Code-Schnipsel, nicht mehr und nicht weniger.

[Privateer3000]

@Nebenbei

Das war doch nur ein Teil dessen....
Also nicht so laut bitte

Werd es mir mal ansehen, aber ob meine Frage auch beantwortet ist?

[Luckie]

Sorry, habe dir das falsche Programm genannt. Kuck mal auf meiner Seite nach SysInfo.