📄 unit1.asm
字号:
?patch33 equ 1
?patch32 equ 14
?patch27 equ @15-@@TForm1@Button2Click$qqrp14System@TObject+4
?patch28 equ 0
?patch29 equ @15-@@TForm1@Button2Click$qqrp14System@TObject
dw 2
dw 6
dw 4
dw 531
dw 0
$$BSYMS ends
_TEXT segment dword public use32 'CODE'
@TForm1@Button3Click$qqrp14System@TObject segment virtual
@@TForm1@Button3Click$qqrp14System@TObject proc near
?live16394@0:
?debug L 51
push ebp
mov ebp,esp
add esp,-8
mov dword ptr [ebp-8],edx
mov dword ptr [ebp-4],eax
?debug L 53
@16:
mov dl,15
mov ax,890
call @@_outp$qqrusuc
?debug L 54
mov dl,15
mov ax,888
call @@_outp$qqrusuc
?debug L 55
@17:
pop ecx
pop ecx
pop ebp
ret
?debug L 0
@@TForm1@Button3Click$qqrp14System@TObject endp
@TForm1@Button3Click$qqrp14System@TObject ends
_TEXT ends
$$BSYMS segment byte public use32 'DEBSYM'
dw 88
dw 517
dw 0
dw 0
dw 0
dw 0
dw 0
dw 0
dd ?patch34
dd ?patch35
dd ?patch36
df @@TForm1@Button3Click$qqrp14System@TObject
dw 0
dw 4138
dw 0
dw 28
dw 0
dw 0
dw 0
db 41
db 64
db 84
db 70
db 111
db 114
db 109
db 49
db 64
db 66
db 117
db 116
db 116
db 111
db 110
db 51
db 67
db 108
db 105
db 99
db 107
db 36
db 113
db 113
db 114
db 112
db 49
db 52
db 83
db 121
db 115
db 116
db 101
db 109
db 64
db 84
db 79
db 98
db 106
db 101
db 99
db 116
dw 18
dw 512
dw 65532
dw 65535
dw 4102
dw 0
dw 29
dw 0
dw 0
dw 0
dw ?patch37
dw 529
dw ?patch38
dd ?live16394@0-@@TForm1@Button3Click$qqrp14System@TObject
dd ?live16394@0-?live16394@0
dw 17
?patch38 equ 1
?patch37 equ 14
dw 18
dw 512
dw 65528
dw 65535
dw 65532
dw 65535
dw 30
dw 0
dw 0
dw 0
dw ?patch39
dw 529
dw ?patch40
dd ?live16394@0-@@TForm1@Button3Click$qqrp14System@TObject
dd ?live16394@0-?live16394@0
dw 19
?patch40 equ 1
?patch39 equ 14
?patch34 equ @17-@@TForm1@Button3Click$qqrp14System@TObject+4
?patch35 equ 0
?patch36 equ @17-@@TForm1@Button3Click$qqrp14System@TObject
dw 2
dw 6
dw 4
dw 531
dw 0
$$BSYMS ends
_DATA segment dword public use32 'DATA'
@_$DCFE$@TForm1@Button4Click$qqrp14System@TObject segment virtual
align 2
@@_$DCFE$@TForm1@Button4Click$qqrp14System@TObject label dword
dd @@$xt$17System@AnsiString
dd 4
dd -4
dd 0
@_$DCFE$@TForm1@Button4Click$qqrp14System@TObject ends
_DATA ends
_DATA segment dword public use32 'DATA'
@_$ECTGE$@TForm1@Button4Click$qqrp14System@TObject segment virtual
align 2
@@_$ECTGE$@TForm1@Button4Click$qqrp14System@TObject label dword
dd 0
dd -40
dw 0
dw 5
dd 0
dd @@_$DCFE$@TForm1@Button4Click$qqrp14System@TObject
@_$ECTGE$@TForm1@Button4Click$qqrp14System@TObject ends
_DATA ends
_TEXT segment dword public use32 'CODE'
@TForm1@Button4Click$qqrp14System@TObject segment virtual
@@TForm1@Button4Click$qqrp14System@TObject proc near
?live16395@0:
?debug L 59
push ebp
mov ebp,esp
add esp,-48
mov dword ptr [ebp-48],edx
mov dword ptr [ebp-44],eax
@18:
mov eax,offset @@_$ECTGE$@TForm1@Button4Click$qqrp14System@TObject
call @__InitExceptBlockLDTC
?debug L 61
mov dl,15
mov ax,890
call @@_outp$qqrusuc
?debug L 62
mov word ptr [ebp-24],8
mov ax,888
call @@_inp$qqrus
mov edx,eax
lea eax,dword ptr [ebp-4]
call @@System@AnsiString@$bctr$qqri
inc dword ptr [ebp-12]
mov edx,dword ptr [eax]
mov ecx,dword ptr [ebp-44]
mov eax,dword ptr [ecx+728]
call @@Controls@TControl@SetText$qqrx17System@AnsiString
dec dword ptr [ebp-12]
lea eax,dword ptr [ebp-4]
mov edx,2
call @@System@AnsiString@$bdtr$qqrv
?debug L 63
mov ecx,dword ptr [ebp-40]
mov dword ptr fs:[0],ecx
?debug L 63
@19:
mov esp,ebp
pop ebp
ret
?debug L 0
@@TForm1@Button4Click$qqrp14System@TObject endp
@TForm1@Button4Click$qqrp14System@TObject ends
_TEXT ends
$$BSYMS segment byte public use32 'DEBSYM'
dw 88
dw 517
dw 0
dw 0
dw 0
dw 0
dw 0
dw 0
dd ?patch41
dd ?patch42
dd ?patch43
df @@TForm1@Button4Click$qqrp14System@TObject
dw 0
dw 4140
dw 0
dw 31
dw 0
dw 0
dw 0
db 41
db 64
db 84
db 70
db 111
db 114
db 109
db 49
db 64
db 66
db 117
db 116
db 116
db 111
db 110
db 52
db 67
db 108
db 105
db 99
db 107
db 36
db 113
db 113
db 114
db 112
db 49
db 52
db 83
db 121
db 115
db 116
db 101
db 109
db 64
db 84
db 79
db 98
db 106
db 101
db 99
db 116
dw 18
dw 512
dw 65492
dw 65535
dw 4102
dw 0
dw 32
dw 0
dw 0
dw 0
dw ?patch44
dw 529
dw ?patch45
dd ?live16395@0-@@TForm1@Button4Click$qqrp14System@TObject
dd ?live16395@0-?live16395@0
dw 17
?patch45 equ 1
?patch44 equ 14
dw 18
dw 512
dw 65488
dw 65535
dw 65532
dw 65535
dw 33
dw 0
dw 0
dw 0
dw ?patch46
dw 529
dw ?patch47
dd ?live16395@0-@@TForm1@Button4Click$qqrp14System@TObject
dd ?live16395@0-?live16395@0
dw 19
?patch47 equ 1
?patch46 equ 14
?patch41 equ @19-@@TForm1@Button4Click$qqrp14System@TObject+4
?patch42 equ 0
?patch43 equ @19-@@TForm1@Button4Click$qqrp14System@TObject
dw 2
dw 6
dw 4
dw 531
dw 0
$$BSYMS ends
_DATA segment dword public use32 'DATA'
@_$DCHE$@Forms@TForm@$bctr$qqrp18Classes@TComponent segment virtual
align 2
@@_$DCHE$@Forms@TForm@$bctr$qqrp18Classes@TComponent label dword
dd @@$xt$p11Forms@TForm
dd 1029
dd -4
dd 0
@_$DCHE$@Forms@TForm@$bctr$qqrp18Classes@TComponent ends
_DATA ends
_DATA segment dword public use32 'DATA'
@_$ECTIE$@Forms@TForm@$bctr$qqrp18Classes@TComponent segment virtual
align 2
@@_$ECTIE$@Forms@TForm@$bctr$qqrp18Classes@TComponent label dword
dd 0
dd -40
dw 0
dw 5
dd 0
dd @@_$DCHE$@Forms@TForm@$bctr$qqrp18Classes@TComponent
@_$ECTIE$@Forms@TForm@$bctr$qqrp18Classes@TComponent ends
_DATA ends
_TEXT segment dword public use32 'CODE'
@Forms@TForm@$bctr$qqrp18Classes@TComponent segment virtual
@@Forms@TForm@$bctr$qqrp18Classes@TComponent proc near
?live16386@0:
?debug T "C:\PROGRAM FILES\BORLAND\CBUILDER5\INCLUDE\VCL\forms.hpp"
?debug L 932
push ebp
mov ebp,esp
add esp,-48
mov byte ptr [ebp-8],dl
test dl,dl
jle short @20
call __ClassCreate
@20:
mov dword ptr [ebp-48],ecx
mov byte ptr [ebp-41],dl
mov dword ptr [ebp-4],eax
@21:
mov eax,offset @@_$ECTIE$@Forms@TForm@$bctr$qqrp18Classes@TComponent
call @__InitExceptBlockLDTC
mov word ptr [ebp-24],8
mov ecx,dword ptr [ebp-48]
xor edx,edx
mov eax,dword ptr [ebp-4]
call @@Forms@TCustomForm@$bctr$qqrp18Classes@TComponent
add dword ptr [ebp-12],14
?debug L 933
mov edx,dword ptr [ebp-40]
mov dword ptr fs:[0],edx
mov eax,dword ptr [ebp-4]
@23:
@22:
cmp byte ptr [ebp-41],0
je short @24
call __AfterConstruction
?debug L 933
@24:
mov esp,ebp
pop ebp
ret
?debug L 0
@@Forms@TForm@$bctr$qqrp18Classes@TComponent endp
@Forms@TForm@$bctr$qqrp18Classes@TComponent ends
_TEXT ends
$$BSYMS segment byte public use32 'DEBSYM'
dw 90
dw 517
dw 0
dw 0
dw 0
dw 0
dw 0
dw 0
dd ?patch48
dd ?patch49
dd ?patch50
df @@Forms@TForm@$bctr$qqrp18Classes@TComponent
dw 0
dw 4142
dw 0
dw 34
dw 0
dw 0
dw 0
db 43
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
dw 18
dw 512
dw 65532
dw 65535
dw 4143
dw 0
dw 35
dw 0
dw 0
dw 0
dw ?patch51
dw 529
dw ?patch52
dd ?live16386@0-@@Forms@TForm@$bctr$qqrp18Classes@TComponent
dd ?live16386@0-?live16386@0
dw 17
?patch52 equ 1
?patch51 equ 14
dw 18
dw 512
dw 65488
dw 65535
dw 65531
dw 65535
dw 36
dw 0
dw 0
dw 0
dw ?patch53
dw 529
dw ?patch54
dd ?live16386@0-@@Forms@TForm@$bctr$qqrp18Classes@TComponent
dd ?live16386@0-?live16386@0
dw 18
?patch54 equ 1
?patch53 equ 14
?patch48 equ @23-@@Forms@TForm@$bctr$qqrp18Classes@TComponent+15
?patch49 equ 0
?patch50 equ @23-@@Forms@TForm@$bctr$qqrp18Classes@TComponent
dw 2
dw 6
dw 4
dw 531
dw 0
$$BSYMS ends
_TEXT segment dword public use32 'CODE'
@$xt$p11Forms@TForm segment virtual
align 2
@@$xt$p11Forms@TForm label dword
dd 4
dw 144
dw 12
dd @@$xt$11Forms@TForm
db 84
db 70
db 111
db 114
db 109
db 32
db 42
db 0
@$xt$p11Forms@TForm ends
_TEXT ends
_TEXT segment dword public use32 'CODE'
@$xt$17System@AnsiString segment virtual
align 2
@@$xt$17System@AnsiString label byte
dd 4
dw 3
dw 48
dd -1
dd 3
dw 68
dw 72
dd 0
dw 0
dw 0
dd 0
dd 1
dd 1
dd @@System@AnsiString@$bdtr$qqrv
dw 3
dw 76
db 83
db 121
db 115
db 116
db 101
db 109
db 58
db 58
db 65
db 110
db 115
db 105
db 83
db 116
db 114
db 105
db 110
db 103
db 0
db 0
dd 0
dd 0
dd 0
@$xt$17System@AnsiString ends
_TEXT ends
_TEXT segment dword public use32 'CODE'
@$xt$p6TForm1 segment virtual
align 2
@@$xt$p6TForm1 label dword
dd 4
dw 144
dw 12
dd @@$xt$6TForm1
db 84
db 70
db 111
db 114
db 109
db 49
db 32
db 42
db 0
@$xt$p6TForm1 ends
_TEXT ends
_DATA segment dword public use32 'DATA'
@TForm1@ segment virtual
align 2
@@TForm1@ label byte
dd @@TForm1@+76
dd 0
dd 0
dd 0
dd @@$xp$6TForm1+4
dd @@TForm1@+300
dd @@TForm1@+374
dd 0
dd @@TForm1@+452
dd 744
dd @Forms@TForm@
dd @@Classes@TComponent@SafeCallException$qqrp14System@TObjectpv
dd @@Forms@TCustomForm@AfterConstruction$qqrv
dd @@Forms@TCustomForm@BeforeDestruction$qqrv
dd @@System@TObject@Dispatch$qqrpv
dd @@Forms@TCustomForm@DefaultHandler$qqrpv
dd @@System@TObject@NewInstance$qqrp17System@TMetaClass
dd @@System@TObject@FreeInstance$qqrv
dd @@TForm1@$bdtr$qqrv
dd @@Controls@TWinControl@AssignTo$qqrp19Classes@TPersistent
dd @@Forms@TCustomForm@DefineProperties$qqrp14Classes@TFiler
dd @@Classes@TPersistent@Assign$qqrp19Classes@TPersistent
dd @@Forms@TCustomForm@Loaded$qqrv
dd @@Forms@TCustomForm@Notification$qqrp18Classes@TComponent18Classes@TOperation
dd @@Forms@TCustomForm@ReadState$qqrp15Classes@TReader
dd @@Controls@TControl@SetName$qqrx17System@AnsiString
dd @@Classes@TComponent@UpdateRegistry$qqrox17System@AnsiStringt2
dd @@Forms@TCustomForm@ValidateRename$qqrp18Classes@TComponentx17System@AnsiStringt2
dd @@Classes@TComponent@WriteState$qqrp15Classes@TWriter
dd @@Forms@TCustomForm@QueryInterface$qqsrx5_GUIDpv
dd @@TForm1@$bctr$qqrp18Classes@TComponent
dd @@Controls@TWinControl@CanResize$qqrrit1
dd @@Controls@TWinControl@CanAutoSize$qqrrit1
dd @@Controls@TWinControl@ConstrainedResize$qqrrit1t1t1
dd @@Controls@TWinControl@GetClientOrigin$qqrv
dd @@Forms@TCustomForm@GetClientRect$qqrv
dd @@Controls@TWinControl@GetDeviceContext$qqrrpv
dd @@Controls@TControl@GetDragImages$qqrv
dd @@Controls@TControl@GetEnabled$qqrv
dd @@Forms@TCustomForm@GetFloating$qqrv
dd @@Controls@TControl@GetFloatingDockSiteClass$qqrv
dd @@Controls@TControl@SetDragMode$qqr18Controls@TDragMode
dd @@Controls@TControl@SetEnabled$qqro
dd @@Forms@TCustomForm@SetParent$qqrp20Controls@TWinControl
dd @@Forms@TCustomForm@SetParentBiDiMode$qqro
dd @@Controls@TControl@SetBiDiMode$qqr17Classes@TBiDiMode
dd @@Forms@TCustomForm@WndProc$qqrr17Messages@TMessage
dd @@Controls@TControl@InitiateAction$qqrv
dd @@Controls@TWinControl@Invalidate$qqrv
dd @@Controls@TWinControl@Repaint$qqrv
dd @@Controls@TWinControl@SetBounds$qqriiii
dd @@Controls@TWinControl@Update$qqrv
dd @@Forms@TScrollingWinControl@AdjustClientRect$qqrr13Windows@TRect
dd @@Forms@TCustomForm@AlignControls$qqrp17Controls@TControlr13Windows@TRect
dd @@Controls@TWinControl@CreateHandle$qqrv
dd @@Forms@TCustomForm@CreateParams$qqrr22Controls@TCreateParams
dd @@Forms@TCustomForm@CreateWindowHandle$qqrrx22Controls@TCreateParams
dd @@Forms@TCustomForm@CreateWnd$qqrv
dd @@Forms@TCustomForm@DestroyWindowHandle$qqrv
dd @@Controls@TWinControl@DestroyWnd$qqrv
dd @@Controls@TWinControl@GetControlExtents$qqrv
dd @@Forms@TCustomForm@PaintWindow$qqrpv
dd @@Controls@TWinControl@ShowControl$qqrp17Controls@TControl
dd @@Forms@TCustomForm@SetFocus$qqrv
dd @@Forms@TScrollingWinControl@AutoScrollEnabled$qqrv
dd @@Forms@TScrollingWinControl@AutoScrollInView$qqrp17Controls@TControl
dd @@Forms@TCustomForm@Resizing$qqr18Forms@TWindowState
dd @@Forms@TCustomForm@DoCreate$qqrv
dd @@Forms@TCustomForm@DoDestroy$qqrv
dd @@Forms@TCustomForm@UpdateActions$qqrv
dd @@Forms@TForm@$bctr$qqrp18Classes@TComponenti
dd @@Forms@TCustomForm@CloseQuery$qqrv
dd @@Forms@TCustomForm@SetFocusedControl$qqrp20Controls@TWinControl
dd @@Forms@TCustomForm@ShowModal$qqrv
dd @@Forms@TCustomForm@WantChildKey$qqrp17Controls@TControlr17Messages@TMessage
dw 5
dd @@TForm1@+459
dd 720
dw 0
db 7
db 66,117,116,116,111,110,49
dd 724
dw 0
db 7
db 66,117,116,116,111,110,50
dd 728
dw 1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -