⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 unit1.~asm

📁 bcb中实现调用汇编完成转换功能,学习如何进行此类调用的基础
💻 ~ASM
📖 第 1 页 / 共 5 页
字号:
	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	4126
	dw	0
	dw	22
	dw	0
	dw	0
	dw	0
	dw	?patch18
	dw	529
	dw	?patch19
	dd	?live16386@0-@@Forms@TForm@$bctr$qqrp18Classes@TComponent
	dd	?live16386@0-?live16386@0
	dw	17
?patch19	equ	1
?patch18	equ	14
	dw	18
	dw	512
	dw	65488
	dw	65535
	dw	65530
	dw	65535
	dw	23
	dw	0
	dw	0
	dw	0
	dw	?patch20
	dw	529
	dw	?patch21
	dd	?live16386@0-@@Forms@TForm@$bctr$qqrp18Classes@TComponent
	dd	?live16386@0-?live16386@0
	dw	18
?patch21	equ	1
?patch20	equ	14
?patch15	equ	@14-@@Forms@TForm@$bctr$qqrp18Classes@TComponent+15
?patch16	equ	0
?patch17	equ	@14-@@Forms@TForm@$bctr$qqrp18Classes@TComponent
	dw	2
	dw	6
	dw	4
	dw	531
	dw	0
$$BSYMS	ends
_DATA	segment dword public use32 'DATA'
@_$DCGF$@System@AnsiString@$bctr$qqrv	segment virtual
	align	2
@@_$DCGF$@System@AnsiString@$bctr$qqrv	label	dword
	dd	@@$xt$p17System@AnsiString
	dd	5
	dd	-4
	dd	0
@_$DCGF$@System@AnsiString@$bctr$qqrv	ends
_DATA	ends
_DATA	segment dword public use32 'DATA'
@_$ECTHF$@System@AnsiString@$bctr$qqrv	segment virtual
	align	2
@@_$ECTHF$@System@AnsiString@$bctr$qqrv	label	dword
	dd	0
	dd	-40
	dw	0
	dw	5
	dd	0
	dd	@@_$DCGF$@System@AnsiString@$bctr$qqrv
@_$ECTHF$@System@AnsiString@$bctr$qqrv	ends
_DATA	ends
_TEXT	segment dword public use32 'CODE'
@System@AnsiString@$bctr$qqrv	segment virtual
@@System@AnsiString@$bctr$qqrv	proc	near
?live16391@0:
	?debug	T "c:\program files\borland\cbuilder6\include\vcl\dstring.h"
	?debug L 68
	push ebp
	mov ebp,esp
	add esp,-40
	mov dword ptr [ebp-4],eax
@16:
	mov eax,offset @@_$ECTHF$@System@AnsiString@$bctr$qqrv
	call @__InitExceptBlockLDTC
	mov word ptr [ebp-24],8
	mov edx,dword ptr [ebp-4]
	xor ecx,ecx
	mov dword ptr [edx],ecx
	mov eax,dword ptr [ebp-40]
	mov dword ptr fs:[0],eax
	mov eax,dword ptr [ebp-4]
	?debug L 68
@18:
@17:
	mov esp,ebp
	pop ebp
	ret 
	?debug L 0
@@System@AnsiString@$bctr$qqrv	endp
@System@AnsiString@$bctr$qqrv	ends
_TEXT	ends
$$BSYMS	segment byte public use32 'DEBSYM'
	dw	76
	dw	517
	dw	0
	dw	0
	dw	0
	dw	0
	dw	0
	dw	0
	dd	?patch22
	dd	?patch23
	dd	?patch24
	df	@@System@AnsiString@$bctr$qqrv
	dw	0
	dw	4128
	dw	0
	dw	24
	dw	0
	dw	0
	dw	0
	db	29
	db	64
	db	83
	db	121
	db	115
	db	116
	db	101
	db	109
	db	64
	db	65
	db	110
	db	115
	db	105
	db	83
	db	116
	db	114
	db	105
	db	110
	db	103
	db	64
	db	36
	db	98
	db	99
	db	116
	db	114
	db	36
	db	113
	db	113
	db	114
	db	118
	dw	18
	dw	512
	dw	65532
	dw	65535
	dw	4129
	dw	0
	dw	25
	dw	0
	dw	0
	dw	0
	dw	?patch25
	dw	529
	dw	?patch26
	dd	?live16391@0-@@System@AnsiString@$bctr$qqrv
	dd	?live16391@0-?live16391@0
	dw	17
