uintaddsubx.pas

这个程序的基础框架部分是我在玩OOP玩得走火入魔的时候写的（当然那个时候是有意要走火入魔的了:-）。当时本来是想做一个光盘目录管理之类的东西

{*******************************************************}
{                                                       }
{       DirTree Demo                                    }
{                                                       }
{       版权所有 (C) 2005 zbird                         }
{                                                       }
{*******************************************************}

unit uIntAddSubX;

interface

uses
  Classes, SysUtils, Dialogs;

type
  IvxAddSubFileFactory = interface(IInterface)
    ['{B291D2F9-16C9-4183-B94B-F4841CE02258}']
    function AddSubDir(aFileName: string; aSearchRec: TSearchRec):
            IvxAddSubFileFactory; stdcall;
    procedure AddSubFile(aFileName: string; aSearchRec: TSearchRec); stdcall;
  end;
  
  IvxAddSubFile = interface(IInterface)
    ['{D873D162-3759-4621-BDC1-E63DF4A0C17A}']
    procedure AddSubFile(aFileName: string; aSearchRec: TSearchRec); stdcall;
  end;
  

implementation


end.