delphi7 ide扩展,类似vc6,通过编译指令控制多项目工程编译输出

参考《Delphi Open Tools Api實例研究(一)》http://www.xuebuyuan.com/zh-tw/1275460.html,在此特别表示感谢!!!


//本单元文件,根据compile.inc编译指令文件中的不同编译指令,同时读取工程配置config.ini文件,一次编译输出多个项目工程结果。

compile.inc

{$UNDEF NoFinger}
{$DEFINE Ok}
{$DEFINE release}
{$DEFINE NoFinger}
{$DEFINE Hello}
{$DEFINE debug}


config.ini

[General]
//工程输出目标程序文件配置列表,后面的每个小节必须以此列表命名,子项key为固定值,如需添加,要修改程序
sections=nofinger,finger
//单独编译某段,如果全编译使用 all
activesection=nofinger
[nofinger]
//编译指令集,将输出到工程目录下的compile.inc文件中,作为工程编译时条件指令集
compilationDirective={$DEFINE NoFinger},{$DEFINE Hello},{$DEFINE debug}
//目标程序文件目录
outDir=..\bin_NoFinger
//目标程序文件名称
ExeName=FGDC_NoFinger.exe
//目标程序文件属性中的文件描述信息
FileDescription=无指纹版本
FileVersion=1.0.0.6
[finger]
compilationDirective={$UNDEF NoFinger},{$DEFINE Ok},{$DEFINE release}
outDir=..\bin_Finger
ExeName=FGDC_Finger.exe
FileDescription=有指纹版本
FileVersion=1.0.0.6


//单元文件

unit u_main;


interface

uses
  SysUtils, Classes, Menus, ToolsApi, Controls, ImgList, Graphics, Forms,
  ComCtrls, windows, TypInfo, variants, auto_object, IdStrings, dialogs, u_inifile_C;
type
  TNTATest = class
  private
    FMainMenu: TMainMenu; //用來存貯delphi IDE的主菜單
    NewMenu: TMenuItem; //我們將要插入的菜單
    FImageList: TCustomImageList; //用來存貯delphi IDE主菜單和工具欄的ImageList
    ImageIndex1: integer; //檢測量,請參看後面的代碼
    IDEHandle: HWND;
    procedure BuildAllProjects(sender: TObject);


    procedure BuildPrj(sOutDir, sExeName, sFileDesc, sFileVersion: string);
    procedure BuildPrjBefore(sSection, sprj_path: string;
      var sLst_compilefile: TStringList);
    procedure BuildProject(sender: TObject);
    procedure DynamicAddMenu(sender: TObject);
    function GetProjectResource(Project: IOTAProject): IOTAProjectResource;
    procedure IncrementVersion(sender: TObject);
  protected
    procedure AddMenu; //加入我們的菜單
    procedure ReMoveMenu; //卸載我們的菜單
    procedure ReCodeEditer(sender: TObject); //菜單項一的事件
    procedure AboutForm(sender: TObject); //菜單項二的事件


    procedure drawFormcustom(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; Selected: Boolean);
  public
    constructor Create;
    destructor Destroy; override;
  private
    index: integer;
  end;


  TProjectNotifer = class(TNotifierObject, IOTAIDENotifier)
  public
    procedure AfterCompile(Succeeded: Boolean);
    procedure BeforeCompile(const Project: IOTAProject;
      var Cancel: Boolean);
    procedure FileNotification(NotifyCode: TOTAFileNotification;
      const FileName: string; var Cancel: Boolean);
  end;


procedure Register;


var
  MyNTATest: TNTATest;


implementation


uses VersionInfo;


const
  FIXED_MENU_COUNT = 4;


