Автор Тема: Получение hwnd активного окна  (Прочитано 26 раз)

0 Пользователей и 1 Гость просматривают эту тему.

ya12

  • Освоившийся
  • **
  • Сообщений: 93
    • Просмотр профиля
Получение hwnd активного окна
« : Апрель 14, 2019, 01:10:11 pm »
Код: Delphi
  1.  
  2. library GetFocus1;
  3. uses
  4.  TlHelp32, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.  Dialogs, StdCtrls;
  6. //------------------------------------------------------------------------------
  7. // Основное тело функции, идет на экспорт, вызывается из кликера
  8. function execute(_mas: pInteger; _size: Integer): Integer; export; stdcall;
  9. type
  10.  pIntArr = array[0..0] of Integer;
  11. var
  12.  Currentid, id:DWORD;
  13. begin
  14.  id := GetWindowThreadProcessId(GetForegroundWindow, nil);
  15.  Currentid := GetCurrentThreadId;
  16.  AttachThreadInput(Currentid, id, true);
  17.  result:=GetFocus;
  18.  AttachThreadInput(Currentid, id, false);
  19. end;
  20. //------------------------------------------------------------------------------
  21.  
  22. // список экспорта
  23. exports execute;
  24.  
  25. begin
  26.  // тело пусто
  27. end.
  28.  
  29.  
  30.  

Код: Clickermann
  1. call("GetFocus1.dll")
  2. print($_return1)
  3. halt
  4.