Проблемы с EnumWindows

← →
chernoruk (2002-02-24 22:14) [0]

После выполнения следующего кода ListBox1 заполняется какими-то
непонятными заголовками окон (которых нет ни на экране, ни на таскбаре) и вообще даже пустыми строками (т.е. s="").
Пожалуйста-а-а-а! Помогите, кто знает в чём дело.

uses windows,...
...
implementation
...

procedure TForm1.Button1Click(Sender: TObject);
begin
EnumWindows(@CallBackFunction,0);
end;

function CallBackFunction(hand: HWND):boolean;
var
s :string;
mas :array[0..256]of ansichar;
begin
GetWindowTextA(hand, mas, 256);
s:=mas;
form1.listbox1.items.Add(s);
end;

...
end.

← →
VuDZ (2002-02-24 22:20) [1]

всё дело в том, что есть чень много окон, которых не видно, но которые есть. запусти Spy from SDK и увидешь.

← →
Sasha9 (2002-02-24 23:00) [2]

и к тому же в колбэке 2 параметра (второй - lParam:LPARAM)

← →
Raptor (2002-02-24 23:42) [3]

Дело совсем не в невидимых окнах. Дело в том, что функция неправильно описана. Надо ее описать так:
function CallBackFunction(hand: HWND;lParam:LParam):boolean; stdcall;
Тогда будет работать.

← →
VuDZ (2002-02-25 02:05) [4]

не стоит быть таким категоричным на счёт невидимых окон

← →
Raptor (2002-02-25 10:50) [5]

Не обижайся. ;-))
Просто проблемма в даном, конкретном случае, точно не в невидимых окнах. Главная проблема здесь в том, что автор вопроса в описании callback-функции не только забыл указать второй параметр функции, но и забыл указать стандартный способ передачи параметров (stdcall). И у некоторых участников этого форума уже были проблеммы с тем, что такая функция (без описания stdcall) некорректно работает именно из-за этого.

← →
chernoruk (2002-03-09 05:45) [6]

Спасибо!

Проблемы с EnumWindows Найти похожие ветки