Как получить дескриптор консольного окна

[Stargazer44]

Как получить дескриптор (HWND) консольного окна средствами Free Pascal ?
Нашёл несколько примеров на C++ :
http://www.cyberguru.ru/cpp-sources/ui-windows/kak-poluchit-deskriptor-konsolnogo-okna-hwnd.html
http://www.rsdn.ru/article/qna/ui/conhandl.xml
Помогите, пожалуйста, с "переводом".

[Vadim]

Текущего, в котором работает сама программа?

[Stargazer44]

Текущего, в котором работает сама программа?

Да.

[Vadim]

Из второй статьи (там код короче )

Код: Выделить всё

Uses windows;

Function EnumWndProc(h:HWND; l:LPARAM): BOOL; stdcall;
begin
   if GetWindowThreadProcessId(h, NIL) = GetCurrentThreadId() Then
   Begin
      //Здесь надо что-то сделать с h (которое в параметре l), т.к. это оно
      ...
      //Прекращаем выполнение
      EnumWndProc:=FALSE;
   End
   Else
     EnumWndProc:=TRUE;
end;

var
  h: HWND;

Begin
   
   EnumWindows(@EnumWndProc, LPARAM(h));
   // h содержит дескриптор.
   
End.

[bormant]

Чтобы h после вызова содержало дескриптор найденного окна, его надо присвоить внутри EnumWndProc. Поскольку это функция обратного вызова, самым простым будет передать во втором параметре адрес h, а внутри выполнить присваивание найденного HWND, используя параметр как указатель на HWND.

[Stargazer44]

Уважаемый Vadim, слепил я из Вашего кода вот такую функцию:

Код: Выделить всё

function GetConsoleHwnd:HWND;
var h: HWND;
function EnumWndProc(h:HWND; l:LPARAM): BOOL; stdcall;
begin
  if GetWindowThreadProcessId(h, NIL) = GetCurrentThreadId() then
    EnumWndProc:=FALSE;
  else
    EnumWndProc:=TRUE;
end;
begin
  EnumWindows(@EnumWndProc, LPARAM(h));
end;

Она не компилируется, компилятор пишет ошибку:
Error: Incompatible type for arg no. 1: Got "<address of function(LongWord,LongInt):LongBool is nested;StdCall>", expected "<procedure variable type of function(LongWord,LongInt):LongBool;StdCall>"

Чтобы h после вызова содержало дескриптор найденного окна, его надо присвоить внутри EnumWndProc. Поскольку это функция обратного вызова, самым простым будет передать во втором параметре адрес h, а внутри выполнить присваивание найденного HWND, используя параметр как указатель на HWND.

Мой уровень знаний WinApi находится на уровне чайника
Не могли бы Вы более конкретно "ткнуть меня носом"?

[Vadim]

А зачем Вы матрёшку сделали?
У Вас в строке Uses что написано?

[Stargazer44]

uses windows;

[bormant]

Не могли бы Вы более конкретно "ткнуть меня носом"?

Как скажете.

Код: Выделить всё

{$apptype console}
uses Windows, SysUtils;

type
  pHWND=^HWND;

function enumGetHwnd(h: HWND; l: LPARAM): bool; stdcall;
begin
  enumGetHwnd:=true;
  if GetWindowThreadProcessId(h, NIL) = GetCurrentThreadId() then begin
    pHWND(l)^:=h; enumGetHwnd:=false;
  end;
end;

var
  h: HWND;

begin
  EnumWindows(@enumGetHwnd, LPARAM(@h));
  WriteLn('$'+IntToHex(h, 8));
  ReadLn;
end.

Имейте в виду, если программа запущена из другой консольной программы, скажем из cmd или Far Manager, показанный метод окошко не найдёт.

Добавлено спустя 15 минут 22 секунды:
Microsoft рекомендует другой способ, по уникальному временному заголовку окна, http://support.microsoft.com/kb/124103, лишенный предыдущего недостатка:

Код: Выделить всё

{$apptype console}
uses Windows, SysUtils;

var
  h: HWND;
  ct, nt: WideString;

begin
  nt:=IntToStr(GetTickCount)+'/'+IntToStr(GetCurrentProcessId);
  SetLength(ct,1024);
  GetConsoleTitleW(PWideChar(ct),1024);
  SetConsoleTitleW(PWideChar(nt));
  Sleep(40);
  h:=FindWindowW(nil,PWideChar(nt));
  SetConsoleTitleW(PWideChar(ct));
  WriteLn('$'+IntToHex(h, 8));
  ReadLn;
end.