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

📄 unit1.~asm

📁 bcb中实现调用汇编完成转换功能,学习如何进行此类调用的基础
💻 ~ASM
📖 第 1 页 / 共 5 页
字号:
	db	72
	db	111
	db	111
	db	107
	db	62
	db	0
	db	0
	db	0
	dd	0
	dd	0
	dd	0
@$xt$47System@%DelphiInterface$t19Forms@IDesignerHook%	ends
_TEXT	ends
_TEXT	segment dword public use32 'CODE'
@$xt$26Forms@TScrollingWinControl	segment virtual
	align	2
@@$xt$26Forms@TScrollingWinControl	label	byte
	dd	544
	dw	3
	dw	48
	dd	0
	dd	183
	dw	76
	dw	92
	dd	0
	dw	0
	dw	0
	dd	0
	dd	11
	dd	11
	dd	@@Forms@TScrollingWinControl@$bdtr$qqrv
	dw	3
	dw	96
	db	70
	db	111
	db	114
	db	109
	db	115
	db	58
	db	58
	db	84
	db	83
	db	99
	db	114
	db	111
	db	108
	db	108
	db	105
	db	110
	db	103
	db	87
	db	105
	db	110
	db	67
	db	111
	db	110
	db	116
	db	114
	db	111
	db	108
	db	0
	dd	@@$xt$20Controls@TWinControl
	dd	0
	dd	3
	dd	0
	dd	0
	dd	0
@$xt$26Forms@TScrollingWinControl	ends
_TEXT	ends
_TEXT	segment dword public use32 'CODE'
@System@%DelphiInterface$t14Forms@IOleForm%@$bdtr$qqrv	segment virtual
@@System@%DelphiInterface$t14Forms@IOleForm%@$bdtr$qqrv	proc	near
?live16420@0:
	?debug	T "c:\program files\borland\cbuilder6\include\vcl\systobj.h"
	?debug L 252
	push ebp
	mov ebp,esp
	add esp,-8
	mov dword ptr [ebp-8],edx
	mov dword ptr [ebp-4],eax
@45:
	cmp dword ptr [ebp-4],0
	je        short @46
	?debug L 254
	mov eax,dword ptr [ebp-4]
	cmp dword ptr [eax],0
	je        short @47
	?debug L 256
	mov edx,dword ptr [ebp-4]
	mov ecx,dword ptr [edx]
	push ecx
	mov eax,dword ptr [ecx]
	call dword ptr [eax+8]
	?debug L 257
	mov edx,dword ptr [ebp-4]
	xor ecx,ecx
	mov dword ptr [edx],ecx
@47:
	test byte ptr [ebp-8],1
	je        short @48
	push dword ptr [ebp-4]
	call @$bdele$qpv
	pop ecx
	?debug L 259
@48:
@46:
@49:
	pop ecx
	pop ecx
	pop ebp
	ret 
	?debug L 0
@@System@%DelphiInterface$t14Forms@IOleForm%@$bdtr$qqrv	endp
@System@%DelphiInterface$t14Forms@IOleForm%@$bdtr$qqrv	ends
_TEXT	ends
$$BSYMS	segment byte public use32 'DEBSYM'
	dw	101
	dw	517
	dw	0
	dw	0
	dw	0
	dw	0
	dw	0
	dw	0
	dd	?patch57
	dd	?patch58
	dd	?patch59
	df	@@System@%DelphiInterface$t14Forms@IOleForm%@$bdtr$qqrv
	dw	0
	dw	4159
	dw	0
	dw	51
	dw	0
	dw	0
	dw	0
	db	54
	db	64
	db	83
	db	121
	db	115
	db	116
	db	101
	db	109
	db	64
	db	37
	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	36
	db	116
	db	49
	db	52
	db	70
	db	111
	db	114
	db	109
	db	115
	db	64
	db	73
	db	79
	db	108
	db	101
	db	70
	db	111
	db	114
	db	109
	db	37
	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	4151
	dw	0
	dw	52
	dw	0
	dw	0
	dw	0
	dw	?patch60
	dw	529
	dw	?patch61
	dd	?live16420@0-@@System@%DelphiInterface$t14Forms@IOleForm%@$bdtr$qqrv
	dd	?live16420@0-?live16420@0
	dw	17
?patch61	equ	1
?patch60	equ	14
?patch57	equ	@49-@@System@%DelphiInterface$t14Forms@IOleForm%@$bdtr$qqrv+4
?patch58	equ	0
?patch59	equ	@49-@@System@%DelphiInterface$t14Forms@IOleForm%@$bdtr$qqrv
	dw	2
	dw	6
	dw	4
	dw	531
	dw	0
$$BSYMS	ends
_TEXT	segment dword public use32 'CODE'
@System@%DelphiInterface$t19Forms@IDesignerHook%@$bdtr$qqrv	segment virtual
@@System@%DelphiInterface$t19Forms@IDesignerHook%@$bdtr$qqrv	proc	near
?live16421@0:
	?debug L 252
	push ebp
	mov ebp,esp
	add esp,-8
	mov dword ptr [ebp-8],edx
	mov dword ptr [ebp-4],eax
@50:
	cmp dword ptr [ebp-4],0
	je        short @51
	?debug L 254
	mov eax,dword ptr [ebp-4]
	cmp dword ptr [eax],0
	je        short @52
	?debug L 256
	mov edx,dword ptr [ebp-4]
	mov ecx,dword ptr [edx]
	push ecx
	mov eax,dword ptr [ecx]
	call dword ptr [eax+8]
	?debug L 257
	mov edx,dword ptr [ebp-4]
	xor ecx,ecx
	mov dword ptr [edx],ecx
@52:
	test byte ptr [ebp-8],1
	je        short @53
	push dword ptr [ebp-4]
	call @$bdele$qpv
	pop ecx
	?debug L 259
@53:
@51:
@54:
	pop ecx
	pop ecx
	pop ebp
	ret 
	?debug L 0
@@System@%DelphiInterface$t19Forms@IDesignerHook%@$bdtr$qqrv	endp
@System@%DelphiInterface$t19Forms@IDesignerHook%@$bdtr$qqrv	ends
_TEXT	ends
$$BSYMS	segment byte public use32 'DEBSYM'
	dw	106
	dw	517
	dw	0
	dw	0
	dw	0
	dw	0
	dw	0
	dw	0
	dd	?patch62
	dd	?patch63
	dd	?patch64
	df	@@System@%DelphiInterface$t19Forms@IDesignerHook%@$bdtr$qqrv
	dw	0
	dw	4202
	dw	0
	dw	64
	dw	0
	dw	0
	dw	0
	db	59
	db	64
	db	83
	db	121
	db	115
	db	116
	db	101
	db	109
	db	64
	db	37
	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	36
	db	116
	db	49
	db	57
	db	70
	db	111
	db	114
	db	109
	db	115
	db	64
	db	73
	db	68
	db	101
	db	115
	db	105
	db	103
	db	110
	db	101
	db	114
	db	72
	db	111
	db	111
	db	107
	db	37
	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	4194
	dw	0
	dw	65
	dw	0
	dw	0
	dw	0
	dw	?patch65
	dw	529
	dw	?patch66
	dd	?live16421@0-@@System@%DelphiInterface$t19Forms@IDesignerHook%@$bdtr$qqrv
	dd	?live16421@0-?live16421@0
	dw	17
?patch66	equ	1
?patch65	equ	14
?patch62	equ	@54-@@System@%DelphiInterface$t19Forms@IDesignerHook%@$bdtr$qqrv+4
?patch63	equ	0
?patch64	equ	@54-@@System@%DelphiInterface$t19Forms@IDesignerHook%@$bdtr$qqrv
	dw	2
	dw	6
	dw	4
	dw	531
	dw	0
$$BSYMS	ends
_TEXT	segment dword public use32 'CODE'
@$xt$20Controls@TWinControl	segment virtual
	align	2
@@$xt$20Controls@TWinControl	label	byte
	dd	520
	dw	3
	dw	48
	dd	0
	dd	183
	dw	72
	dw	88
	dd	0
	dw	0
	dw	0
	dd	0
	dd	10
	dd	10
	dd	@@Controls@TWinControl@$bdtr$qqrv
	dw	3
	dw	92
	db	67
	db	111
	db	110
	db	116
	db	114
	db	111
	db	108
	db	115
	db	58
	db	58
	db	84
	db	87
	db	105
	db	110
	db	67
	db	111
	db	110
	db	116
	db	114
	db	111
	db	108
	db	0
	db	0
	db	0
	dd	@@$xt$17Controls@TControl
	dd	0
	dd	3
	dd	0
	dd	0
	dd	@@$xt$49System@%DelphiInterface$t21Controls@IDockManager%
	dd	380
	dd	@@$xt$17System@AnsiString
	dd	392
	dd	0
@$xt$20Controls@TWinControl	ends
_TEXT	ends
_TEXT	segment dword public use32 'CODE'
@$xt$49System@%DelphiInterface$t21Controls@IDockManager%	segment virtual
	align	2
@@$xt$49System@%DelphiInterface$t21Controls@IDockManager%	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$t21Controls@IDockManager%@$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	67
	db	111
	db	110
	db	116
	db	114
	db	111
	db	108
	db	115
	db	58
	db	58
	db	73
	db	68
	db	111
	db	99
	db	107
	db	77
	db	97
	db	110
	db	97
	db	103
	db	101
	db	114
	db	62
	db	0
	dd	0
	dd	0
	dd	0
