unit Unit1;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Xml.xmldom, Xml.XMLIntf,  Xml.Win.msxmldom, Xml.XMLDoc;type  TFrmMain = class(TForm)    MemoGroupFile: TMemo;    Button1: TButton;    Button2: TButton;    Memo1: TMemo;    OpenDialog1: TOpenDialog;    XMLDocument1: TXMLDocument;    Memo2: TMemo;    Button3: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);    procedure Button3Click(Sender: TObject);  private    { Private declarations }    GroupPath:string;  public    { Public declarations }  end;var  FrmMain: TFrmMain;implementation{$R *.dfm}procedure TFrmMain.Button1Click(Sender: TObject);begin//提取项目组文件//  OpenDialog1.InitialDir := ‘E:\DelphiPackages\DelphiXE7\DevExpressVcl_14.1.3‘;//  OpenDialog1.FileName:=‘E:\DelphiPackages\DelphiXE7\DevExpressVcl_14.1.3\DelphiXE7.groupproj‘ ;//  if OpenDialog1.Execute then//  begin//    MemoGroupFile.Lines.Clear;//    //MemoGroupFile.Lines.LoadFromFile(OpenDialog1.FileName);//    XMLDocument1.LoadFromFile(OpenDialog1.FileName);//    MemoGroupFile.Lines:=XMLDocument1.XML;////    self.Caption:=OpenDialog1.FileName;//    GroupPath:= ExtractFilePath(OpenDialog1.FileName); //文件夹后面带///  end;end;procedure TFrmMain.Button2Click(Sender: TObject);var//  nodeList: IXMLNodeList;//  node: IXMLNode;  num,i: Integer;//  str:string;begin//根据项目组，提取dpk文件//  nodeList := XMLDocument1.DocumentElement.ChildNodes[1].ChildNodes;//  num := nodeList.Count;//  Memo1.Lines.Clear;//  for i := 0 to num - 1 do//  begin//    node := nodeList[i];//    str:=node.Attributes[‘Include‘];//    str:=GroupPath+ StringReplace(str,‘dproj‘,‘dpk‘,[rfReplaceAll]);//    Memo1.Lines.Add(str);//  end;  Memo1.Lines.Clear;  for i := 0 to MemoGroupFile.Lines.Count-1 do  begin    if Pos(‘Compiling package ‘,MemoGroupFile.Lines[i])>0 then      Memo1.Lines.Add(StringReplace(MemoGroupFile.Lines[i],‘Compiling package ‘,‘‘,[]));  end;end;procedure TFrmMain.Button3Click(Sender: TObject);var  aFile:TStrings;  i,j:Integer;  CurPackName, PackName:string;  IsAdd:Boolean;begin  aFile:=TStringList.Create;  PackName:=‘‘;  CurPackName:=‘‘;  Memo2.Lines.Clear;  GroupPath :=‘E:\DelphiPackages\DelphiXE7\DevExpressVcl_14.1.3\‘;  for I := 0 to Memo1.Lines.Count-1 do  begin    //提取控件包名    CurPackName:=StringReplace(Memo1.Lines[i],GroupPath,‘‘,[rfReplaceAll]);    CurPackName:=Copy(CurPackName,0,Pos(‘\‘,CurPackName)-1);    IsAdd:=False;    aFile.LoadFromFile(Memo1.Lines[i]);    if Pos(‘{$RUNONLY}‘,aFile.Text)>0 then //只提取运行时包    begin      if CurPackName<>PackName then      begin        if i<>0 then Memo2.Lines.Add(‘‘);        Memo2.Lines.Add(‘  //‘+CurPackName);      end;      for j := 0 to aFile.Count-1 do      begin        if aFile[j]=‘contains‘ then        begin          IsAdd:=True;          Continue;        end;        if IsAdd then        begin          if Pos(‘;‘,aFile[j])>0 then IsAdd:=False;          Memo2.Lines.Add(StringReplace(aFile[j],‘;‘,‘,‘,[rfReplaceAll]));        end;      end;      PackName:=CurPackName;    end;  end;  i:=Memo2.Lines.Count;  Memo2.Lines[i-1]:= StringReplace(Memo2.Lines[i-1],‘,‘,‘;‘,[rfReplaceAll]) ;end;end.

object Form1: TForm1  Left = 0  Top = 0  Caption = ‘Form1‘  ClientHeight = 357  ClientWidth = 764  Color = clBtnFace  Font.Charset = DEFAULT_CHARSET  Font.Color = clWindowText  Font.Height = -11  Font.Name = ‘Tahoma‘  Font.Style = []  OldCreateOrder = False  PixelsPerInch = 96  TextHeight = 13  object cxFilterControl1: TcxFilterControl    Left = 24    Top = 8    Width = 153    Height = 89    TabOrder = 0  end  object cxTabControl1: TcxTabControl    Left = 216    Top = 0    Width = 209    Height = 121    TabOrder = 1    Properties.CustomButtons.Buttons = <>    Properties.TabIndex = 0    Properties.Tabs.Strings = (      ‘asdf‘      ‘asd‘      ‘fa‘      ‘df‘      ‘asdf‘)    ClientRectBottom = 117    ClientRectLeft = 4    ClientRectRight = 205    ClientRectTop = 24  end  object cxGrid1: TcxGrid    Left = 8    Top = 149    Width = 250    Height = 200    TabOrder = 2    object cxGrid1DBTableView1: TcxGridDBTableView      Navigator.Buttons.CustomButtons = <>      DataController.Summary.DefaultGroupSummaryItems = <>      DataController.Summary.FooterSummaryItems = <>      DataController.Summary.SummaryGroups = <>    end    object cxGrid1Level1: TcxGridLevel      GridView = cxGrid1DBTableView1    end  end  object cxScheduler1: TcxScheduler    Left = 431    Top = 8    Width = 350    Height = 250    ViewDay.Active = True    Font.Charset = DEFAULT_CHARSET    Font.Color = clWindowText    Font.Height = -11    Font.Name = ‘Tahoma‘    Font.Style = []    TabOrder = 3    Splitters = {      CE0000007E0000005D01000083000000C900000001000000CE000000F9000000}    StoredClientBounds = {01000000010000005D010000F9000000}  end  object cxHeader1: TcxHeader    Left = 336    Top = 168    Width = 25    Height = 25    Sections = <>  end  object cxShellListView1: TcxShellListView    Left = 280    Top = 199    Width = 250    Height = 150    TabOrder = 5  end  object cxButton1: TcxButton    Left = 576    Top = 288    Width = 75    Height = 33    Caption = ‘cxButton1‘    TabOrder = 6  end  object cxScrollBox1: TcxScrollBox    Left = 280    Top = 127    Width = 185    Height = 41    TabOrder = 7  end  object cxTextEdit1: TcxTextEdit    Left = 56    Top = 122    TabOrder = 8    Text = ‘cxTextEdit1‘    Width = 121  endend