📄 unit1.~asm
字号:
dd @Stdctrls@TLabel@
@TForm1@ ends
_DATA ends
_TEXT segment dword public use32 'CODE'
@$xp$6TForm1 segment virtual
align 2
@@$xp$6TForm1 label byte
dd @@$xp$6TForm1+4
db 7
db 6
db 84,70,111,114,109,49
dd @@TForm1@+76
dd @$xp$11Forms@TForm
dw 92
db 5
db 85,110,105,116,49
dw 0
@$xp$6TForm1 ends
_TEXT ends
_TEXT segment dword public use32 'CODE'
@$xt$6TForm1 segment virtual
align 2
@@$xt$6TForm1 label byte
dd 776
dw 3
dw 48
dd 0
dd 183
dw 56
dw 72
dd 0
dw 0
dw 0
dd 0
dd 17
dd 17
dd @@TForm1@$bdtr$qqrv
dw 3
dw 76
db 84
db 70
db 111
db 114
db 109
db 49
db 0
db 0
dd @@$xt$11Forms@TForm
dd 0
dd 3
dd 0
dd 0
dd 0
@$xt$6TForm1 ends
_TEXT ends
_TEXT segment dword public use32 'CODE'
@$xt$11Forms@TForm segment virtual
align 2
@@$xt$11Forms@TForm label byte
dd 752
dw 3
dw 48
dd 0
dd 183
dw 64
dw 80
dd 0
dw 0
dw 0
dd 0
dd 16
dd 16
dd @@Forms@TForm@$bdtr$qqrv
dw 3
dw 84
db 70
db 111
db 114
db 109
db 115
db 58
db 58
db 84
db 70
db 111
db 114
db 109
db 0
db 0
db 0
db 0
dd @@$xt$17Forms@TCustomForm
dd 0
dd 3
dd 0
dd 0
dd 0
@$xt$11Forms@TForm ends
_TEXT ends
_DATA segment dword public use32 'DATA'
@_$ECTIF$@TForm1@$bdtr$qqrv segment virtual
align 2
@@_$ECTIF$@TForm1@$bdtr$qqrv label dword
dd 0
dd -36
@_$ECTIF$@TForm1@$bdtr$qqrv ends
_DATA ends
_TEXT segment dword public use32 'CODE'
@TForm1@$bdtr$qqrv segment virtual
@@TForm1@$bdtr$qqrv proc near
?live16408@0:
?debug L 0
push ebp
mov ebp,esp
add esp,-44
call __BeforeDestruction
mov byte ptr [ebp-41],dl
mov dword ptr [ebp-40],eax
@30:
mov eax,offset @@_$ECTIF$@TForm1@$bdtr$qqrv
call @__InitExceptBlockLDTC
cmp byte ptr [ebp-41],0
jl short @31
sub dword ptr [ebp-8],16
xor edx,edx
mov eax,dword ptr [ebp-40]
call @@Forms@TForm@$bdtr$qqrv
@31:
@32:
mov edx,dword ptr [ebp-36]
mov dword ptr fs:[0],edx
@34:
@33:
cmp byte ptr [ebp-41],0
jle short @35
mov eax,dword ptr [ebp-40]
call __ClassDestroy
?debug L 247
@35:
mov esp,ebp
pop ebp
ret
?debug L 0
@@TForm1@$bdtr$qqrv endp
@TForm1@$bdtr$qqrv ends
_TEXT ends
$$BSYMS segment byte public use32 'DEBSYM'
dw 65
dw 517
dw 0
dw 0
dw 0
dw 0
dw 0
dw 0
dd ?patch40
dd ?patch41
dd ?patch42
df @@TForm1@$bdtr$qqrv
dw 0
dw 4141
dw 0
dw 32
dw 0
dw 0
dw 0
db 18
db 64
db 84
db 70
db 111
db 114
db 109
db 49
db 64
db 36
db 98
db 100
db 116
db 114
db 36
db 113
db 113
db 114
db 118
dw 18
dw 512
dw 65496
dw 65535
dw 4102
dw 0
dw 33
dw 0
dw 0
dw 0
dw ?patch43
dw 529
dw ?patch44
dd ?live16408@0-@@TForm1@$bdtr$qqrv
dd ?live16408@0-?live16408@0
dw 17
?patch44 equ 1
?patch43 equ 14
?patch40 equ @34-@@TForm1@$bdtr$qqrv+18
?patch41 equ 0
?patch42 equ @34-@@TForm1@$bdtr$qqrv
dw 2
dw 6
dw 4
dw 531
dw 0
$$BSYMS ends
_DATA segment dword public use32 'DATA'
@_$DCJF$@Forms@TForm@$bctr$qqrp18Classes@TComponenti segment virtual
align 2
@@_$DCJF$@Forms@TForm@$bctr$qqrp18Classes@TComponenti label dword
dd @@$xt$p11Forms@TForm
dd 1029
dd -4
dd 0
@_$DCJF$@Forms@TForm@$bctr$qqrp18Classes@TComponenti ends
_DATA ends
_DATA segment dword public use32 'DATA'
@_$ECTKF$@Forms@TForm@$bctr$qqrp18Classes@TComponenti segment virtual
align 2
@@_$ECTKF$@Forms@TForm@$bctr$qqrp18Classes@TComponenti label dword
dd 0
dd -40
dw 0
dw 5
dd 0
dd @@_$DCJF$@Forms@TForm@$bctr$qqrp18Classes@TComponenti
@_$ECTKF$@Forms@TForm@$bctr$qqrp18Classes@TComponenti ends
_DATA ends
_TEXT segment dword public use32 'CODE'
@Forms@TForm@$bctr$qqrp18Classes@TComponenti segment virtual
@@Forms@TForm@$bctr$qqrp18Classes@TComponenti proc near
?live16409@0:
?debug T "c:\program files\borland\cbuilder6\include\vcl\Forms.hpp"
?debug L 933
push ebp
mov ebp,esp
add esp,-48
mov byte ptr [ebp-8],dl
test dl,dl
jle short @36
call __ClassCreate
@36:
mov dword ptr [ebp-48],ecx
mov byte ptr [ebp-41],dl
mov dword ptr [ebp-4],eax
@37:
mov eax,offset @@_$ECTKF$@Forms@TForm@$bctr$qqrp18Classes@TComponenti
call @__InitExceptBlockLDTC
mov word ptr [ebp-24],8
push dword ptr [ebp+8]
mov ecx,dword ptr [ebp-48]
xor edx,edx
mov eax,dword ptr [ebp-4]
call @@Forms@TCustomForm@$bctr$qqrp18Classes@TComponenti
add dword ptr [ebp-12],15
mov edx,dword ptr [ebp-40]
mov dword ptr fs:[0],edx
mov eax,dword ptr [ebp-4]
@39:
@38:
cmp byte ptr [ebp-41],0
je short @40
call __AfterConstruction
?debug L 933
@40:
mov esp,ebp
pop ebp
ret 4
?debug L 0
@@Forms@TForm@$bctr$qqrp18Classes@TComponenti endp
@Forms@TForm@$bctr$qqrp18Classes@TComponenti ends
_TEXT ends
$$BSYMS segment byte public use32 'DEBSYM'
dw 91
dw 517
dw 0
dw 0
dw 0
dw 0
dw 0
dw 0
dd ?patch45
dd ?patch46
dd ?patch47
df @@Forms@TForm@$bctr$qqrp18Classes@TComponenti
dw 0
dw 4143
dw 0
dw 34
dw 0
dw 0
dw 0
db 44
db 64
db 70
db 111
db 114
db 109
db 115
db 64
db 84
db 70
db 111
db 114
db 109
db 64
db 36
db 98
db 99
db 116
db 114
db 36
db 113
db 113
db 114
db 112
db 49
db 56
db 67
db 108
db 97
db 115
db 115
db 101
db 115
db 64
db 84
db 67
db 111
db 109
db 112
db 111
db 110
db 101
db 110
db 116
db 105
dw 18
dw 512
dw 65532
dw 65535
dw 4126
dw 0
dw 35
dw 0
dw 0
dw 0
dw ?patch48
dw 529
dw ?patch49
dd ?live16409@0-@@Forms@TForm@$bctr$qqrp18Classes@TComponenti
dd ?live16409@0-?live16409@0
dw 17
?patch49 equ 1
?patch48 equ 14
dw 18
dw 512
dw 65488
dw 65535
dw 65530
dw 65535
dw 36
dw 0
dw 0
dw 0
dw ?patch50
dw 529
dw ?patch51
dd ?live16409@0-@@Forms@TForm@$bctr$qqrp18Classes@TComponenti
dd ?live16409@0-?live16409@0
dw 18
?patch51 equ 1
?patch50 equ 14
dw 18
dw 512
dw 8
dw 0
dw 116
dw 0
dw 37
dw 0
dw 0
dw 0
?patch45 equ @39-@@Forms@TForm@$bctr$qqrp18Classes@TComponenti+17
?patch46 equ 0
?patch47 equ @39-@@Forms@TForm@$bctr$qqrp18Classes@TComponenti
dw 2
dw 6
dw 4
dw 531
dw 0
$$BSYMS ends
_DATA segment dword public use32 'DATA'
@_$DCLF$@Forms@TForm@$bdtr$qqrv segment virtual
align 2
@@_$DCLF$@Forms@TForm@$bdtr$qqrv label dword
dd @@$xt$p11Forms@TForm
dd 1029
dd -4
dd 0
@_$DCLF$@Forms@TForm@$bdtr$qqrv ends
_DATA ends
_DATA segment dword public use32 'DATA'
@_$ECTMF$@Forms@TForm@$bdtr$qqrv segment virtual
align 2
@@_$ECTMF$@Forms@TForm@$bdtr$qqrv label dword
dd 0
dd -40
dw 0
dw 5
dd 0
dd @@_$DCLF$@Forms@TForm@$bdtr$qqrv
@_$ECTMF$@Forms@TForm@$bdtr$qqrv ends
_DATA ends
_TEXT segment dword public use32 'CODE'
@Forms@TForm@$bdtr$qqrv segment virtual
@@Forms@TForm@$bdtr$qqrv proc near
?live16410@0:
?debug L 936
push ebp
mov ebp,esp
add esp,-44
call __BeforeDestruction
mov byte ptr [ebp-41],dl
mov dword ptr [ebp-4],eax
@41:
mov eax,offset @@_$ECTMF$@Forms@TForm@$bdtr$qqrv
call @__InitExceptBlockLDTC
mov dword ptr [ebp-12],15
cmp byte ptr [ebp-41],0
jl short @42
mov word ptr [ebp-24],8
sub dword ptr [ebp-12],15
xor edx,edx
mov eax,dword ptr [ebp-4]
call @@Forms@TCustomForm@$bdtr$qqrv
@42:
mov edx,dword ptr [ebp-40]
mov dword ptr fs:[0],edx
@43:
cmp byte ptr [ebp-41],0
jle short @44
mov eax,dword ptr [ebp-4]
call __ClassDestroy
?debug L 936
@44:
mov esp,ebp
pop ebp
ret
?debug L 0
@@Forms@TForm@$bdtr$qqrv endp
@Forms@TForm@$bdtr$qqrv ends
_TEXT ends
$$BSYMS segment byte public use32 'DEBSYM'
dw 70
dw 517
dw 0
dw 0
dw 0
dw 0
dw 0
dw 0
dd ?patch52
dd ?patch53
dd ?patch54
df @@Forms@TForm@$bdtr$qqrv
dw 0
dw 4145
dw 0
dw 38
dw 0
dw 0
dw 0
db 23
db 64
db 70
db 111
db 114
db 109
db 115
db 64
db 84
db 70
db 111
db 114
db 109
db 64
db 36
db 98
db 100
db 116
db 114
db 36
db 113
db 113
db 114
db 118
dw 18
dw 512
dw 65532
dw 65535
dw 4126
dw 0
dw 39
dw 0
dw 0
dw 0
dw ?patch55
dw 529
dw ?patch56
dd ?live16410@0-@@Forms@TForm@$bdtr$qqrv
dd ?live16410@0-?live16410@0
dw 17
?patch56 equ 1
?patch55 equ 14
?patch52 equ @43-@@Forms@TForm@$bdtr$qqrv+18
?patch53 equ 0
?patch54 equ @43-@@Forms@TForm@$bdtr$qqrv
dw 2
dw 6
dw 4
dw 531
dw 0
$$BSYMS ends
_TEXT segment dword public use32 'CODE'
@$xt$17Forms@TCustomForm segment virtual
align 2
@@$xt$17Forms@TCustomForm label byte
dd 752
dw 3
dw 48
dd 0
dd 183
dw 68
dw 84
dd 0
dw 0
dw 0
dd 0
dd 15
dd 15
dd @@Forms@TCustomForm@$bdtr$qqrv
dw 3
dw 88
db 70
db 111
db 114
db 109
db 115
db 58
db 58
db 84
db 67
db 117
db 115
db 116
db 111
db 109
db 70
db 111
db 114
db 109
db 0
db 0
dd @@$xt$26Forms@TScrollingWinControl
dd 0
dd 3
dd 0
dd 0
dd @@$xt$17System@AnsiString
dd 572
dd @@$xt$47System@%DelphiInterface$t19Forms@IDesignerHook%
dd 592
dd @@$xt$42System@%DelphiInterface$t14Forms@IOleForm%
dd 612
dd 0
@$xt$17Forms@TCustomForm ends
_TEXT ends
_TEXT segment dword public use32 'CODE'
@$xt$42System@%DelphiInterface$t14Forms@IOleForm% segment virtual
align 2
@@$xt$42System@%DelphiInterface$t14Forms@IOleForm% label byte
dd 4
dw 3
dw 48
dd -1
dd 3
dw 92
dw 96
dd 0
dw 0
dw 0
dd 0
dd 1
dd 1
dd @@System@%DelphiInterface$t14Forms@IOleForm%@$bdtr$qqrv
dw 3
dw 100
db 83
db 121
db 115
db 116
db 101
db 109
db 58
db 58
db 68
db 101
db 108
db 112
db 104
db 105
db 73
db 110
db 116
db 101
db 114
db 102
db 97
db 99
db 101
db 60
db 70
db 111
db 114
db 109
db 115
db 58
db 58
db 73
db 79
db 108
db 101
db 70
db 111
db 114
db 109
db 62
db 0
db 0
db 0
db 0
dd 0
dd 0
dd 0
@$xt$42System@%DelphiInterface$t14Forms@IOleForm% ends
_TEXT ends
_TEXT segment dword public use32 'CODE'
@$xt$47System@%DelphiInterface$t19Forms@IDesignerHook% segment virtual
align 2
@@$xt$47System@%DelphiInterface$t19Forms@IDesignerHook% label byte
dd 4
dw 3
dw 48
dd -1
dd 3
dw 96
dw 100
dd 0
dw 0
dw 0
dd 0
dd 1
dd 1
dd @@System@%DelphiInterface$t19Forms@IDesignerHook%@$bdtr$qqrv
dw 3
dw 104
db 83
db 121
db 115
db 116
db 101
db 109
db 58
db 58
db 68
db 101
db 108
db 112
db 104
db 105
db 73
db 110
db 116
db 101
db 114
db 102
db 97
db 99
db 101
db 60
db 70
db 111
db 114
db 109
db 115
db 58
db 58
db 73
db 68
db 101
db 115
db 105
db 103
db 110
db 101
db 114
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -