Определение свободного места в файле подкачки

[GrayCat]

Здравствуйте, уважаемые мастера Delphi.

Есть такая проблема:
Нужно определить размер и свободное место в файле подкачки Windows в WinXP SP2.

В нескольких местах в интернете я нашёл один и тот же код типа этого:

var
Status : TMemoryStatus;
begin
Status.dwLength := sizeof( TMemoryStatus );
GlobalMemoryStatus( Status );

{ Status.dwTotalPageFile: Объём страничного файла в байтах. }
{ Status.dwAvailPageFile: Свободного места в страничном файле. }

label11.Caption := ' Всего: ' + IntToStr(Status.dwTotalPageFile div 1024417) + ' Мб';
label12.Caption := ' Свободно: ' + IntToStr(Status.dwAvailPageFile div 1024417) + ' Мб';

Однако, он работает неверно, то есть показывает не размер и свободное место в файле подкачки Windows, а размер физической памяти + размер файла подкачки, причём, если отнять от получаемого этим кодом размера размер физической памяти, то полученный результат будет отличаться от фактического размера файла подкачки более чем на 100 Мб.

Нет ли другого способа получить вышеуказанные данные?

[AIst]

была у меня подобная задача... вот код.

procedure TForm1.Button4Click(Sender: TObject);
var
MemInfo : TMemoryStatus;
begin
MemInfo.dwLength := Sizeof (MemInfo);
GlobalMemoryStatus(MemInfo);
memo1.lines.clear;
memo1.lines.add('Виртуальная память:');
memo1.lines.add('Всего:'+inttostr(MemInfo.dwTotalPageFile div 1024) + ' Kб');
memo1.lines.add('Используется: '+inttostr((MemInfo.dwTotalPageFile div 1024)-(MemInfo.dwAvailPageFile div 1024)) + ' Kб');
memo1.lines.add('Свободно: '+inttostr(MemInfo.dwAvailPageFile div 1024) + ' Kб');
end;

в юзес примерно так должно быть:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ShellApi, Menus;

[GrayCat]

Вы представили практически то же самое.
Я имел ввиду другой способ без использования TMemoryStatus

[Stilet]

другой способ без использования TMemoryStatus

А чем GlobalMemoryStatus не устроил? Вроде нормально работает...