unit2.pas

delphi 写的一个窗口捕获程序

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls, DB, ADODB, ComCtrls,unit1,
  ToolWin;

type
  TForm2 = class(TForm)
    DBNavigator1: TDBNavigator;
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ADODataSet1name: TWideStringField;
    ADODataSet1winhwnd: TWideStringField;
    ADODataSet1winame: TWideStringField;
    ADODataSet1winclass: TWideStringField;
    ADODataSet1winanimate: TWideStringField;
    ADODataSet1animatesource: TWideStringField;
    ADODataSet1animatesender: TWideStringField;
    ADODataSet1iteration: TWideStringField;
    ADODataSet1waittime: TWideStringField;
    ADODataSet1parenthwnd: TWideStringField;
    ADODataSet1prentname: TWideStringField;
    ADODataSet1parentclass: TWideStringField;
    TreeView1: tTreeView;
    Splitter1: TSplitter;
    ToolBar1: TToolBar;
    ADODataSet1id: TIntegerField;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ADOQuery1: TADOQuery;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    procedure FormCreate(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);

   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
var
dprovider,ddrive,ddatasource:string;
const
connstr='Provider=MSDataShape.1;Password=;Persist Security Info=False;User ID=;Data Source=D:\myprogram\delphi\capturewindow\capturewindow\wincap.mdb;Data Provider=Microsoft.Jet.OLEDB.4.0';
begin
// set the connectionstring of the adoconnection1
dprovider:='MSDataShape.1';
ddrive:='Microsoft.Jet.OLEDB.4.0';
ddatasource:='D:\myprogram\delphi\capturewindow\capturewindow\wincap.mdb';
if not ADOConnection1.Connected then
   ADOConnection1.ConnectionString := Format(ConnStr, [dprovider, ddrive, ddatasource]);

 Adodataset1.Open;
 //set the column's width 
 dbgrid1.Columns[0].Width:=60;
 dbgrid1.Columns[1].Width:=60;
 dbgrid1.Columns[2].Width:=60;
 dbgrid1.Columns[3].Width:=60;
 dbgrid1.Columns[4].Width:=60;
 dbgrid1.Columns[5].Width:=60;
 dbgrid1.Columns[6].Width:=60;
 dbgrid1.Columns[7].Width:=60;
 dbgrid1.Columns[8].Width:=60;
 dbgrid1.Columns[9].Width:=60;
 dbgrid1.Columns[10].Width:=60;
 dbgrid1.Columns[11].Width:=60;
 dbgrid1.Columns[12].Width:=60;
 treeview1.Items.Add(nil,'新动作');
end;






procedure TForm2.ToolButton1Click(Sender: TObject);
begin
Form2.TreeView1.FullExpand;
end;

procedure TForm2.ToolButton2Click(Sender: TObject);
begin
form2.TreeView1.FullCollapse;
end;

procedure TForm2.ToolButton4Click(Sender: TObject);
var
prenode:Ttreenode;
begin
prenode:= form2.treeview1.selected;
while (prenode<>nil) and (prenode.parent<>nil) do
begin
prenode:=prenode.parent;
end;


end;

end.