摘要：
delphi中实现汉字拼音声母查询,unit代码如下：unit unit1;
interface
uses windows, messages, sysutils, classes, graphics, controls, forms, dialogs, stdctrls;
type tform1 = class(tform) listbox1: tlistbox; listbox2: t......
摘要：
你的电脑有没有摄像头？看到别人用qq玩视屏你会不会去想怎么实现的？这里介绍使用delphi使用ms的avicap32.dll就可轻松的实现对摄像头编程，如果再加上你的网络编程水平，实现一个视屏聊天就不成什么问题了。看看下面代码的代码：const wm_cap_start = wm_user;const wm_cap_stop = wm_ca......
防止全局hook入侵Delphi版，2000以上系统适用（part2）
unit unit1;
interface
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, stdctrls;
type
tform1 = class(tform)
button1: tbutton;
memo1: tmemo;
button2: tbutton;
button3: tbutton;
procedure button1click(sender: tobject);
procedure button2click(sender: tobject);
procedure button3click(sender: tobject);
procedure formdestroy(sender: tobject);
procedure formcreate(sender: tobject);
private
{ private declarations }
procedure showmsg(s: string);
public
{ public declarations }
end;
var
form1: tform1;
implementation
{$r *.dfm}
uses mlde32unit;
const
despath = c:\program files\borland\delphi6\projects\adv apihook\test\vt.exe;
func2hook = freelibrary;
var //must be a globle variable
ptrreal: pointer;
cbstolen: cardinal;
ntdllbase, ntdlllength: integer;
p: pointer;
h:dword;
procedure tform1.showmsg(s: string);
begin
memo1.lines.add(s);
end;
procedure tform1.button1click(sender: tobject);
label
fakecode,
rtncode;
var
// si: startupinfo;
// pi: process_information;
originalbytes: array [0..4] of char;
hookjmp: pchar;
rtn: cardinal;
bytes: array [0..4] of char;
tmp: cardinal;
peb, ldr, flink: pointer;
bs: dword;
begin
ptrreal := nil;
ntdlllength := 0;
ntdllbase := getmodulehandle(ntdll.dll);
asm
mov eax,fs:[$30...
下一页 摘要：
{** $id: lauxlib.h,v 1.60 2003/04/03 13:35:34 roberto exp $** auxiliary functions for building lua libraries** see copyright notice in lua.h} { this .h header file is translated by melice }
unit lau......
