slectdir.pas

来自「BLUE源码 BLUE源码 BLUE源码」· PAS 代码 · 共 43 行

unit SlectDir;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TFormSlectDir=class(TForm)
    ShellTreeView: TShellTreeView;
    LabelCurPath: TLabel;
    BitBtnSelectDir: TBitBtn;
    BitBtnCancel: TBitBtn;
    procedure BitBtnSelectDirClick(Sender : TObject);
    procedure ShellTreeViewChange(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FormSlectDir: TFormSlectDir;

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

implementation

{$R *.DFM}

procedure TFormSlectDir.BitBtnSelectDirClick(Sender : TObject);
begin
(*
004B05E0   55                     push    ebp
004B05E1   8BEC                   mov     ebp, esp
004B05E3   6A00                   push    $00
004B05E5   6A00                   push    $00
004B05E7   53                     push    ebx
004B05E8   8BD8                   mov     ebx, eax
004B05EA   33C0                   xor     eax, eax
004B05EC   55                     push    ebp

* Possible String Reference to: '殁8