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