unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
StartTime: TDateTime;
UsedTime: TDateTime;
TotalPhys: Integer;
StartMemoryLoad: Integer;
EndMemoryLoad: Integer;
StartAvailPhys: Integer;
EndAvailPhys: Integer;
StartAvailPageFile: Integer;
EndAvailPageFile: Integer;
StartAvailVirtual: Integer;
EndAvailVirtual: Integer;
public
{ Public declarations }
procedure StartTimeMem;
procedure StopTimeMem;
function DisplayInfo: String;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
// 부하(load)량 검사 시작
procedure TForm1.StartTimeMem;
var
SysMemoryStatus: TMemoryStatus;
begin
// GlobalMemoryStatus() 는 물리적인(physical) 메모리, 가상(virtual) 메모리의
// 현재 상태를 알아 내는데 사용한다
GlobalMemoryStatus(SysMemoryStatus);
// percent of memory in use
StartMemoryLoad := SysMemoryStatus.dwMemoryLoad;
// free physical memory bytes
StartAvailPhys := SysMemoryStatus.dwAvailPhys;
// free bytes of paging file
StartAvailPageFile := SysMemoryStatus.dwAvailPageFile;
// free user bytes
StartAvailVirtual := SysMemoryStatus.dwAvailVirtual;
StartTime := NOW;
end;
// 부하(load)량 검사 종료
procedure TForm1.StopTimeMem;
var
SysMemoryStatus: TMemoryStatus;
begin
UsedTime := NOW - StartTime; // 총 검사시간
GlobalMemoryStatus(SysMemoryStatus);
TotalPhys := SysMemoryStatus.dwTotalPhys;
EndMemoryLoad := SysMemoryStatus.dwMemoryLoad;
EndAvailPhys := SysMemoryStatus.dwAvailPhys;
EndAvailPageFile := SysMemoryStatus.dwAvailPageFile;
EndAvailVirtual := SysMemoryStatus.dwAvailVirtual;
end;
// 부하(load)량 검사 정보
function TForm1.DisplayInfo: String;
var
Hour, Min, Sec, MSec: Word;
TimeMemMessage: String;
var
UsedMemoryLoad, UsedAvailPhys, UsedAvailPageFile, UsedAvailVirtual,
StrStartMemoryLoad, StrStartAvailPhys, StrStartAvailPageFile,
StrStartAvailVirtual,
StrEndMemoryLoad, StrTotalPhys, StrEndAvailPhys, StrEndAvailPageFile,
StrEndAvailVirtual: String;
begin
// TDateTime형의 총 검사시간을 각각 분리한다
DecodeTime(UsedTime, Hour, Min, Sec, MSec);
UsedMemoryLoad := IntToStr(EndMemoryLoad - StartMemoryLoad);
UsedAvailPhys :=
FloatToStrF( (StartAvailPhys - EndAvailPhys), ffNumber, 10, 0) ;
UsedAvailPageFile :=
FloatToStrF( (StartAvailPageFile - EndAvailPageFile), ffNumber, 10, 0) ;
UsedAvailVirtual :=
FloatToStrF( (StartAvailVirtual - EndAvailVirtual), ffNumber, 10, 0) ;
StrTotalPhys := FloatToStrF(TotalPhys, ffNumber, 13, 0);
StrStartMemoryLoad := FloatToStrF(StartMemoryLoad, ffNumber, 13, 0);
StrStartAvailPhys := FloatToStrF(StartAvailPhys, ffNumber, 13, 0);
StrStartAvailPageFile := FloatToStrF(StartAvailPageFile, ffNumber, 13, 0);
StrStartAvailVirtual := FloatToStrF(StartAvailVirtual, ffNumber, 13, 0);
StrEndMemoryLoad := FloatToStrF(EndMemoryLoad, ffNumber, 13, 0);
StrEndAvailPhys := FloatToStrF(EndAvailPhys, ffNumber, 13, 0);
StrEndAvailPageFile := FloatToStrF(EndAvailPageFile, ffNumber, 13, 0);
StrEndAvailVirtual := FloatToStrF(EndAvailVirtual, ffNumber, 13, 0);
TimeMemMessage := 'Elapsed time: ' + IntToStr(Min) + ' Minutes '
+ IntToStr(Sec) + ' Seconds '
+ IntToStr(MSec)+ ' Milliseconds'
+#10+#13+#10+#13+
'Total physical memory: ' + StrTotalPhys + #10+#13+#10+#13 +
'Percent of memory in use:' + #10+#13 +
#9 + StrStartMemoryLoad + '% before' + #10+#13 +
#9 + StrEndMemoryLoad + '% after' + #10+#13 +
#9 + UsedMemoryLoad + '% used' + #10+#13+#10+#13 +
'Free physical memory:' + #10+#13 +
#9 + StrStartAvailPhys + ' before' + #10+#13 +
#9 + StrEndAvailPhys + ' after' + #10+#13 +
#9 + UsedAvailPhys + ' used' + #10+#13+#10+#13 +
'Paging file free:' + #10+#13 +
#9 + StrStartAvailPageFile + ' before' + #10+#13 +
#9 + StrEndAvailPageFile + ' after' + #10+#13 +
#9 + UsedAvailPageFile + ' used' + #10+#13+#10+#13 +
'Available virtual address space:' + #10+#13 +
#9 + StrStartAvailVirtual + ' before' + #10+#13 +
#9 + StrEndAvailVirtual + ' after' + #10+#13 +
#9 + UsedAvailVirtual + ' used';
DisplayInfo := TimeMemMessage;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
RunCommand: array[0..MAX_PATH] of Char;
begin
StartTimeMem; // 부하(load)량 검사 시작
// 부하량을 측정하기 위해 윈도우즈 탐색기를 하나 실행한다
GetWindowsDirectory(RunCommand, MAX_PATH);
StrCat(RunCommand, PChar('EXPLORER.EXE /n,/e'));
WinExec(RunCommand, SW_SHOWNORMAL);
StopTimeMem; // 부하(load)량 검사 종료
ShowMessage(DisplayInfo); // 부하(load)량 검사 정보
end;
end.
|
|
