C-Code übersetzen

[scp]

Ach ja, das Beispiel war ja ohne Ex, hier mit:

Delphi-Quellcode:

var Status: TMemoryStatusEx;

procedure TForm1.Button1Click(Sender: TObject);
begin
  FillChar(Status, SizeOf(Status), 0);
  Status.dwLength := SizeOf(Status);

  GlobalMemoryStatusEx(Status);  //Werte zuweisen

  Memo1.Clear;
  Memo1.Alignment := tARightJustify;
  Memo1.Lines.Add('RAM gesamt: ' + IntToStr(Status.ullTotalPhys) + ' Bytes');
  Memo1.Lines.Add('RAM verfügbar: ' + IntToStr(Status.ullAvailPhys) + ' Bytes');
  Memo1.Lines.Add('Virtuell gesamt: ' + IntToStr(Status.ullTotalVirtual) + ' Bytes');
  Memo1.Lines.Add('Virtuell verfügbar: ' + IntToStr(Status.ullAvailVirtual) + ' Bytes');
end;