📄 dgmdfwt.pas
字号:
unit DGMdfWT;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TFrmModifyWT=class(TForm)
RxGradientCaption1: TRxGradientCaption;
TreeView1: TTreeView;
Label1: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
ImageList1: TImageList;
Edit1: TEdit;
OFFS_02EC: N.A.;
OFFS_02FC: N.A.;
procedure FormDestroy(Sender : TObject);
procedure TreeView1Expanding(Sender : TObject);
procedure TreeView1Change(Sender : TObject);
procedure BitBtn1Click(Sender : TObject);
procedure FormActivate(Sender : TObject);
procedure TreeView1Click(Sender : TObject);
procedure TreeView1MouseDown(Sender : TObject);
procedure _PROC_006A2B60(Sender : TObject);
procedure _PROC_006A33B1(Sender : TObject);
procedure _PROC_006A3558(Sender : TObject);
procedure _PROC_006A3588(Sender : TObject);
procedure Proc_006A33B0(Sender : TObject);
procedure Proc_006A2A48(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
FrmModifyWT: TFrmModifyWT;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TFrmModifyWT.FormDestroy(Sender : TObject);
begin
(*
006A2AEC 53 push ebx
006A2AED 56 push esi
006A2AEE 57 push edi
006A2AEF 8BD8 mov ebx, eax
* Reference to field TFrmModifyWT.OFFS_02F0
|
006A2AF1 8B83F0020000 mov eax, [ebx+$02F0]
* Reference to: Unit_00409434.Proc_0040B0D4
|
006A2AF7 E8D885D6FF call 0040B0D4
* Reference to control TFrmModifyWT.TreeView1 : TTreeView
|
006A2AFC 8B83D4020000 mov eax, [ebx+$02D4]
* Reference to field TTreeView.Items : TTreeNodes
|
006A2B02 8B8054020000 mov eax, [eax+$0254]
* Reference to: comctrls.TTreeNodes.GetCount(TTreeNodes):Integer;
|
006A2B08 E8C741DDFF call 00476CD4
006A2B0D 8BF8 mov edi, eax
006A2B0F 4F dec edi
006A2B10 85FF test edi, edi
006A2B12 7C3B jl 006A2B4F
006A2B14 47 inc edi
006A2B15 33F6 xor esi, esi
* Reference to control TFrmModifyWT.TreeView1 : TTreeView
|
006A2B17 8B83D4020000 mov eax, [ebx+$02D4]
* Reference to field TTreeView.Items : TTreeNodes
|
006A2B1D 8B8054020000 mov eax, [eax+$0254]
006A2B23 8BD6 mov edx, esi
* Reference to: comctrls.TTreeNodes.GetNodeFromIndex(TTreeNodes;Integer):TTreeNode;
|
006A2B25 E8CE44DDFF call 00476FF8
* Reference to field TTreeNodes.OFFS_000C
|
006A2B2A 83780C00 cmp dword ptr [eax+$0C], +$00
006A2B2E 741B jz 006A2B4B
* Reference to control TFrmModifyWT.TreeView1 : TTreeView
|
006A2B30 8B83D4020000 mov eax, [ebx+$02D4]
* Reference to field TTreeView.Items : TTreeNodes
|
006A2B36 8B8054020000 mov eax, [eax+$0254]
006A2B3C 8BD6 mov edx, esi
* Reference to: comctrls.TTreeNodes.GetNodeFromIndex(TTreeNodes;Integer):TTreeNode;
|
006A2B3E E8B544DDFF call 00476FF8
* Reference to field TTreeNodes.OFFS_000C
|
006A2B43 8B400C mov eax, [eax+$0C]
* Reference to: system.@FreeMem;
|
006A2B46 E835FDD5FF call 00402880
006A2B4B 46 inc esi
006A2B4C 4F dec edi
006A2B4D 75C8 jnz 006A2B17
* Reference to field TFrmModifyWT.OFFS_02EC : TStringList
|
006A2B4F 8B83EC020000 mov eax, [ebx+$02EC]
* Reference to: system.TObject.Free(TObject);
|
006A2B55 E87207D6FF call 004032CC
006A2B5A 5F pop edi
006A2B5B 5E pop esi
006A2B5C 5B pop ebx
006A2B5D C3 ret
*)
end;
procedure TFrmModifyWT.TreeView1Expanding(Sender : TObject);
begin
(*
006A2B74 55 push ebp
006A2B75 8BEC mov ebp, esp
006A2B77 83C4B8 add esp, -$48
006A2B7A 53 push ebx
006A2B7B 56 push esi
006A2B7C 57 push edi
006A2B7D 33DB xor ebx, ebx
006A2B7F 895DBC mov [ebp-$44], ebx
006A2B82 895DB8 mov [ebp-$48], ebx
006A2B85 895DC0 mov [ebp-$40], ebx
006A2B88 895DC8 mov [ebp-$38], ebx
006A2B8B 895DC4 mov [ebp-$3C], ebx
006A2B8E 895DCC mov [ebp-$34], ebx
006A2B91 895DD0 mov [ebp-$30], ebx
006A2B94 895DE8 mov [ebp-$18], ebx
006A2B97 895DD4 mov [ebp-$2C], ebx
006A2B9A 894DF8 mov [ebp-$08], ecx
006A2B9D 8945FC mov [ebp-$04], eax
006A2BA0 33C0 xor eax, eax
006A2BA2 55 push ebp
006A2BA3 68792E6A00 push $006A2E79
***** TRY
|
006A2BA8 64FF30 push dword ptr fs:[eax]
006A2BAB 648920 mov fs:[eax], esp
006A2BAE 8B45F8 mov eax, [ebp-$08]
006A2BB1 8B400C mov eax, [eax+$0C]
006A2BB4 85C0 test eax, eax
006A2BB6 0F8494020000 jz 006A2E50
006A2BBC 8BF8 mov edi, eax
006A2BBE 807F0C00 cmp byte ptr [edi+$0C], $00
006A2BC2 0F8588020000 jnz 006A2E50
006A2BC8 C6470C01 mov byte ptr [edi+$0C], $01
006A2BCC 8B45F8 mov eax, [ebp-$08]
006A2BCF 8B400C mov eax, [eax+$0C]
006A2BD2 8B4004 mov eax, [eax+$04]
006A2BD5 8945F0 mov [ebp-$10], eax
006A2BD8 B201 mov dl, $01
* Reference to class TStringList
|
006A2BDA A19C284100 mov eax, dword ptr [$0041289C]
* Reference to: system.TObject.Create(TObject;Boolean);
|
006A2BDF E8B806D6FF call 0040329C
006A2BE4 8945EC mov [ebp-$14], eax
006A2BE7 8B45FC mov eax, [ebp-$04]
* Reference to field TFrmModifyWT.OFFS_02EC : TStringList
|
006A2BEA 8B80EC020000 mov eax, [eax+$02EC]
006A2BF0 8B4DEC mov ecx, [ebp-$14]
* Possible String Reference to: 'ANALYST'
|
006A2BF3 BA942E6A00 mov edx, $006A2E94
006A2BF8 8B18 mov ebx, [eax]
* Reference to method TStringList.AddObject(string,TObject)
|
006A2BFA FF5338 call dword ptr [ebx+$38]
* Reference to pointer to GlobalVar_00799264
|
006A2BFD 8B1530D07700 mov edx, [$0077D030]
006A2C03 8B12 mov edx, [edx]
006A2C05 8D45D0 lea eax, [ebp-$30]
* Possible String Reference to: 'base\departqs.mnu'
|
006A2C08 B9A42E6A00 mov ecx, $006A2EA4
* Reference to: system.@LStrCat3;
|
006A2C0D E8CA17D6FF call 004043DC
006A2C12 8B4DD0 mov ecx, [ebp-$30]
006A2C15 B201 mov dl, $01
* Reference to class TIniFile
|
006A2C17 A1085A4600 mov eax, dword ptr [$00465A08]
* Reference to: Unit_00465948.Proc_00465B58
|
006A2C1C E8372FDCFF call 00465B58
006A2C21 8945E0 mov [ebp-$20], eax
006A2C24 B201 mov dl, $01
* Reference to class TStringList
|
006A2C26 A19C284100 mov eax, dword ptr [$0041289C]
* Reference to: system.TObject.Create(TObject;Boolean);
|
006A2C2B E86C06D6FF call 0040329C
006A2C30 8945DC mov [ebp-$24], eax
006A2C33 8B4DDC mov ecx, [ebp-$24]
* Possible String Reference to: 'depart'
|
006A2C36 BAC02E6A00 mov edx, $006A2EC0
006A2C3B 8B45E0 mov eax, [ebp-$20]
006A2C3E 8B18 mov ebx, [eax]
* Reference to method TIniFile.ReadSection(string,TStrings)
|
006A2C40 FF5338 call dword ptr [ebx+$38]
006A2C43 8B45DC mov eax, [ebp-$24]
006A2C46 8B10 mov edx, [eax]
* Reference to method TStringList.Sort()
|
006A2C48 FF527C call dword ptr [edx+$7C]
006A2C4B 33C0 xor eax, eax
006A2C4D 8945E4 mov [ebp-$1C], eax
006A2C50 68FF000000 push $000000FF
006A2C55 8D45E8 lea eax, [ebp-$18]
006A2C58 B901000000 mov ecx, $00000001
006A2C5D 8B15602B6A00 mov edx, [$006A2B60]
* Reference to: system.@DynArraySetLength;
|
006A2C63 E86837D6FF call 004063D0
006A2C68 83C404 add esp, +$04
006A2C6B 8B45EC mov eax, [ebp-$14]
006A2C6E 8B10 mov edx, [eax]
* Reference to method TStringList.GetCount()
|
006A2C70 FF5214 call dword ptr [edx+$14]
006A2C73 8BF0 mov esi, eax
006A2C75 4E dec esi
006A2C76 85F6 test esi, esi
006A2C78 0F8EEC000000 jle 006A2D6A
006A2C7E BB01000000 mov ebx, $00000001
006A2C83 8D4DCC lea ecx, [ebp-$34]
006A2C86 8BD3 mov edx, ebx
006A2C88 8B45EC mov eax, [ebp-$14]
006A2C8B 8B38 mov edi, [eax]
* Reference to method TStringList.Get(Integer)
|
006A2C8D FF570C call dword ptr [edi+$0C]
006A2C90 8B55CC mov edx, [ebp-$34]
006A2C93 8D4DD8 lea ecx, [ebp-$28]
006A2C96 8B45DC mov eax, [ebp-$24]
006A2C99 8B38 mov edi, [eax]
* Reference to method TStringList.Find(string,Integer)
|
006A2C9B FF5778 call dword ptr [edi+$78]
006A2C9E 84C0 test al, al
006A2CA0 7433 jz 006A2CD5
006A2CA2 8D4DC8 lea ecx, [ebp-$38]
006A2CA5 8BD3 mov edx, ebx
006A2CA7 8B45EC mov eax, [ebp-$14]
006A2CAA 8B38 mov edi, [eax]
* Reference to method TStringList.Get(Integer)
|
006A2CAC FF570C call dword ptr [edi+$0C]
006A2CAF 8B45C8 mov eax, [ebp-$38]
006A2CB2 50 push eax
006A2CB3 8D45D4 lea eax, [ebp-$2C]
006A2CB6 50 push eax
006A2CB7 8D4DC4 lea ecx, [ebp-$3C]
006A2CBA 8BD3 mov edx, ebx
006A2CBC 8B45EC mov eax, [ebp-$14]
006A2CBF 8B38 mov edi, [eax]
* Reference to method TStringList.Get(Integer)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -