Получение hwnd активного окна

[ya12]

Code: (delphi) [Select]


library GetFocus1;
uses
  TlHelp32, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
//------------------------------------------------------------------------------
// Основное тело функции, идет на экспорт, вызывается из кликера
function execute(_mas: pInteger; _size: Integer): Integer; export; stdcall;
type
  pIntArr = array[0..0] of Integer;
var
  Currentid, id:DWORD;
begin
  id := GetWindowThreadProcessId(GetForegroundWindow, nil);
  Currentid := GetCurrentThreadId;
  AttachThreadInput(Currentid, id, true);
  result:=GetFocus;
  AttachThreadInput(Currentid, id, false);
end;
//------------------------------------------------------------------------------

// список экспорта
exports execute;

begin
  // тело пусто
end.




Code: (clickermann) [Select]

call("GetFocus1.dll")
print($_return1)
halt