?patch26	equ	1
?patch25	equ	14
?patch22	equ	@18-@@System@AnsiString@$bctr$qqrv+4
?patch23	equ	0
?patch24	equ	@18-@@System@AnsiString@$bctr$qqrv
	dw	2
	dw	6
	dw	4
	dw	531
	dw	0
$$BSYMS	ends
_TEXT	segment dword public use32 'CODE'
@System@AnsiString@Length$xqqrv	segment virtual
@@System@AnsiString@Length$xqqrv	proc	near
?live16392@0:
	?debug L 254
	push ebp
	mov ebp,esp
	push ecx
	mov dword ptr [ebp-4],eax
	?debug L 256
@19:
	mov eax,dword ptr [ebp-4]
	cmp dword ptr [eax],0
	je        short @20
	push dword ptr [ebp-4]
	call @@System@AnsiString@GetRec$xqv
	pop ecx
	mov eax,dword ptr [eax+8]
	jmp short @22
@20:
	xor eax,eax
	?debug L 257
@23:
@22:
	pop ecx
	pop ebp
	ret 
	?debug L 0
@@System@AnsiString@Length$xqqrv	endp
@System@AnsiString@Length$xqqrv	ends
_TEXT	ends
$$BSYMS	segment byte public use32 'DEBSYM'
	dw	78
	dw	517
	dw	0
	dw	0
	dw	0
	dw	0
	dw	0
	dw	0
	dd	?patch27
	dd	?patch28
	dd	?patch29
	df	@@System@AnsiString@Length$xqqrv
	dw	0
	dw	4131
	dw	0
	dw	26
	dw	0
	dw	0
	dw	0
	db	31
	db	64
	db	83
	db	121
	db	115
	db	116
	db	101
	db	109
	db	64
	db	65
	db	110
	db	115
	db	105
	db	83
	db	116
	db	114
	db	105
	db	110
	db	103
	db	64
	db	76
	db	101
	db	110
	db	103
	db	116
	db	104
	db	36
	db	120
	db	113
	db	113
	db	114
	db	118
	dw	18
	dw	512
	dw	65532
	dw	65535
	dw	4132
	dw	0
	dw	27
	dw	0
	dw	0
	dw	0
	dw	?patch30
	dw	529
	dw	?patch31
	dd	?live16392@0-@@System@AnsiString@Length$xqqrv
	dd	?live16392@0-?live16392@0
	dw	17
?patch31	equ	1
?patch30	equ	14
?patch27	equ	@23-@@System@AnsiString@Length$xqqrv+3
?patch28	equ	0
?patch29	equ	@23-@@System@AnsiString@Length$xqqrv
	dw	2
	dw	6
	dw	4
	dw	531
	dw	0
$$BSYMS	ends
_TEXT	segment dword public use32 'CODE'
@System@AnsiString@data$xqqrv	segment virtual
@@System@AnsiString@data$xqqrv	proc	near
?live16393@0:
	?debug L 164
	push ebp
	mov ebp,esp
	push ecx
	mov dword ptr [ebp-4],eax
@24:
	mov eax,dword ptr [ebp-4]
	mov eax,dword ptr [eax]
	?debug L 164
@26:
@25:
	pop ecx
	pop ebp
	ret 
	?debug L 0
@@System@AnsiString@data$xqqrv	endp
@System@AnsiString@data$xqqrv	ends
_TEXT	ends
$$BSYMS	segment byte public use32 'DEBSYM'
	dw	76
	dw	517
	dw	0
	dw	0
	dw	0
	dw	0
	dw	0
	dw	0
	dd	?patch32
	dd	?patch33
	dd	?patch34
	df	@@System@AnsiString@data$xqqrv
	dw	0
	dw	4135
	dw	0
	dw	28
	dw	0
	dw	0
	dw	0
	db	29
	db	64
	db	83
	db	121
	db	115
	db	116
	db	101
	db	109
	db	64
	db	65
	db	110
	db	115
	db	105
	db	83
	db	116
	db	114
	db	105
	db	110
	db	103
	db	64
	db	100
	db	97
	db	116
	db	97
	db	36
	db	120
	db	113
	db	113
	db	114
	db	118
	dw	18
	dw	512
	dw	65532
	dw	65535
	dw	4132
	dw	0
	dw	29
	dw	0
	dw	0
	dw	0
	dw	?patch35
	dw	529
	dw	?patch36
	dd	?live16393@0-@@System@AnsiString@data$xqqrv
	dd	?live16393@0-?live16393@0
	dw	17
