unit DFDetailMain;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TDlgFDetailMain = class(TForm)
    edPath: TEdit;
    btnGet: TButton;
    mmInfo: TMemo;
    procedure btnGetClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DlgFDetailMain: TDlgFDetailMain;

implementation

uses
  Tocsg.Files, Tocsg.FileInfo, Tocsg.Safe;

{$R *.dfm}

procedure TDlgFDetailMain.btnGetClick(Sender: TObject);
var
  InfoList: TStringList;
  i: Integer;
begin
  edPath.Text := Trim(edPath.Text);
  if edPath.Text = '' then
    exit;

  if not FileExists(edPath.Text) then
  begin
    MessageBox(Handle, '존재하지 않는 파일입니다.', PChar(Caption), MB_YESNO + MB_ICONWARNING);
    exit;
  end;

  Guard(InfoList, TStringList.Create);
  GetFileProp_all(edPath.Text, InfoList);

  mmInfo.Clear;
  for i := 0 to InfoList.Count - 1 do
  begin
    mmInfo.Lines.Add(InfoList.KeyNames[i] + ' : ' + InfoList.ValueFromIndex[i]);
//    mmInfo.Lines.Add(InfoList[i]);
  end;
end;

end.