62 lines
1.3 KiB
Plaintext
62 lines
1.3 KiB
Plaintext
unit DPrefetchAnalMain;
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
|
|
|
|
type
|
|
TDlgPrefetchAnalMain = class(TForm)
|
|
btnAnal: TButton;
|
|
mmInfo: TMemo;
|
|
edPath: TEdit;
|
|
procedure btnAnalClick(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
DlgPrefetchAnalMain: TDlgPrefetchAnalMain;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Tocsg.Prefetch, Tocsg.Safe;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TDlgPrefetchAnalMain.btnAnalClick(Sender: TObject);
|
|
var
|
|
pf: TTgPrefetchAnal;
|
|
begin
|
|
mmInfo.Clear;
|
|
|
|
edPath.Text := Trim(edPath.Text);
|
|
if edPath.Text = '' then
|
|
begin
|
|
MessageBox(Handle, PChar('분석할 Prefetch 파일 경로를 입력해 주십시오.'), PChar(Caption), MB_ICONWARNING or MB_OK);
|
|
edPath.SetFocus;
|
|
exit;
|
|
end;
|
|
|
|
if not FileExists(edPath.Text) then
|
|
begin
|
|
MessageBox(Handle, PChar('존재하지 않는 Prefetch 파일입니다.'), PChar(Caption), MB_ICONWARNING or MB_OK);
|
|
edPath.SetFocus;
|
|
exit;
|
|
end;
|
|
|
|
Guard(pf, TTgPrefetchAnal.Create);
|
|
if pf.LoadFromFile(edPath.Text) then
|
|
begin
|
|
mmInfo.Lines.Add('Run : ' + IntToStr(pf.RunCount));
|
|
mmInfo.Lines.Add('Exe DateTime :');
|
|
mmInfo.Lines.Add(pf.GetExeDateTimeToText(#13#10, 'yyyy-mm-dd hh:nn:ss'));
|
|
end;
|
|
end;
|
|
|
|
end.
|