function printLogToFile(sfmt: string; ss: array of const; apppath: string): string;
  procedure writeLnToFile(s: ansistring);
  var
    tf: TextFile;
    strFileName: ansistring;
  begin
    if not DirectoryExists(apppath + 'log\') then CreateDir(apppath + 'log\');
    strFileName := Format('%s%s.log', [apppath + 'log\', FormatDateTime('yyyymmdd', now)]);
    AssignFile(tf, strFileName);
    if FileExists(strFileName) then
    begin
      Append(tf);
    end
    else
    begin
      Rewrite(tf);
    end;
    writeln(tf, s);
    Flush(tf);
    CloseFile(tf);
  end;
var
  sStr, sStr1, sStr2: ansistring;
begin
  sStr := Format('%s', [FormatDateTime('hh:nn:ss', now)]);
  sStr1 := Format(sfmt, ss);
  sStr2 := Format('%s %s', [sStr, sstr1]);
  writeLnToFile(sStr2);
  result := sStr1;
end;


procedure Register;
begin
  MyNTATest.AddMenu;
  //和傳統組件的同名方法不同,這裡沒有在組件面板上安裝圖標
  //而是直接調用AddMenu方法添加我們的菜單
end;
{ TNTATest }


constructor TNTATest.Create;
begin
  IDEHandle := (BorlandIDEServices as IOTAServices).GetParentHandle;
 //我們用IOTAServices介面的GetParentHandle方法取得了ide的handle
  Index := (BorlandIDEServices as IOTAServices).AddNotifier(TProjectNotifer.create);
end;


procedure TNTATest.AddMenu;
//var
  //MenuItem: array[0..2] of TMenuItem;
  //i: integer;
  //Icon1: TIcon; //菜單項一的圖標
begin
  FMainMenu := (BorlandIDEServices as INTAServices).MainMenu;
  //我們用 INTAServices的MainMenu屬性直接得到了IDE的主菜單
  FImageList := (BorlandIDEServices as INTAServices).ImageList;
  //我們用 INTAServices的ImageList屬性直接得到了IDE的圖象列表
  NewMenu := TMenuItem.Create(FMainMenu);
  //創建我們的菜單
  NewMenu.Caption := 'wata';
  ImageIndex1 := -1; //沒有載入圖標
  //下面的代碼使用for和case來添加兩個菜單項有點小題大作,但
  //我們展示了一種更通用的方法使你能夠添加更多的菜單項,而不必簡單的複製代碼。


  NewMenu.OnClick := DynamicAddMenu; //从本地配置中读取要编译的工程列表动态加载菜单
 // NewMenu.OnDrawItem := self.drawFormcustom;


  FMainMenu.Items.Add(NewMenu); //最後添加我們的菜單到IDE主菜單
end;


procedure TNTATest.DynamicAddMenu(sender: TObject);
var
  MenuItem: array of TMenuItem;
  i: integer;
  //Icon1: TIcon; //菜單項一的圖標


  sLst_section: TStringlist;
  sprj_path, sSections: string;
  icount, iindx: integer;
  sFileVersion: string;
  prj: IOTAProject;
begin
  prj := GetActiveProject;
  if prj = nil then exit;
  sprj_path := extractfilepath(prj.FileName);
  //showmessage(sprj_path);


  //工程使用编译指令文件,固定名称为compile.inc,固定路径为工程当前路径
 { if not fileExists(sprj_path + 'compile.inc') then
  begin
    Messagebox(IDEHandle, pchar(sprj_path + 'compile.inc文件不存在!'), '提示', mb_iconinformation);
    exit;
  end;
  }




  //工程使用目标程序文件输出配置文件,固定名称为config.ini,固定路径为工程当前路径
  TAuto_object.New(iniRw, TIniRW_Env.create(sprj_path + 'config.ini'));
  sSections := iniRw.readFromIni('General', 'sections', 'bin_1,bin_2');


  TAuto_object.New(sLst_section, TStringList.Create);
  sLst_section.Delimiter := ',';
  sLst_section.DelimitedText := sSections;
  icount := sLst_section.Count + FIXED_MENU_COUNT;


//  SplitColumns(sDefines, sLst_defines, ',');


  FMainMenu := (BorlandIDEServices as INTAServices).MainMenu;
  //我們用 INTAServices的MainMenu屬性直接得到了IDE的主菜單
  FImageList := (BorlandIDEServices as INTAServices).ImageList;
  //我們用 INTAServices的ImageList屬性直接得到了IDE的圖象列表
  for i := 0 to FMainMenu.Items.Count - 1 do
  begin
    //printlogtofile('%d =>%s', [i, FMainMenu.Items[i].Caption], sprj_path);
    if FMainMenu.Items[i].Caption = 'wata' then
    begin
      FMainMenu.Items.Delete(i);
      break;
    end;
  end;
  NewMenu := TMenuItem.Create(FMainMenu);
  //創建我們的菜單
  NewMenu.Caption := 'wata';
  NewMenu.Tag := 20;


  setlength(MenuItem, icount);
  for i := 0 to icount - 1 do
  begin
    MenuItem[i] := TMenuItem.Create(NewMenu); //創建子菜單項
    case i of
      0:
        begin
          MenuItem[i].Caption := 'About';
          MenuItem[i].OnClick := AboutForm;
        end;
      1: MenuItem[i].Caption := '-'; //當然還有一個分割符號,其實是3個菜單項
      2:
        begin
          MenuItem[i].Caption := 'Increment Version';
          MenuItem[i].OnClick := IncrementVersion; //添加事件處理程序
        end;
      3:
        begin
          MenuItem[i].Caption := 'Build All Projects';
          {
          Icon1 := TIcon.Create;
          try
            Icon1.LoadFromFile('MAI2.ICO');
       //我從硬碟的文件上載入了一個圖標作為菜單項一的圖標
          except
            on E: Exception do
            begin
              raise Exception.Create(E.Message);
              exit;
            end;
          end;
          ImageIndex1 := FImageList.AddIcon(Icon1);


      //加入那個載入的圖標並返回一個ImageIndex
          MenuItem[i].ImageIndex := ImageIndex1;
          }
          MenuItem[i].OnClick := BuildAllProjects; //添加事件處理程序
        end;
    else begin
        iindx := i - FIXED_MENU_COUNT;
        MenuItem[i].Tag := iindx;
        sFileVersion := iniRw.readFromIni(sLst_section[iindx], 'FileVersion', '1.0.0.0');
        MenuItem[i].Caption := 'Build => ' + sLst_section[iindx] + ' v' + sFileVersion;
        MenuItem[i].OnClick := BuildProject;
      end;
    end;


    NewMenu.Add(MenuItem[i]); //添加菜單項
  end;
  FMainMenu.Items.Add(NewMenu); //最後添加我們的菜單到IDE主菜單
end;


procedure TNTATest.IncrementVersion(sender: TObject);
var
  i: integer;
  sLst_section, sLst_version: TStringlist;
  sprj_path, sSections: string;
  iindx: integer;
  sFileVersion: string;
  iVer: Integer;
  prj: IOTAProject;
begin
  prj := GetActiveProject;
  if prj = nil then exit;
  sprj_path := extractfilepath(prj.FileName);
 // showmessage(sprj_path);


  //工程使用目标程序文件输出配置文件,固定名称为config.ini,固定路径为工程当前路径
  TAuto_object.New(iniRw, TIniRW_Env.create(sprj_path + 'config.ini'));
  sSections := iniRw.readFromIni('General', 'sections', 'bin_1,bin_2');


  TAuto_object.New(sLst_version, TStringList.Create);
  sLst_version.Delimiter := '.';


  TAuto_object.New(sLst_section, TStringList.Create);
  sLst_section.Delimiter := ',';
  sLst_section.DelimitedText := sSections;
  //icount := sLst_section.Count + FIXED_MENU_COUNT;


//  SplitColumns(sDefines, sLst_defines, ',');


  FMainMenu := (BorlandIDEServices as INTAServices).MainMenu;
  //我們用 INTAServices的MainMenu屬性直接得到了IDE的主菜單


  for i := 0 to FMainMenu.Items.Count - 1 do
  begin
    //printlogtofile('%d =>%s', [i, FMainMenu.Items[i].Caption], sprj_path);
    if FMainMenu.Items[i].Caption = 'wata' then
    begin
      NewMenu := FMainMenu.Items[i];
      break;
    end;
  end;


  for i := 0 to NewMenu.Count - 1 do
  begin
   // showmessage(format('%d =>%s', [i, NewMenu.Items[i].Caption]));
    case i of
      0, 1, 2, 3:
        begin
        end;
    else begin
        iindx := i - FIXED_MENU_COUNT;
        sFileVersion := iniRw.readFromIni(sLst_section[iindx], 'FileVersion', '1.0.0.0');
        sLst_version.DelimitedText := sFileVersion;
        iVer := strtoint(sLst_version[3]);
        inc(iVer);
        sFileVersion := format('%s.%s.%s.%d', [sLst_version[0], sLst_version[1], sLst_version[2], iVer]);
        iniRw.writeToIni(sLst_section[iindx], 'FileVersion', sFileVersion);
        NewMenu[i].Caption := 'Build => ' + sLst_section[iindx] + ' v' + sFileVersion;
      end;
    end;
  end;
end;


procedure TNTATest.AboutForm(sender: TObject);
//一個簡單的關於對話框,注意參數中的IDEHandle
begin
//  showmessage(inttostr(TMenuItem(sender).tag));
  messagebox(IDEHandle, '此菜单实现了根据配置文件按照编译指令输出不同目录、执行文件、版本号等功能!', 'by wata', MB_ICONINFORMATION);


  DynamicAddMenu(nil);
end;


procedure TNTATest.BuildPrj(sOutDir, sExeName, sFileDesc, sFileVersion: string);
  function getSubstr(var sSTr: string): string;
  var
    iPos: integer;
  begin
    ipos := pos('.', sStr);
    if ipos = 0 then
    begin
      result := sStr;
    end else begin
      result := copy(sStr, 1, ipos - 1);
      sSTr := copy(sStr, ipos + 1, length(sStr) - ipos);
    end;
  end;
var
  prjbuild: IOTAProjectBuilder;


  sprj_path, sprj_name, sprj_name_t: string;
  oarr: TOTAOptionNameArray;
  i: integer;
  v: variant;
  bOk: boolean;


  ProjectResource: IOTAProjectResource;
  ResourceEntry: IOTAResourceEntry;
  vi: TVersionInfo;
  Stream: TMemoryStream;
  srcFileName, destFileName: string;
  ver1, ver2, ver3, ver4: string;
  prj: IOTAProject;
begin
  prj := GetActiveProject;
  if prj = nil then exit;
  sprj_path := extractfilepath(prj.FileName);
  sprj_name_t := extractfileName(prj.FileName);
  sprj_name := copy(sprj_name_t, 1, length(sprj_name_t) - 4);
  //showmessage(sprj_path);


  oarr := prj.ProjectOptions.GetOptionNames;


  {
  for i := 0 to high(oarr) do
  begin
    printlogtofile('%d =>%s,type =>%s,value =>%s',
      [i, oarr[i].Name, TypInfo.GetEnumName(TypeInfo(TTypeKind),
        Ord(oarr[i].Kind)), prj.ProjectOptions.Values[oarr[i].Name]], sprj_path);
  end;
  }


  v := prj.ProjectOptions.Values['OutputDir'];
  bOk := true;
  if VarIsNull(v) then
  begin
    printlogtofile('OutputDir is null', [], sprj_path);
    bOk := false;
  end;
  if VarIsEmpty(v) then
  begin
    printlogtofile('OutputDir is empty', [], sprj_path);
    bOk := false;
  end;
  if bOK then
    printlogtofile('OutputDir =>%s', [vartostr(v)], sprj_path);


  //设置文件输出路径
  prj.ProjectOptions.Values['OutputDir'] := soutDir;
  ForceDirectories(sprj_path + soutDir);


//  设置文件版本号
  ver1 := getSubstr(sFileVersion);
  ver2 := getSubstr(sFileVersion);
  ver3 := getSubstr(sFileVersion);
  ver4 := getSubstr(sFileVersion);


 // showmessage(ver1 + ',' + ver2 + ',' + ver3 + ',' + ver4);


  prj.ProjectOptions.Values['MajorVersion'] := strtointdef(ver1, 0);
  prj.ProjectOptions.Values['MinorVersion'] := strtointdef(ver2, 0);
  prj.ProjectOptions.Values['Release'] := strtointdef(ver3, 0);
  prj.ProjectOptions.Values['Build'] := strtointdef(ver4, 0);


  ProjectResource := GetProjectResource(prj);
  //showmessage(ProjectResource.FileName);


  ResourceEntry := ProjectResource.FindEntry(RT_VERSION, PChar(1));
  if Assigned(ResourceEntry) then
  begin
    TAuto_object.New(VI, TVersionInfo.Create(PChar(ResourceEntry.GetData)));
    for i := 0 to VI.KeyCount - 1 do
    begin
      printlogtofile('%d =>%s,svalue =>%s',
        [i, VI.KeyName[i], VI.KeyValue[VI.KeyName[i]]], sprj_path);
    end;
    //VI.KeyValue['Comments'] := 'hall';
    //设置文件描述
    VI.KeyValue['FileDescription'] := sFileDesc;
    //VI.KeyValue['ProductVersion'] := sFileVersion;
    //此处设置文件版本号不起作用,必须在options中设置
    //VI.KeyValue['FileVersion'] := sFileVersion;
   // showmessage(sFileVersion);
    try


      TAuto_object.New(Stream, TMemoryStream.Create);
      try
        VI.SaveToStream(Stream);
        ResourceEntry.DataSize := Stream.Size;
        Move(Stream.Memory^, ResourceEntry.GetData^, Stream.Size);
      finally
      end;


    finally
    end;
  end;


  prjbuild := prj.GetProjectBuilder();
  if prjbuild.BuildProject(cmOTABuild, true) then
  begin
    srcfilename := sprj_path + soutDir + '\' + sprj_name + '.exe';
    destFileName := sprj_path + soutDir + '\' + sExeName;
    if not sametext(srcfilename, destFileName) then
    begin
      copyfile(pchar(srcfilename), pchar(destFileName), false);
      deletefile(pchar(srcfilename));
    end;
  end;
end;


function TNTATest.GetProjectResource(Project: IOTAProject): IOTAProjectResource;
var
  i: Integer;
  Editor: IOTAEditor;
begin
  Result := nil;
  for i := 0 to (Project.GetModuleFileCount - 1) do
  begin
    Editor := Project.GetModuleFileEditor(i);
    if Supports(Editor, IOTAProjectResource, Result) then
      Break;
  end;
end;


procedure TNTATest.BuildPrjBefore(sSection, sprj_path: string; var sLst_compilefile: TStringList);
var
  sOutDir, sExeName, scompilationDirective, sFileDesc, sFileVersion: string;
  sLst_compiledirective, sLst_compilefile_t: TStringList;
  i, k: integer;
begin


  TAuto_object.New(sLst_compilefile_t, TStringList.Create);
  TAuto_object.New(sLst_compiledirective, TStringList.Create);
  sLst_compiledirective.Delimiter := ',';


  //本程序支持多编译指令输出目标程序文件
  //编译指令集中包含空格,使用DelimitedText解析结果不正确,所以采用如下函数解析
  SplitColumns(iniRw.readFromIni(sSection, 'compilationDirective', '{$nodefine}'),
    sLst_compiledirective, ',');


  sOutDir := iniRw.readFromIni(sSection, 'outDir', '..\noDir');
  sExeName := iniRw.readFromIni(sSection, 'ExeName', 'noExeName.exe');
  sFileDesc := iniRw.readFromIni(sSection, 'FileDescription', 'noFileDesc');
  sFileVersion := iniRw.readFromIni(sSection, 'FileVersion', '1.0.0.0');
  for k := 0 to sLst_compiledirective.Count - 1 do
  begin
    scompilationDirective := sLst_compiledirective[k];
    for i := 0 to sLst_compilefile.Count - 1 do
    begin
      if pos(uppercase(scompilationDirective), uppercase(sLst_compilefile[i])) > 0 then
      begin
          //如果有重复的,会出现out of index错误,所以使用另一个lst作为过渡
          //sLst_compilefile.Delete(i);
          //如果有重复的,全删除
          //break;
        continue;
      end;
      sLst_compilefile_t.Add(sLst_compilefile[i]);
    end;
    sLst_compilefile_t.Add(scompilationDirective);
    sLst_compilefile.Assign(sLst_compilefile_t);


      //修改编译指令文件
    sLst_compilefile_t.SaveToFile(sprj_path + 'compile.inc');
    sLst_compilefile_t.Clear;
  end;


  BuildPrj(sOutDir, sExeName, sFileDesc, sFileVersion);
end;


procedure TNTATest.BuildAllProjects(sender: TObject);
var
  sLst_section, sLst_compilefile: TStringlist;
  sprj_path: string;
  j: integer;


  sSections, sActiveSection: string;
  prj: IOTAProject;
begin
  prj := GetActiveProject;
  if prj = nil then exit;
  sprj_path := extractfilepath(prj.FileName);


  //工程使用编译指令文件,固定名称为compile.inc,固定路径为工程当前路径
  if not fileExists(sprj_path + 'compile.inc') then
  begin
    Messagebox(IDEHandle, pchar(sprj_path + 'compile.inc文件不存在!'), '提示', mb_iconinformation);
    exit;
  end;


  //工程使用目标程序文件输出配置文件,固定名称为config.ini,固定路径为工程当前路径
  TAuto_object.New(iniRw, TIniRW_Env.create(sprj_path + 'config.ini'));
  sSections := iniRw.readFromIni('General', 'sections', 'bin_1,bin_2');
  sActiveSection := iniRw.readFromIni('General', 'activesection', 'all');


  TAuto_object.New(sLst_section, TStringList.Create);
  sLst_section.Delimiter := ',';
  sLst_section.DelimitedText := sSections;


//  SplitColumns(sDefines, sLst_defines, ',');


  TAuto_object.New(sLst_compilefile, TStringList.Create);
  sLst_compilefile.LoadFromFile(sprj_path + 'compile.inc');
{
  if sActiveSection = 'all' then
  begin
}
  for j := 0 to sLst_section.Count - 1 do
  begin
    printlogtofile('%d =>%s', [j, sLst_section[j]], sprj_path);
    BuildPrjBefore(sLst_section[j], sprj_path, sLst_compilefile);
  end;
{
  end else begin
    printlogtofile('=>%s', [sActiveSection], sprj_path);
    BuildPrjBefore(sActiveSection, sprj_path, sLst_compilefile);
  end;
  }
end;


procedure TNTATest.BuildProject(sender: TObject);
var
  sLst_section, sLst_compilefile: TStringlist;
  sprj_path: string;
  j: integer;


  sSections, sActiveSection: string;
  prj: IOTAProject;
begin
  prj := GetActiveProject;
  if prj = nil then exit;
  sprj_path := extractfilepath(prj.FileName);


  //工程使用编译指令文件,固定名称为compile.inc,固定路径为工程当前路径
  if not fileExists(sprj_path + 'compile.inc') then
  begin
    Messagebox(IDEHandle, pchar(sprj_path + 'compile.inc文件不存在!'), '提示', mb_iconinformation);
    exit;
  end;


  //工程使用目标程序文件输出配置文件,固定名称为config.ini,固定路径为工程当前路径
  TAuto_object.New(iniRw, TIniRW_Env.create(sprj_path + 'config.ini'));
  sSections := iniRw.readFromIni('General', 'sections', 'bin_1,bin_2');
  sActiveSection := iniRw.readFromIni('General', 'activesection', 'all');


  TAuto_object.New(sLst_section, TStringList.Create);
  sLst_section.Delimiter := ',';
  sLst_section.DelimitedText := sSections;


//  SplitColumns(sDefines, sLst_defines, ',');


  TAuto_object.New(sLst_compilefile, TStringList.Create);
  sLst_compilefile.LoadFromFile(sprj_path + 'compile.inc');


  j := TMenuItem(Sender).Tag;
  printlogtofile('BuildProject %d =>%s', [j, sLst_section[j]], sprj_path);
  BuildPrjBefore(sLst_section[j], sprj_path, sLst_compilefile);


end;


procedure TNTATest.ReMoveMenu;
//卸載菜單
begin
  if assigned(NewMenu) then NewMenu.Free;
end;


destructor TNTATest.Destroy;
begin
  MyNTATest.ReMoveMenu;
  if ImageIndex1 <> -1 then
 //如果在前面載入圖標的工作出現異常就不釋放圖標,否則會釋放到delphi本身使用的圖標
    MyNTATest.FImageList.Delete(MyNTATest.ImageIndex1);
  (BorlandIDEServices as IOTAServices).RemoveNotifier(Index);
  inherited;
end;


procedure TNTATest.ReCodeEditer(sender: TObject);
begin


end;


procedure TNTATest.drawFormcustom(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
begin
//  self.DynamicAddMenu(nil);
end;


{ TProjectNotifer }


procedure TProjectNotifer.AfterCompile(Succeeded: Boolean);
begin


end;


procedure TProjectNotifer.BeforeCompile(const Project: IOTAProject;
  var Cancel: Boolean);
begin


end;


procedure TProjectNotifer.FileNotification(
  NotifyCode: TOTAFileNotification; const FileName: string;
  var Cancel: Boolean);
begin
  //新工程打开时更新wata菜单
  if ofnActiveProjectChanged = NotifyCode then MyNTATest.DynamicAddMenu(nil);
end;


initialization
//在組件第一次被安裝時創建了TNTATest
  MyNTATest := TNTATest.Create;
finalization
//在組件被卸載時釋放了MyNTATest
  MyNTATest.Free;


end.

Visual C++ 6.0的集成开发环境对项目文件的管理功能比前几个版本有了很大的增强,但是对打开文档窗口的管理和普通的MDI编辑软件一样,只能通过窗口菜单切换,使用起来很不方便。2001年的时候我在网上见到了一款名为“WndTab”的VC插件,它提供了一个集成在编辑窗口的table标签栏,每个打开的文档对应一个标签栏的按钮,通过鼠标点击按钮可以在文件之间快速切换,大大方便了代码查看和编辑,除此之外,这个插件还提供了C++程序文件和头文件互相切换功能(注:2003年的时候“Wndtab”插件还在开发,功能更多,还支持二次插件开发,但同时不稳定的毛病加重了,且占用资源太多,内存太少使用起来很困难)。这个插件一下子就征服了我(sorry,那个时候我不知道VA),通过对“WndTab”的使用,我也发现了很多问题,比如,文件切换只能在同一个目录中进行,当程序文件和头文件分别放在不同的目录中时就不能切换。还有一个很大的问题就是“WndTab”提供了很多并不实用(仅仅是本人的看法,如有雷同,实属荣幸)而且繁琐、容易出错的功能,比如对标签栏的重组和编号功能,这个功能在频繁地打开和关闭文件时经常令VC的IDE崩溃。好在 “WndTab”的作者公开了源代码,于是我就开始研究“WndTab”的代码,于是便有了借鉴“WndTab”的成功经验,开发一个功能更实用且简单、稳定的插件的想法,于是“TabBars”便在2002年诞生了。 “TabBars”插件借鉴了“WndTab”插件的框架,大刀阔斧地去掉了标签栏重组和编号功能,简化了table标签栏的界面布局,使用Button 风格的自画table控件,重新设计了工具栏图标,界面更加美观。持此之外,TabBars还添加了很多实用的功能,比如自动保存文件,C++程序文件和头文件互相切换支持多目录搜索功能,注释选定的代码块,从注释的代码块中恢复代码,为函数添加格式化函数声明,注释代码时自动添加操作者信息,自动保存编译过程,自动保存文件等等,所有的功能都支持快捷键。“TabBars”坚持开源品质,2002年发布的同时也发布了源代码,当时在网上引起了很大的反响,很多朋友提出了宝贵意见,修改bug,于是便有了很多个版本,我一直根据朋友的意见修改并维护着一个自己的版本,并通过http://www.winmsg.com/cn/orbit.htm发布,随后由于工作的原因有一段时间不能接触网络,新版本“TabBars”的发布也受到了影响,但是对“TabBars”的改进一直没有停止。2003 年,我和Codeproject上的.dan.g.联系,征得他的同意后将“项目代码自动打包”和“OpenZip”两个功能添加到了 “TabBars”(注:请参考codeproject上的文章:Zip-up the source code for your latest CodeProject article),我同时对这两个功能进行了修改,原来的“项目代码自动打包”功能只能将dsp目录中的文件打包,但是考虑到很多软件项目的代码文件和头文件都是分布在不同的目录中,只打包当前目录有些不妥,于是添加了指定整个目录打包的选项。2004年,我又将.dan.g.的“在代码中添加 Visio-like diagrams的功能”集成到“TabBars”中(注:请参考codeproject上的文章:Add and edit diagrams in your code with this 'Visio-like')。这两次修改的版本都没有正式发布,只在朋友们中间小范围测试使用,并不断修改。2005年4月,“TabBars”的测试工作完成,正式定版发布,版本号为:1.0.17.3169,2005年6月,代码整理完成,同时发布源代码。 本文主要介绍TabBars插件的功能和使用方法,关于如何编译、调试“TabBars”源代码和代码解读的问题,请参阅“http://blog.csdn.net/orbit/”上的“TabBars”系列文章。 说了这么多,你一定想知道“TabBars”到底什么样子?有什么功能?如何使用?下面就介绍“TabBars”的功能和使用方法。图(1) 就是“TabBars”集成到VC编辑环境后的界面,上面是一个工具条,下面是用于文件快速切换的table标签栏: 图1. 集成到VC编辑环境的“TabBars” 一 使用table标签窗口快速切换文件 在一个大的项目中浏览不同文件中的代码是一件痛苦的事情,VC所能够提供的帮助就是工作区中的“Files”窗口和菜单栏的“窗口”菜单,当项目中的文件很多时使用起来非常不方便。如果能够象属性页窗口那样通过一个Table控件在不同的窗口之间快速切换,就能够大大的提高工作效率。“TabBars”插件就实现了这个功能,“TabBars”插件采用子类化(subclass)技术,通过Hooker过滤工作区窗口的消息维护了一个table标签栏,在新文档窗口创建的时候在table标签栏上创建对应的标签按钮,文档关闭时删除标签按钮。这样开发人员只需要在标签栏的按钮上点击鼠标就可以快速切换到这个文件。在标签栏按钮上点击鼠标右键会弹出属性菜单: 图2. 标签栏属性菜单 通过菜单的关闭窗口功能可以有选择的关闭窗口,通过系统菜单可以访问Windows的文件系统菜单,关于Windows文件系统菜单将在后面介绍。 用户可以在配置窗口设置标签栏的显示属性: 图3. TabBars 选项 在“TabBars 选项”窗口可以设置标签栏的位置,可以在编辑窗口的上面,也可以设置在编辑窗口的下面,满足不同习惯用户的要求。还可以选择是否在标签栏显示图标,是否支持系统菜单以及新打开窗口的位置,对于系统资源比较有限的用户还可以选择打开窗口的最大限制。 二 C++程序文件和头文件快速切换 对于一个管理良好的软件项目,函数的声明和实现通常是分开放在一对对应的程序文件和头文件中,C++更是推崇这种做法,于是在程序文件和对应的头文件之间切换,查看函数的定义和实现就成了一个频繁的操作,“TabBars”插件的C++程序文件和头文件快速切换功能就是为了方便C/C++程序员而设计的。很多插件都有这个功能,但是“TabBars”有自己的特色,那就是支持多目录搜索,使用户在浏览其它库的代码时也能够得心应手。 要切换到当前打开文件对应的程序文件或头文件,只需点击工具栏的图标就可以切换到对应的文件,如果文件没有打开“TabBars”会自动打开文件。通过插件配置窗口可以设置切换文件的搜索路径和文件匹配扩展名: 图4. 文件切换选项 “TabBars”最多支持64个搜索目录,根据软件项目的不同可以选择使用其中的部分搜索目录,“TabBars”只从目录前面有X选择标记的目录中搜索对应的文件。用户还可以指定文件搜索时对扩展名的匹配,图(4)中的配置适用于C/C++文件的切换。“TabBars”首先用指定的匹配扩展名在文件所在的目录搜索对应的程序文件或头文件,如果没有找到对应的文件就会依次搜索用户选择的搜索目录。 该功能的默认快捷键是:Ctrl+Shift+S 三 将当前打开的文件所在目录设为工作目录 有时候开发人员需要频繁地打开位于某个目录中的文件,比如浏览某个软件包代码的时候,可是VC集成环境的“当前目录”却在project文件所在的目录,每次打开文件时文件选择对话框都会自动定位到project文件所在的目录,还要手工换到软件包所在目录,非常不方便。“TabBars”提供的这个功能可以把当前打开的文件所在的目录设为“当前目录”,这样再打开这个目录中的文件时VC的文件选择对话框会自动定位到这个目录,省去很多麻烦。单击工具栏的按钮就可以轻松的改变集成环境的“当前目录”。 四 以文本方式打开资源文件 VC的class wizard在管理资源的时候经常会出错,有时候两个控件被设置为相同的ID,这会导致程序运行过程中存在潜在的错误,另外,有时候开发人员希望几个控件拥有连续的的ID(通常用在一组相同类型的控件消息处理),这就需要手工编辑资源文件。“TabBars”给开发人员提供了不离开集成开发环境就能够以文本方式编辑资源文件的功能。这个功能的使用很简单,首先打开某个资源,资源编辑窗口就成为当前窗口,此时单击工具栏的按钮就可以以文本的方式打开资源文件。 五 为选定的代码添加C风格的注释 这个功能就不多说了,就是使用一对/**/ 将选择的代码编程C风格的注释,如果用户还设置了“自动添加注释信息”,则会在开始位置添加注释信息。使用方法是首先在编辑窗口选择一块代码,然后单击工具栏的按钮,代码注释的效果如下图所示: 图5. C风格代码注释效果 该功能的默认快捷键是:Ctrl+Shift+B 六 为选定的代码添加C++风格的注释 嵌套的/**/注释是不允许的,当选择的代码块中已经有/**/注释的代码块时,使用C++风格的注释就是唯一的选择了。使用的方法是首先在编辑窗口选择一块代码,然后单击工具栏的按钮,代码注释的效果如下图所示: 图6. C++风格代码注释效果 该功能的默认快捷键是:Ctrl+Shift+R 七 从注释代码中恢复代码 这个功能也不用多说了,使用方法是首先在编辑窗口选择一块注释代码,对于C风格的代码块要选择完整的/**/对,然后单击工具栏的按钮。 该功能的默认快捷键是:Ctrl+Shift+U 八 添加格式化函数说明 这个功能就是在函数前面添加具有一定格式的说明,使用方法是首先选择完整的函数声明,下图所示的就是两种正确的选择: 图7. 选择完整的函数声明 然后单击工具栏的按钮,在弹出的对话框中输入对函数的说明和参数解释: 图8. 输入函数说明 下图是生成的说明块的效果: 图9. 格式化函数说明的效果 该功能的默认快捷键是:Ctrl+Shift+F 九 添加Visio-like diagrams 在你的代码中添加几个简单的模块关系图是不是很酷?感谢Codeproject上的.dan.g.为我们完成了这个工作。这个功能的使用很简单,首先在编辑窗口内将编辑光标定位到需要插入图表的位置,然后单击工具栏的按钮,就会弹出diagrams编辑窗口: 图10. diagrams编辑窗口 下图是生成的代码: 图11. 生成的ASCII图表 如果要修改ASCII图表,只需选择完整的ASCII图表代码块,然后单击工具栏的按钮。 十 VC工程代码自动打包 直接在集成开发环境中将整个项目的源代码打包压缩成zip文件是一个很实用的功能,“TabBars”对此功能进入了深度开发,使其功能更为完善。当你要打包一个项目的代码时,单击工具栏的按钮就可以了。“TabBars”插件会自动搜索整个工作区的所有项目,然后定位到工作区的根目录,用户也可以根据代码组织的实际情况选择需要打包的代码所在目录,整个界面如图(12)所示: 图12. 打包整个工作区 选择压缩文件的输出位置,单击“确定”按钮就可以了。由于代码所在目录通常还有VC编译生成的临时文件,用户还可以选择打包过程中排除这些文件,在“打包压缩设置”窗口中可以设置文件选择方式: 图13. 打包压缩选项设置窗口 如果选择了“压缩完成后打开文件确认”选项,“TabBars”会在打包完成后自动调用zip文件的关联软件打开生成的压缩包,以确认是否正确生成了压缩文件。 十一 从zip压缩文件中打开VC工程 通常从网上下载的例子代码都是压缩在zip文件中的,查看zip文件中的项目通常要将代码解压缩到临时目录中然后用VC打开项目,“TabBars”提供了不离开VC的集成开发环境就能够查看zip压缩文件中的VC项目的功能。单击工具栏的按钮,在弹出的文件选择窗口中选择VC项目所在的zip压缩文件,“TabBars”会自动在指定的临时目录中展开压缩文件,然后定位到工作区文件并打开。如果一个zip文件中没有工作区(dsw)文件,“TabBars”会弹出窗口让用户选择具体的项目文件(dsp)。如果zip文件中有多个工作区文件,“TabBars”会弹出如下窗口让用户选择一个工作区: 图14. 选择工作区 用户可以通过图(13)所示的“打包压缩选项设置窗口”设置临时文件存放目录,默认的临时文件存放位置是:C:\unzipped 十二 自动保存文件 “TabBars”提供定时自动保存文件功能。在图(15)所示的设置窗口中可以选择启用或关闭自动保存功能。 图15. 一般设置窗口 十三 自动添加注释信息 “TabBars”提供在注释代码时梓潼添加注释信息的功能,目前的版本支持添加注释人名称和时间戳。可以在图(15)所示的设置窗口中选择自动添加的注释信息。 十四 自动生成工程编译日志 “TabBars”提供生成编译日志的功能,会在dsp文件所在目录生成一个同名的log文件,内部记载项目编译次数和每次编译的情况,记录编译次数可以为你的软件定版本提供依据。以下时日志文件的部分内容示例: /本日志文件由 "Tabbar Add-in(1.17.3169) For Visual C++ 6.0" 创建 //项目文件:C:\unzipped\CustDlg\CustDlg.dsp //如果文件增长的很大请删除除本节之外的其他信息 [MAIN] nBuildNumber = 49 [Build00000001] sStartTime = 2005-08-18 16:17:53 sCompileUser = orbit nErrors = 0 nWarns = 0 sEndTime = 2005-08-18 16:17:57 [Build00000002] sStartTime = 2005-08-18 16:19:32 sCompileUser = orbit nErrors = 0 nWarns = 0 sEndTime = 2005-08-18 16:19:33 可以在图(15)所示的设置窗口中选择是否记录日志以及日志记录的内容。 十五 在table标签栏使用Windows系统菜单 在table标签栏单击鼠标右键会弹出文件属性菜单,如果你在“TabBars选项”窗口中选择“在右键菜单使用系统菜单”选项,则还可以使用Windows的系统菜单,不离开VC的集成开发环境就可以进行常规的文件操作: 图16. 系统菜单示例
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值