@$xt$49System@%DelphiInterface$t21Controls@IDockManager%	ends
_TEXT	ends
_TEXT	segment dword public use32 'CODE'
@$xt$17Controls@TControl	segment virtual
	align	2
@@$xt$17Controls@TControl	label	byte
	dd	352
	dw	3
	dw	48
	dd	0
	dd	183
	dw	68
	dw	84
	dd	0
	dw	0
	dw	0
	dd	0
	dd	7
	dd	7
	dd	@@Controls@TControl@$bdtr$qqrv
	dw	3
	dw	88
	db	67
	db	111
	db	110
	db	116
	db	114
	db	111
	db	108
	db	115
	db	58
	db	58
	db	84
	db	67
	db	111
	db	110
	db	116
	db	114
	db	111
	db	108
	db	0
	db	0
	dd	@@$xt$18Classes@TComponent
	dd	0
	dd	3
	dd	0
	dd	0
	dd	@@$xt$17System@AnsiString
	dd	128
	dd	@@$xt$17System@AnsiString
	dd	340
	dd	0
@$xt$17Controls@TControl	ends
_TEXT	ends
_TEXT	segment dword public use32 'CODE'
@System@%DelphiInterface$t21Controls@IDockManager%@$bdtr$qqrv	segment virtual
@@System@%DelphiInterface$t21Controls@IDockManager%@$bdtr$qqrv	proc	near
?live16425@0:
	?debug L 252
	push ebp
	mov ebp,esp
	add esp,-8
	mov dword ptr [ebp-8],edx
	mov dword ptr [ebp-4],eax
@55:
	cmp dword ptr [ebp-4],0
	je        short @56
	?debug L 254
	mov eax,dword ptr [ebp-4]
	cmp dword ptr [eax],0
	je        short @57
	?debug L 256
	mov edx,dword ptr [ebp-4]
	mov ecx,dword ptr [edx]
	push ecx
	mov eax,dword ptr [ecx]
	call dword ptr [eax+8]
	?debug L 257
	mov edx,dword ptr [ebp-4]
	xor ecx,ecx
	mov dword ptr [edx],ecx
@57:
	test byte ptr [ebp-8],1
	je        short @58
	push dword ptr [ebp-4]
	call @$bdele$qpv
	pop ecx
	?debug L 259
@58:
@56:
@59:
	pop ecx
	pop ecx
	pop ebp
	ret 
	?debug L 0
@@System@%DelphiInterface$t21Controls@IDockManager%@$bdtr$qqrv	endp
@System@%DelphiInterface$t21Controls@IDockManager%@$bdtr$qqrv	ends
_TEXT	ends
$$BSYMS	segment byte public use32 'DEBSYM'
	dw	108
	dw	517
	dw	0
	dw	0
	dw	0
	dw	0
	dw	0
	dw	0
	dd	?patch67
	dd	?patch68
	dd	?patch69
	df	@@System@%DelphiInterface$t21Controls@IDockManager%@$bdtr$qqrv
	dw	0
	dw	4245
	dw	0
	dw	77
	dw	0
	dw	0
	dw	0
	db	61
	db	64
	db	83
	db	121
	db	115
	db	116
	db	101
	db	109
	db	64
	db	37
	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	36
	db	116
	db	50
	db	49
	db	67
	db	111
	db	110
	db	116
	db	114
	db	111
	db	108
	db	115
	db	64
	db	73
	db	68
	db	111
	db	99
	db	107
	db	77
	db	97
	db	110
	db	97
	db	103
	db	101
	db	114
	db	37
	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	4237
	dw	0
	dw	78
	dw	0
	dw	0
	dw	0
	dw	?patch70
	dw	529
	dw	?patch71
	dd	?live16425@0-@@System@%DelphiInterface$t21Controls@IDockManager%@$bdtr$qqrv
	dd	?live16425@0-?live16425@0
	dw	17
?patch71	equ	1
?patch70	equ	14
?patch67	equ	@59-@@System@%DelphiInterface$t21Controls@IDockManager%@$bdtr$qqrv+4
?patch68	equ	0
?patch69	equ	@59-@@System@%DelphiInterface$t21Controls@IDockManager%@$bdtr$qqrv
	dw	2
	dw	6
	dw	4
	dw	531
	dw	0
$$BSYMS	ends
_TEXT	segment dword public use32 'CODE'
@$xt$18Classes@TComponent	segment virtual
	align	2
@@$xt$18Classes@TComponent	label	byte
	dd	48
	dw	3
	dw	48
	dd	0
	dd	183

⌨️ 快捷键说明

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