| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Что-то не то с библиотекой [D7, WinXP]

Рома ©   (2004-08-21 13:47:00) 

Здравствуйте все! Буду очень благодарен, если объясните в чём дело. Не получается сделать так, чтобы библиотека записывала строки в файл. При её подключении (sethook) из другой программы  процедура CreateNewFile создаёт новый файл, что и требуется. Однако если запускать эту процедуру из указанного места в программе(после нажатия клавиши), то она ничего не делает. Просто какой-то парадокс. Вот исходник библиотеки:

library SpyKey;
uses Windows, SysUtils, Dialogs;
const FileName='LOG.TXT';
var
 MyHookHandle:Hhook = 0;
 TFile: TextFile;

procedure CreateNewFile;
begin
AssignFile(TFile,FileName);
ReWrite(TFile);
WriteLN(TFile, 'Новый файл');
CloseFile(TFile);
end;

function MyCoolHook(Code: integer; wParam: word; lParam: Longint):LongInt;stdCall;
begin

if code<0 then Result := CallNextHookEx(MyHookHandle,Code, wParam, lParam)
else{проверка, какая кнопка нажата}
  begin
  result:=0;

  if(code=HC_ACTION)and(lParam<>lParam or $8000 shl 16)and
    (lParam<>lParam or $8000 shl 15) then
    begin
     //CreateNewFile - Почему-то из этого места функция никогда не выполняется!
     ShowMessage('Хм'); {Сообщение показывается при нажатии любой клавиши всегда}
    end;

CallNextHookEx(MyHookHandle,Code, wParam, lParam)//вызываю следующую ловушку
end;{if}

end;

procedure SetHook;stdCall;Export;
begin
//CreateNewFile - А отсюда выполняется нормально  ;
MyHookHandle := SetWindowsHookEx(WH_Keyboard, @MyCoolHook, hInstance, 0);//устанавливаю хук
end;

procedure UnHook;stdCall;Export;
begin
UnhookWindowsHookEx(MyHookHandle);
end;

exports
SetHook,
Unhook;

Begin
end.

---

Рома   (2004-08-21 15:06:00) [1]

Нет, в том то и дело, что это условие прекрасно выполняется, и выводится сообщение "Хм", но функция CreateNewFile, которая должна выполняться перед выводом сообщения, ничего не делает. Вот сижу сейчас и не знаю что делать.

---

olookin   (2004-08-21 14:54:00) [2]

Наверное, условие

if(code=HC_ACTION)and(lParam<>lParam or $8000 shl 16)and
   (lParam<>lParam or $8000 shl 15) then
   
не выполняется

---

Profi   (2004-08-21 14:11:00) [3]

Еще один "хакер"!

---

Наверх