📄 slectdir.pas
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -