PlugIns编程

开发平台：

Delphi

Unit1.pas：源码内容

							unit Unit1;
interface
uses
  TestFramework, frmResTree;
type
  TResTreeTest = class(TTestCase)
  published
    procedure TestResTree;
    procedure TestProjectCollection;
  end;
implementation
uses
  frmProjectCollection;
{ TResTreeTest }
procedure TResTreeTest.TestProjectCollection;
begin
  ShowProjectCollectionForm;
end;
procedure TResTreeTest.TestResTree;
begin
  ShowResTreeForm;
end;
initialization
  TestFramework.RegisterTest('TResTree', TResTreeTest.Suite);
end.
 

						