- 博客(3)
- 收藏
- 关注
RSS订阅原创 Delphi的嵌入式asm一例: Byte快速转换为16进制字符串
上次Delphi做的asm内嵌过程／函数格式是：procedure ProcName(...);asm ...end; 对这种过程／函数，整个由asm写成。内嵌asm还有一种常见用法，就是在程序局部调用asm：function ByteToHex(Src: Byte): String;begin SetLength(Result, 2); asm MOV EDI,
2000-12-29 17:46:00
3264
原创 Delphi嵌入式汇编一例
用delphi写的程序，把x指针指向的4个字节次序颠倒过来：function toulong(x: pchar): longword; begin result := (longword(x^) shl 24) or (longword((x + 1)^) shl 16) or (longword((x + 2)^) shl 8) or
2000-12-28 18:04:00
1277
原创 网络包探测软件
网络包探测软件 DSoft Sniffer 2.9 是不错的Shareware，但有时间限制，如何去除呢？以下是Delphi5写的核心部分。var r: TRegistry; t: DWORD;begin r := TRegistry.Create; try r.RootKey := HKEY_LOCAL_MACHINE; r.OpenKey(/SOFTWARE/Dsof
2000-12-28 17:50:00
899
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人