
21.11.2010, 16:49
|
 |
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
PMEMORYSTATUSEX = ^MEMORYSTATUSEX;
MEMORYSTATUSEX = record
dwLength: DWORD;
dwMemoryLoad: DWORD;
ullTotalPhys: Int64;
ullAvailPhys: Int64;
ullTotalPageFile: Int64;
ullAvailPageFile: Int64;
ullTotalVirtual: Int64;
ullAvailVirtual: Int64;
ullAvailExtendedVirtual: Int64;
end;
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
function GlobalMemoryStatusEx(lpBuffer: PMEMORYSTATUSEX): Boolean; stdcall; external kernel32;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
MemoryStatus: MEMORYSTATUSEX;
begin
Memo1.Lines.Clear;
MemoryStatus.dwLength := SizeOf(MEMORYSTATUSEX) ;
GlobalMemoryStatusEx(@MemoryStatus) ;
with MemoryStatus do begin
Memo1.Lines.Add(IntToStr(dwLength) +
' Size of ''MemoryStatus'' record') ;
Memo1.Lines.Add(IntToStr(dwMemoryLoad) +
'% memory in use') ;
Memo1.Lines.Add(FloatToStr(ullTotalPhys) +
' Total Physical Memory in bytes') ;
Memo1.Lines.Add(IntToStr(ullAvailPhys) +
' Available Physical Memory in bytes') ;
Memo1.Lines.Add(IntToStr(ullTotalPageFile) +
' Total Bytes of Paging File') ;
Memo1.Lines.Add(IntToStr(ullAvailPageFile) +
' Available bytes in paging file') ;
Memo1.Lines.Add(IntToStr(ullTotalVirtual) +
' User Bytes of Address space') ;
Memo1.Lines.Add(IntToStr(ullAvailVirtual) +
' Available User bytes of address space') ;
end;
end;
end.
__________________
Пишу программы за еду.
__________________
|