易截截图软件、单文件、免安装、纯绿色、仅160KB

vc转delphi问题

请问哪位大神能帮我看看我这句转得对不对 老是会出错。
编译没提示错误 但是运行程序的话会出错
我用API HOOK拦截了dr0-dr3 然后发现假如我dr0:=$123456
而其他dr1-dr3我都不设置 但是拦截到之后却发现dr0:=$123456. dr1-dr3都会有数据
而我用vc试过却只拦截到dr0=123456其他dr都是0

VC:
C/C++ code:

DWORD WINAPI debugProc(LPVOID lpParameter )
{
if(debuger1.caozuo==1)
{

RefreshThreadList(GetCurrentProcessId());
for(int i=0;i<100;i++)
{
if(lst==0)
{
break;
}
if(lst!=GetCurrentThreadId())
{
HANDLE thd=OpenThread(THREAD_ALL_ACCESS,true,lst);
SuspendThread(thd);
CONTEXT con;
con.ContextFlags=CONTEXT_CONTROL|CONTEXT_DEBUG_REGISTERS;
GetThreadContext(thd,&con);
if(debuger1.dr==0)
{
con.Dr0=debuger1.addr;
con.Dr7=con.Dr7|0x3;
}
if(debuger1.dr==1)
{
con.Dr1=debuger1.addr;


相关问答:

Delphi怎么取返回内容中的指定部分.

返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......

请教下,用DELPHI做SOHU的 - Delphi / 非技术区

一般都是怎么接活的?
收入怎么样
sohu?soho?

sohu 可能是small office house unit
小办公室,把家变成单位。

去威客网啊,很多个呢,还有外包的网站

学习学习。

现在Delphi做东西不行了,处于淘汰状 ......

初级问题,Delphi中 #$10 如何转换成整型的16?

如题

定义一个整型,然后给整型赋值就可以了,代码参考:
Delphi(Pascal) code:

var
i: Integer;
begin
i := $10;
ShowMessage(IntToStr(i));
end;

去除#号后,调用StrToInt()
......

Delphi中的时间查询!能告诉我哪里错了吗?!

t5:=' 1=1 ';
  if CheckBox5.Checked then
  t5:=' 生日>=#'+DateToStr(DateTimePicker1.Date)+'# and 生日<=#'+DateToStr(DateTimePicker2.Date)+'#';

关于事件的格式和界定符,access,sq ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号