ptypedir.dpr

来自「为管理和查阅的方便, 对指定目录下的所有目录及文件以格式化形式保存到文本文件中.」· DPR 代码 · 共 16 行

program pTypeDir;

uses
  Forms,
  uMain in 'uMain.pas' {FrmMain},
  uSelDir in 'uSelDir.pas',
  uBinTree in 'uBinTree.pas';

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TFrmMain, FrmMain);
  Application.Run;
end.