unit unit1;
inte***ce
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, stdctrls,qt;
type
tform1 = class(tform)
button1: tbutton;
procedure formcreate(sender: tobject);
procedure formdestroy(sender: tobject);
procedure button1keydown(sender: tobject; var key: word;
shift: tshiftstate);
private
public
end;
//function keyhook(ncode: integer; wparam: wparam; lparam: lparam): lresult; stdcall;
var form1: tform1;
hook: hhook;
implementation
//var
function keyhook(ncode: integer; wparam: wparam; lparam: lparam): lresult;stdcall;
begin
// showmessage('aaabbb '+inttostr(wparam)+' '+inttostr(lparam));
if (wparam = 119) and(lparam>0) then
begin
showmessage('aaa '+inttostr(wparam)+' '+inttostr(lparam)+' '+inttostr(ncode));
beep;
end;
result := callnexthookex(hook, ncode, wparam, lparam);
end;
procedure tform1.formcreate(sender: tobject);
begin
hook := setwindowshookex(wh_keyboard, @keyhook, 0, getcurrentthreadid);
end;
procedure tform1.formdestroy(sender: tobject);
begin
unhookwindowshookex(hook);
end;
procedure tform1.button1keydown(sender: tobject; var key: word;
shift: tshiftstate);
begin
//key_enter
end;
end.
利用滑鼠鍵盤鉤子截獲密碼
利用滑鼠鍵盤鉤子截獲密碼。原始碼示例 http zeena.nease.net soft getpass src.rar 鉤子能截獲系統並得理髮送給其它應用程式的訊息，能完成一般程式無法完成的功能。掌握鉤子的程式設計方法是很有必要的 鉤子分類 1 wh callwndproc和wh callwndp...
電腦按f8無法進入安全模式 電腦藍屏按f8沒反應
有時候電腦會由於設定不正確等原因出現藍屏的現象，一般出現藍屏按f8即可進入 安全模式 如果電腦藍屏按f8沒反應，可能是由於以下的原因。電腦藍屏按f8沒反應 1 不是所有的情況都是按f8可以進入 安全模式 如果是比較嚴重的系統或者是硬體的錯誤，按f8，選擇進入 安全模式 也是無法正常啟動的，這種情況下...
讓F8鍵失效 Visual Basic
以下在.bas option explicit declare function setwindowshookex lib user32 alias setwindowshookexa byval idhook as long,byval lpfn as long,byval hmod as lon...