Пример EnumWindows

Страница 2 из 2

Дополнение

В Kuliba1000.chm Win32 API/Разное/Пример EnumWindows есть принципиальная ошибка в коде:

ЛЮБАЯ callback ( обратного вызова ) функция в Delphi должна сопровождаться директивой stdcall.

Предоставленный пример просто не работает.

Определение класса формы должно выглядеть как-то так:

Code:

type

TForm1 = class(TForm)

ListBox1: TListBox;

ListBox2: TListBox;

procedure FormCreate(Sender: TObject);

procedure ListBox1DblClick(Sender: TObject);

private

function enumListOfTasks(hWindow: hWnd): Bool; stdcall;

function enumListOfChildTasks(hWindow: hWnd): Bool; stdcall;

end;

Директивы export (это написано в Help'е) просто не работают (игнорируются) под Win 32 :(

Новые статьи