radbg.hhf

来自「High Level assembly language(HLA)软件」· HHF 代码 · 共 35 行

//;Use with RADbg.dll version 1.0.0.4 or higher

#macro RADbg (rabpid, rahwnd, ravar);

	pushd (rahwnd);
	pushd (rabpid);
	pushd (ravar);
	RADebug ();

#endmacro

procedure RADebug;
@NOFRAME;
begin RADebug;

	pushfd;
	pushad;
	GetLastError ();
	pushd (eax);
	mov ([esp+52], ebx);
	pushd (esp);
	pushd (52);
	pushd (0);
	SendMessage (ebx, WM_COPYDATA, -1, esp);
	add (12, esp);
	if (eax = 0) then
		ExitProcess (0);
	endif;
	pop (eax);
	popad;
	popfd;
	ret (12);

end RADebug;