И опять проблема с хуками. Приложение само закрывается

[Altera]

Всем привет.
В общем экспериментирую тут с hook-ами. Лог ведётся в файлу подкачки, а потом сбрасывается в файл.

Почему-то потом иногда вылетает приложение, на которое переходит фокус после снятия hook-а

Код не очень большой и сконцентрирован в DLL

library hookDll;


uses
  messages, windows, dialogs,
  sysUtils;

var
hHook: tHandle;

hFileMapping: tHandle = 0;
pBuffer: pointer = nil;
hSyncMutex: tHandle;

const
fileMappingName = '124CC6D5-3E64-4E91-9DBE-748E388CAC12';
bufferSize = 1024 * 1024 * 10;
syncMutexName = 'BE8DFB58-2599-4148-9DC0-02B05C4DA0B2';

function hookFunc(nCode, wParam, lParam: dword): dword; stdCall;
var
oldBufferSize: cardinal;
newBufferAddress: pointer;
newBufferSize: cardinal;

tempStr: string;
tempStrSize: cardinal;

mouseInfo: pMouseHookStruct;
begin
   result := callNextHookEx(0, nCode, wParam, lParam);
   if nCode = HC_ACTION then
   begin
      if (wParam = WM_LBUTTONDOWN) and (not (pBuffer = nil)) then
      begin
         waitForSingleObject(hSyncMutex, 1000);

         mouseInfo := pMouseHookStruct(lParam);

         oldBufferSize := dword(pBuffer^);
         newBufferAddress := pointer(dword(pBuffer) + oldBufferSize + 4);

         tempStr := 'X: '+intToStr(mouseInfo.pt.X)+'; Y: '+intToStr(mouseInfo.pt.Y)+';'+#13;
         tempStrSize := length(tempStr) * sizeOf(char);

         copyMemory(newBufferAddress, pChar(tempStr), tempStrSize);
         dword(pBuffer^) := oldBufferSize + tempStrSize;

         releaseMutex(hSyncMutex);

         postMessage(findWindow(nil, 'Hook server'), WM_USER + 1, mouseInfo.pt.X, mouseInfo.pt.Y);
      end;
   end;
end;

procedure saveBuffer(const aBuffer: pointer);
var
hFile: thandle;
bytesWrited: cardinal;

timeStr: string;
timeStrSize: cardinal;
begin
   hFile := createFile('C:\Documents and Settings\Admin\Рабочий стол\logFile.txt', GENERIC_READ or GENERIC_WRITE, 0, nil, 
      OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
   setFilePointer(hFile, 0, 0, FILE_END);

   timeStr := formatDateTime('[yyyy.mm.dd - hh:nn:ss (zzz)]'+#13#10, date+time);
   timeStrSize := length(timeStr) * sizeOf(char);
   writeFile(hFile, timeStr[1], timeStrSize, bytesWrited, 0);

   writeFile(hFile, pointer(dword(aBuffer) + 4)^, dword(aBuffer^), bytesWrited, 0);
   closeHandle(hFile);
end;

function setHook(const unhook: boolean): boolean; stdCall;
var
hMappedFile: tHandle;
bytesWrited: cardinal;
begin
   if unhook then
   begin
      unhookWindowsHookEx(hHook);

      saveBuffer(pBuffer);

      unMapViewOfFile(pBuffer);
      closeHandle(hFileMapping);
      closeHandle(hSyncMutex);

      pBuffer := nil;
      hFileMapping := 0;
      hSyncMutex := 0;
   end
   else
   begin
      hFileMapping := createFileMapping(INVALID_HANDLE_VALUE, nil, PAGE_READWRITE, 0, bufferSize, fileMappingName);
      pBuffer := mapViewOfFile(hFileMapping, FILE_MAP_READ or FILE_MAP_WRITE, 0, 0, bufferSize);
      hSyncMutex := createMutex(nil, false, syncMutexName);

      hHook := setWindowsHookEx(WH_MOUSE, @hookFunc, hInstance, 0);
   end;
end;

exports setHook name 'setHook';

procedure DLLEntryPoint(dwReason:DWord);
begin
   case dwReason of
   DLL_PROCESS_ATTACH:
      if hFileMapping = 0 then
      begin
         hFileMapping := openFileMapping(FILE_MAP_WRITE or FILE_MAP_READ, false, fileMappingName);
         if hFileMapping <> 0 then
            pBuffer := mapViewOfFile(hFileMapping, FILE_MAP_READ or FILE_MAP_WRITE, 0, 0, bufferSize);

         hSyncMutex := openMutex(MUTEX_ALL_ACCESS, false, syncMutexName);
      end;
   DLL_PROCESS_DETACH:
      begin
         if pBuffer <> nil then
            unMapViewOfFile(pBuffer);
         if hFileMapping <> 0 then
            closeHandle(hFileMapping);

         if hSyncMutex <> 0 then
            closeHandle(hSyncMutex);
      end;
   end;
end;

begin
   dllProc:= @DLLEntryPoint;
   dLLEntryPoint(DLL_PROCESS_ATTACH);
end.

Из EXE-шника только запускается setHook

[raxp]

потому-что возвращаемая структура tfnhookproc имеет вид

TFNHookProc = function (code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT stdcall

ну а...

type
  LRESULT = Longint;

программисты борланда опять знаковый тип использовали.

[Altera]

Сообщение от raxp

потому-что возвращаемая структура tfnhookproc имеет вид

TFNHookProc = function (code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT stdcall

ну а...

type
  LRESULT = Longint;

программисты борланда опять знаковый тип использовали.

Нет, блин, один чёрт, всё равно глючит

[Altera]

А может из-за юнита dialogs? Если его убрать из uses работает как-бы без глюков. А что, он то хоть и прибавляет вес программе, чем мешает то?

[raxp]

...попробовал раз двадцать, пока не вылетает, может статистики не набрал ...ось xp sp2, среда компиляции delphi6 ...может у вас антивирь какой мешает?

[Altera]

Сообщение от raxp

...попробовал раз двадцать, пока не вылетает, может статистики не набрал ...ось xp sp2, среда компиляции delphi6 ...может у вас антивирь какой мешает?

Вылетает, у меня, после снятия хука, видемо при сообщении двойного щелчка. Попробуй, после того как отключишь хук, сразу же и как можно быстрее щёлкай по рабочему столу или каким нить окнам. Ну, не всегда вылетает. Ну, раз может 2 из 5. (если dialogs включён в uses библиотеки). C первого раза не всегда вылетает. Ну можно не закрывая программы опять хук поставить, пощёлкать, снять и опять быстро быстро пощёлкать. И так несколько раз.

[raxp]

так и не добился... Но добился ошибки как на скрине, когда чисто случайно второй раз нажал на кнопку "unhook", что вполне понятно ...может у вас "дребезг" контактов кнопки мышки проявился

[Altera]

Знаю, было такое, но щас нету.

function unHook: boolean; stdCall;
begin
   if hWinHook = 0 then exit;
   
   unhookWindowsHookEx(hWinHook);
   hWinHook := 0;

   saveBuffer(pBuffer);

   unMapViewOfFile(pBuffer);
   closeHandle(hFileMapping);
   closeHandle(hSyncMutex);

   pBuffer := nil;
   hFileMapping := 0;
   hSyncMutex := 0;
end;

[Altera]

Знаю, было такое, но щас нету.

function unHook: boolean; stdCall;
begin
   if hWinHook = 0 then exit;
   
   unhookWindowsHookEx(hWinHook);
   hWinHook := 0;

   saveBuffer(pBuffer);

   unMapViewOfFile(pBuffer);
   closeHandle(hFileMapping);
   closeHandle(hSyncMutex);

   pBuffer := nil;
   hFileMapping := 0;
   hSyncMutex := 0;
end;

[raxp]

попробовал уже на работе, xp sp3... not ...что за ось у вас?