Глобальная переменная и hookproc

[daemon-rm]

Всем привет. Делаю хук на окно explorer.exe. Весь код находиться в dll. В dll передаю handle нужного мне окна и присваиваю его к глобальной переменной. В функции хука эта глобальная переменная равна 0, хотя в других моих функциях такого не наблюдается. Почему так происходит?

var Dll_Hook: HHOOK = 0;
    Wnd: HWND;

function Dll_HookFunc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT stdcall; 
  var CWP: TCWPStruct;     
begin
   if nCode=HC_ACTION then begin
     CWP:= PCWPStruct(lParam)^;
     if CWP.hwnd = wnd then	//wnd = 0 почему?
       case CWP.message of
         WM_MOVE: begin
           
         end;
       end;
    end;
   Result:=CallNextHookEx(WH_CALLWNDPROC, nCode, wParam, lParam);
end;

function SetHook(HookWnd: HWND): Boolean;
  var dwThreadID: DWORD;
begin
  Wnd:= HookWnd;
  dwThreadID:= GetWindowThreadProcessId(HookWnd, nil);
  Dll_Hook:= SetWindowsHookEx(WH_CALLWNDPROC, @Dll_HookFunc, hInstance, dwThreadID);
  Result:= (Dll_Hook <> 0);
end;

[Пепел Феникса]

длл в другом процессе это не длл вашего процесса, она грузится с нуля туда.

[daemon-rm]

Сообщение от Пепел Феникса

длл в другом процессе это не длл вашего процесса, она грузится с нуля туда.

Можно ли решить данную проблему? В C++ рекомендуют использовать Sharemem, если я не ошибаюсь. Как быть в Delphi?

[Пепел Феникса]

Сообщение от daemon-rm

Можно ли решить данную проблему? В C++ рекомендуют использовать Sharemem, если я не ошибаюсь. Как быть в Delphi?

в Делфи это тоже возможно.

я бы использовал иные методы для передачи данных.

[daemon-rm]

Сообщение от Пепел Феникса

в Делфи это тоже возможно.

я бы использовал иные методы для передачи данных.

Название метода, пример метода?

[daemon-rm]

Разобрался.

const FileMappingName = 'NAME123';

type  TGlobalData = record
        HookWnd: THandle;
        //TargetWnd: THandle;
      end;
      PGlobalData = ^TGlobalData;

var Dll_Hook: HHOOK = 0;
    FileMappingHandle: THandle;
    GlobalData: PGlobalData = nil;

function Dll_HookFunc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT stdcall; 
  var CWP: TCWPStruct;     
begin
   if nCode=HC_ACTION then begin
     CWP:= PCWPStruct(lParam)^;
     if CWP.hwnd = GlobalData^.HookWnd then
       case CWP.message of
         WM_MOVE: begin
           
         end;
       end;
    end;
   Result:=CallNextHookEx(WH_CALLWNDPROC, nCode, wParam, lParam);
end;

function SetHook(HookWnd: HWND): Boolean;
  var dwThreadID: DWORD;
begin
  GlobalData^.HookWnd:= HookWnd;
  dwThreadID:= GetWindowThreadProcessId(HookWnd, nil);
  Dll_Hook:= SetWindowsHookEx(WH_CALLWNDPROC, @Dll_HookFunc, hInstance, dwThreadID);
  Result:= (Dll_Hook <> 0);
end;

procedure DLLHandler(Reason: Integer);
begin
  case Reason of
    DLL_PROCESS_ATTACH: begin
      FileMappingHandle:= CreateFileMapping($ffffffff, nil, PAGE_READWRITE, 0, SizeOf(TGlobalData), FileMappingName);
      GlobalData:= MapViewOfFile(FileMappingHandle, FILE_MAP_ALL_ACCESS, 0, 0, SizeOf(TGlobalData));
    end;
    DLL_PROCESS_DETACH: begin
      UnmapViewOfFile(GlobalData);
      CloseHandle(FileMappingHandle);
    end;
  end;
end;

begin
  DllProc:=@DLLHandler;
  DLLHandler(DLL_PROCESS_ATTACH);
end.

[xexxex]

 var CWP: TCWPStruct;     
begin
   if nCode=HC_ACTION then begin
     CWP:= PCWPStruct(lParam)^;

-мелочь конечно, но, ведь происходит ненужное\напрасное копирования\дублирование структуры в переменную.
- лучше уж так: var CWP: PCWPStruct; CWP:= Pointer(lParam);....