Hvor meget RAM ?

http://www.swissdelphicenter.ch/torry/showcode.php?id=94

Prøv med det her:

procedure TForm1.Button1Click(Sender: TObject);
var
  memory: TMemoryStatus;
begin
  memory.dwLength := SizeOf(memory);
  GlobalMemoryStatus(memory);
  Label1.Caption := IntToStr(memory.dwTotalPhys);
end;

function FormatSize(pFileSize: Integer): String;
begin
  Case pFileSize Of
    0..1023: Result := Format('%d bytes',[pFileSize]);  //up to 1 KB
    1024..10239: Result := Format('%.2f KB',[pFileSize/1024]);  //up to 10 KB
    10240..102399: Result := Format('%.2f KB',[pFileSize/1024]);  //up to 100 KB
    102400..1048575: Result := Format('%.2f KB',[pFileSize/1024]);  //up to 1 MB
    1048576..1073741823: Result := Format('%.2f MB',[pFileSize/1048576]);  //up to 1 GB
  Else
    Result := Format('%.2f GB',[pFileSize/1073741824]);  //1 GB or more
  End;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  memory: TMemoryStatus;
begin
  memory.dwLength := SizeOf(memory);
  GlobalMemoryStatus(memory);
  Label1.Caption := 'Total memory: ' +  FormatSize(memory.dwTotalPhys) + ' Bytes';
  Label2.Caption := 'Available memory: ' + FormatSize(memory.dwAvailPhys) + ' Bytes';
end;

Hov, det sidste + ' Bytes' skal lige fjernes ;)

Hvilken type? Mener du har 2Gb pr. session uanset hvad der ellers er stoppet i maskinen.

GlobalMemoryStatus kan måske bruges: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/memory/base/globalmemorystatus.asp

Er det svar nok eller vil du gerne have det udspecificeret?

Snowball, det var lige det jeg ledte efter ! :)