?patch36	equ	1
?patch35	equ	14
?patch32	equ	@26-@@System@AnsiString@data$xqqrv+3
?patch33	equ	0
?patch34	equ	@26-@@System@AnsiString@data$xqqrv
	dw	2
	dw	6
	dw	4
	dw	531
	dw	0
$$BSYMS	ends
_TEXT	segment dword public use32 'CODE'
@System@AnsiString@GetRec$xqv	segment virtual
@@System@AnsiString@GetRec$xqv	proc	near
?live16403@0:
	?debug L 244
	push ebp
	mov ebp,esp
	?debug L 246
@27:
	mov eax,dword ptr [ebp+8]
	mov eax,dword ptr [eax]
	add eax,-12
	?debug L 247
@29:
@28:
	pop ebp
	ret 
	?debug L 0
@@System@AnsiString@GetRec$xqv	endp
@System@AnsiString@GetRec$xqv	ends
_TEXT	ends
$$BSYMS	segment byte public use32 'DEBSYM'
	dw	76
	dw	517
	dw	0
	dw	0
	dw	0
	dw	0
	dw	0
	dw	0
	dd	?patch37
	dd	?patch38
	dd	?patch39
	df	@@System@AnsiString@GetRec$xqv
	dw	0
	dw	4139
	dw	0
	dw	30
	dw	0
	dw	0
	dw	0
	db	29
	db	64
	db	83
	db	121
	db	115
	db	116
	db	101
	db	109
	db	64
	db	65
	db	110
	db	115
	db	105
	db	83
	db	116
	db	114
	db	105
	db	110
	db	103
	db	64
	db	71
	db	101
	db	116
	db	82
	db	101
	db	99
	db	36
	db	120
	db	113
	db	118
	dw	18
	dw	512
	dw	8
	dw	0
	dw	4132
	dw	0
	dw	31
	dw	0
	dw	0
	dw	0
?patch37	equ	@29-@@System@AnsiString@GetRec$xqv+2
?patch38	equ	0
?patch39	equ	@29-@@System@AnsiString@GetRec$xqv
	dw	2
	dw	6
$$BSYMS	ends
_TEXT	segment dword public use32 'CODE'
@$xt$p17System@AnsiString	segment virtual
	align	2
@@$xt$p17System@AnsiString	label	dword
	dd	4
	dw	16
	dw	12
	dd	@@$xt$17System@AnsiString
	db	65
	db	110
	db	115
	db	105
	db	83
	db	116
	db	114
	db	105
	db	110
	db	103
	db	32
	db	42
	db	0
@$xt$p17System@AnsiString	ends
_TEXT	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@+316
	dd	@@TForm1@+386
	dd	0
	dd	@@TForm1@+407
	dd	776
	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$qqrp17System@TMetaClassox17System@AnsiStringt3
	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@TControl@GetAction$qqrv
	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@SetAutoSize$qqro
	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$qqrr11Types@TRect
	dd	@@Forms@TCustomForm@AlignControls$qqrp17Controls@TControlr11Types@TRect
	dd	@@Controls@TWinControl@CreateHandle$qqrv
	dd	@@Forms@TCustomForm@CreateParams$qqrr22Controls@TCreateParams
	dd	@@Forms@TCustomForm@CreateWindowHandle$qqrrx22Controls@TCreateParams
	dd	@@Forms@TCustomForm@CreateWnd$qqrv
	dd	@@Controls@TWinControl@CustomAlignInsertBefore$qqrp17Controls@TControlt1
	dd	@@Controls@TWinControl@CustomAlignPosition$qqrp17Controls@TControlrit2t2t2r11Types@TRectrx19Controls@TAlignInfo
	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@+414
	dd	752
	dw	0
	db	5
	db 69,100,105,116,49
	dd	756
	dw	0
	db	5
	db 69,100,105,116,50
	dd	760
	dw	1
	db	7
	db 66,117,116,116,111,110,49
	dd	764
	dw	2
	db	6
	db 76,97,98,101,108,49
	dd	768
	dw	2
	db	6
	db 76,97,98,101,108,50
	dw	1
	dw	19
	dd	@@TForm1@Button1Click$qqrp14System@TObject
	db	12
	db 66,117,116,116,111,110,49,67,108,105,99,107
	db	6
	db 84,70,111,114,109,49
	dw	3
	dd	@Stdctrls@TEdit@
	dd	@Stdctrls@TButton@

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -