Форум: "WinAPI";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];
ВнизHook Найти похожие ветки
← →
Grim Rider (2002-02-20 13:20) [0]Господа, ткните меня носов в ошибку.
При запуске следующий код убивает систему, благо на 2000 сижу, повторно логиниться можно.
...
function ShellProc(nCode: Integer; WPARAM: Integer; LPARAM: Integer): Integer; Stdcall;
....
var
Form1: TForm1;
hHk: HHook;
implementation
uses Clipbrd, SendKeys;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
hHk := SetWindowsHookEx(WH_CALLWNDPROC, @ShellProc, HInstance, 0);
end;
function ShellProc(nCode: Integer; WPARAM: Integer; LPARAM: Integer): Integer; Stdcall;
begin
Result := CallNextHookEx(hHk, nCode, WPARAM, LPARAM);
// will do smth here
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnhookWindowsHookEx(hHk);
end;
Мне нужен системный хук, который следит за другим приложением и клипбордом.
Помогите плз.
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c