?? zbxgbyname.pas
字號:
unit ZBXGByName;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, ComCtrls
type
TXGByNameFrm=class(TForm)
ListView1: TListView;
procedure FormCreate(Sender : TObject);
procedure ListView1DblClick(Sender : TObject);
procedure _PROC_006F298C(Sender : TObject);
procedure _PROC_006F29BC(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
XGByNameFrm: TXGByNameFrm;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TXGByNameFrm.FormCreate(Sender : TObject);
begin
(*
006F28C0 55 push ebp
006F28C1 8BEC mov ebp, esp
006F28C3 83C4F4 add esp, -$0C
006F28C6 53 push ebx
006F28C7 56 push esi
006F28C8 57 push edi
006F28C9 33C9 xor ecx, ecx
006F28CB 894DF4 mov [ebp-$0C], ecx
006F28CE 8945FC mov [ebp-$04], eax
006F28D1 33C0 xor eax, eax
006F28D3 55 push ebp
006F28D4 685A296F00 push $006F295A
***** TRY
|
006F28D9 64FF30 push dword ptr fs:[eax]
006F28DC 648920 mov fs:[eax], esp
006F28DF A118CB7700 mov eax, dword ptr [$0077CB18]
006F28E4 8B00 mov eax, [eax]
006F28E6 8B8048010000 mov eax, [eax+$0148]
006F28EC 8B7008 mov esi, [eax+$08]
006F28EF 4E dec esi
006F28F0 85F6 test esi, esi
006F28F2 7C50 jl 006F2944
006F28F4 46 inc esi
006F28F5 33FF xor edi, edi
006F28F7 A118CB7700 mov eax, dword ptr [$0077CB18]
006F28FC 8B00 mov eax, [eax]
006F28FE 8B8048010000 mov eax, [eax+$0148]
006F2904 8BD7 mov edx, edi
* Reference to: classes.TList.Get(TList;Integer):Pointer;
|
006F2906 E81917D2FF call 00414024
006F290B 8BD8 mov ebx, eax
006F290D 807B1E00 cmp byte ptr [ebx+$1E], $00
006F2911 742D jz 006F2940
006F2913 8B45FC mov eax, [ebp-$04]
* Reference to control TXGByNameFrm.ListView1 : TListView
|
006F2916 8B80D0020000 mov eax, [eax+$02D0]
* Reference to field TListView.Items : TListItems
|
006F291C 8B800C020000 mov eax, [eax+$020C]
* Reference to: comctrls.TListItems.Add(TListItems):TListItem;
|
006F2922 E8D5AFD8FF call 0047D8FC
006F2927 8945F8 mov [ebp-$08], eax
006F292A 8D45F4 lea eax, [ebp-$0C]
006F292D 8B5304 mov edx, [ebx+$04]
* Reference to: system.@LStrFromPChar(String;String;PAnsiChar);
|
006F2930 E87719D1FF call 004042AC
006F2935 8B55F4 mov edx, [ebp-$0C]
006F2938 8B45F8 mov eax, [ebp-$08]
* Reference to: comctrls.TListItem.SetCaption(TListItem;AnsiString);
|
006F293B E890AAD8FF call 0047D3D0
006F2940 47 inc edi
006F2941 4E dec esi
006F2942 75B3 jnz 006F28F7
006F2944 33C0 xor eax, eax
006F2946 5A pop edx
006F2947 59 pop ecx
006F2948 59 pop ecx
006F2949 648910 mov fs:[eax], edx
****** FINALLY
|
006F294C 6861296F00 push $006F2961
006F2951 8D45F4 lea eax, [ebp-$0C]
* Reference to: system.@LStrClr(String;String);
|
006F2954 E89B17D1FF call 004040F4
006F2959 C3 ret
* Reference to: system.@HandleFinally;
|
006F295A E9CD10D1FF jmp 00403A2C
006F295F EBF0 jmp 006F2951
****** END
|
006F2961 5F pop edi
006F2962 5E pop esi
006F2963 5B pop ebx
006F2964 8BE5 mov esp, ebp
006F2966 5D pop ebp
006F2967 C3 ret
*)
end;
procedure TXGByNameFrm.ListView1DblClick(Sender : TObject);
begin
(*
* Reference to control TXGByNameFrm.ListView1 : TListView
|
006F2968 8B80D0020000 mov eax, [eax+$02D0]
* Reference to: comctrls.TCustomListView.GetSelection(TCustomListView):TListItem;
|
006F296E E80DE5D8FF call 00480E80
006F2973 85C0 test eax, eax
006F2975 7411 jz 006F2988
006F2977 8B1518CB7700 mov edx, [$0077CB18]
006F297D 8B12 mov edx, [edx]
* Reference to field TListView.Parent : TWinControl
|
006F297F 8B4024 mov eax, [eax+$24]
006F2982 92 xchg eax, edx
* Reference to: Unit_0070F7F0.Proc_00719608
|
006F2983 E8806C0200 call 00719608
006F2988 C3 ret
*)
end;
procedure TXGByNameFrm._PROC_006F298C(Sender : TObject);
begin
(*
006F298C 55 push ebp
006F298D 8BEC mov ebp, esp
006F298F 33C0 xor eax, eax
006F2991 55 push ebp
006F2992 68B1296F00 push $006F29B1
***** TRY
|
006F2997 64FF30 push dword ptr fs:[eax]
006F299A 648920 mov fs:[eax], esp
006F299D FF05BCD57800 inc dword ptr [$0078D5BC]
006F29A3 33C0 xor eax, eax
006F29A5 5A pop edx
006F29A6 59 pop ecx
006F29A7 59 pop ecx
006F29A8 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']脣纼-頰x'
|
006F29AB 68B8296F00 push $006F29B8
006F29B0 C3 ret
* Reference to: system.@HandleFinally;
|
006F29B1 E97610D1FF jmp 00403A2C
006F29B6 EBF8 jmp 006F29B0
****** END
|
006F29B8 5D pop ebp
006F29B9 C3 ret
*)
end;
procedure TXGByNameFrm._PROC_006F29BC(Sender : TObject);
begin
(*
006F29BC 832DBCD5780001 sub dword ptr [$0078D5BC], +$01
006F29C3 C3 ret
*)
end;
end.?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -