sHookApi Library - for Delphi (監測 API 函式組) (源碼+圖解) |
|
Skyer
高階會員 ![]() ![]() ![]() ![]() 發表:43 回覆:111 積分:120 註冊:2002-04-04 發送簡訊給我 |
第二彈!!
本版本就單純是 MASM -> Pascal XD 測試程式結果照
var Form1: TForm1; OrigMsg1: function (hwnd:DWORD; text, title: PChar; flag:DWORD): DWORD; stdcall; OrigMsg2: function (hwnd:DWORD; text, title: PChar; flag:DWORD): DWORD; stdcall; implementation {$R *.dfm} function myMsg1(hwnd:DWORD; text, title:PChar; flag:DWORD):DWORD; stdcall; begin Result := OrigMsg1(0, text, '被 myMsg1 綁架', MB_OK or MB_ICONWARNING); end; function myMsg2(hwnd:DWORD; text, title:PChar; flag:DWORD):DWORD; stdcall; begin Result := OrigMsg2(0, '被 myMsg2 綁架', title, flag); end; procedure TForm1.btn1Click(Sender: TObject); begin OrigMsg1 := sHookApi('user32.dll', 'MessageBoxA', @myMsg1); OrigMsg2 := sHookApi('user32.dll', 'MessageBoxA', @myMsg2); MessageBox(0, nil, nil, 0); sUnhookApi(@OrigMsg2); sUnhookApi(@OrigMsg1); end;我來說明一下這個 library 的作法. 先來張圖 (原諒我這個沒有美術天分的人.. 我以經努力了 @@)
------
-- Regards, Skyer |
Skyer
高階會員 ![]() ![]() ![]() ![]() 發表:43 回覆:111 積分:120 註冊:2002-04-04 發送簡訊給我 |
|
enter2004
初階會員 ![]() ![]() 發表:51 回覆:94 積分:34 註冊:2005-04-10 發送簡訊給我 |
|
Skyer
高階會員 ![]() ![]() ![]() ![]() 發表:43 回覆:111 積分:120 註冊:2002-04-04 發送簡訊給我 |
|
gavinj123
初階會員 ![]() ![]() 發表:88 回覆:48 積分:27 註冊:2002-10-15 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |