こんにちは、凛です。
nifty:FDELPHI/MES/11/6580 かとちんさんが示された
空きリソース取得のサンプルコードです。

var
  minf: TMemoryStatus;
  swk: string;
begin
  // 空きﾘｿｰｽ容量
  FillMemory( @mInf, Sizeof(mInf), 0 );
  minf.dwLength := Sizeof(mInf);
  GlobalMemoryStatus(minf);     // API呼び出し。
  minf.dwTotalPhys := minf.dwTotalPhys div 1024;
  minf.dwAvailPhys := minf.dwAvailPhys div 1024;
  sWk := Format('%d KB / %d KB ( %d %% )',
                [minf.dwAvailPhys,minf.dwTotalPhys,
                 (minf.dwAvailPhys * 100) div minf.dwTotalPhys]);
  ShowMessage('使用可能なメモリ： '+sWk);
end;

                            2001/08/20(Mon) 08:31am  MXB01744 凛
 


- FDELPHI  MES(16):玉石混淆みんなで作るSample蔵【見本蓄積】 01/08/30 -

Original document by 凛              氏 ID:(MXB01744)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。