W
wanglong4
Unregistered / Unconfirmed
GUEST, unregistred user!
这是我最近看到的函数。
function HookProc(iCode: integer
wParam: wParam
lParam: lParam): LResult
stdcall;
var
hwnd: dword;
begin
result := 0;
if iCode < 0 then
begin
CallNextHookEx(hnexthookproc, iCode, wParam, lParam);
result := 0;
Exit;
end;
if ((lParam and $80000000) = 0) and (wParam = $6D) then
begin
...........................
end;
请问这里的$80000000和$6D代表什么东西??
我这么写就可以看到他们的值了,他们到底是什么值??
procedure TForm1.Button1Click(Sender: TObject);
var
a,b:integer;
begin
a:=$80000000;
b:=$6D;
showmessage(inttostr($80000000));
showmessage(inttostr($6D));
end;
function HookProc(iCode: integer
wParam: wParam
lParam: lParam): LResult
stdcall;
var
hwnd: dword;
begin
result := 0;
if iCode < 0 then
begin
CallNextHookEx(hnexthookproc, iCode, wParam, lParam);
result := 0;
Exit;
end;
if ((lParam and $80000000) = 0) and (wParam = $6D) then
begin
...........................
end;
请问这里的$80000000和$6D代表什么东西??
我这么写就可以看到他们的值了,他们到底是什么值??
procedure TForm1.Button1Click(Sender: TObject);
var
a,b:integer;
begin
a:=$80000000;
b:=$6D;
showmessage(inttostr($80000000));
showmessage(inttostr($6D));
end;