Страница 1 из 1
Как получить дескриптор консольного окна
Добавлено: 31.12.2013 16:49:58
Stargazer44
Re: Как получить дескриптор консольного окна
Добавлено: 02.01.2014 08:08:43
Vadim
Текущего, в котором работает сама программа?
Re: Как получить дескриптор консольного окна
Добавлено: 02.01.2014 10:33:03
Stargazer44
Vadim писал(а):Текущего, в котором работает сама программа?
Да.
Re: Как получить дескриптор консольного окна
Добавлено: 03.01.2014 06:32:18
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.
Re: Как получить дескриптор консольного окна
Добавлено: 03.01.2014 11:20:59
bormant
Чтобы h после вызова содержало дескриптор найденного окна, его надо присвоить внутри EnumWndProc. Поскольку это функция обратного вызова, самым простым будет передать во втором параметре адрес h, а внутри выполнить присваивание найденного HWND, используя параметр как указатель на HWND.
Re: Как получить дескриптор консольного окна
Добавлено: 10.01.2014 22:04:29
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>"
bormant писал(а):Чтобы h после вызова содержало дескриптор найденного окна, его надо присвоить внутри EnumWndProc. Поскольку это функция обратного вызова, самым простым будет передать во втором параметре адрес h, а внутри выполнить присваивание найденного HWND, используя параметр как указатель на HWND.
Мой уровень знаний WinApi находится на уровне чайника
Не могли бы Вы более
конкретно "ткнуть меня носом"?
Re: Как получить дескриптор консольного окна
Добавлено: 11.01.2014 05:51:20
Vadim
А зачем Вы матрёшку сделали?
У Вас в строке Uses что написано?
Re: Как получить дескриптор консольного окна
Добавлено: 11.01.2014 08:37:44
Stargazer44
uses windows;
Re: Как получить дескриптор консольного окна
Добавлено: 12.01.2014 19:14:14
bormant
Stargazer44 писал(а):Не могли бы Вы более конкретно "ткнуть меня носом"?
Как скажете.
Код: Выделить всё
{$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.