неполадки при исп. EnumWindows

[chertovich]

Обнаружил некоторые неполадки при использовании EnumWindows.
Вот код:

var
  Form1: TForm1;

function EnumWindowsWnd(H: HWND): BOOL; stdcall;

implementation

{$R *.dfm}

function EnumWindowsWnd(H: HWND): BOOL; stdcall;
begin
  Result := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  for I := 1 to 10 do
  begin
    EnumWindows(@EnumWindowsWnd, 0);
    ShowMessage(IntToStr(I));  // Здесь всегда 0
  end;
end;

Когда добавляю в цикл EnumWindows, то в результате значение счетчика I всегда 0.
В чем может быть дело?

[Пепел Феникса]

а потом еще ошибки должны быть, ибо вы портите стек.

прототип функции таков:

EnumWindowsProc(hwnd:THandle;lparam:LPARAM):booleam;stdcall;

а не то что у вас.

[veniside]

> В чем может быть дело?

lParam потерялся

BOOL CALLBACK EnumWindowsProc(
  __in  HWND hwnd,
  __in  LPARAM lParam
);

[chertovich]

Спасибо. Просто встретил неправильный пример в книге.