Как использовать поля класса в CallBack функции?

[resident]

Есть класс

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

type
  TWndFinder = class 
    private
      fNames: TStringList; // массив названий окон  
      ....
    public
      property Names: TStringList read fNames;
      procedure FindWindow; 
      ....

Процедура FindWindow вызывает функцию обратного вызова EnumCallBack, в которой я хочу заполнить поле fNames.

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

procedure TWndFinder.FindWindow;
  begin
     ....
    EnumWindows (@EnumCallBack, 0);
  end;  

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

function EnumCallBack(H: HWND; lP: lParam): BOOL; stdcall;
  begin
     ....
     fNames.Add(Wnd);
     ....
  end; 

Здесь компилятор не признает fNames. Как бы ему показать это поле?

[Sergei I. Gorelkin]

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

procedure TWndFinder.FindWindow; 
  begin 
      .... 
     EnumWindows (@EnumCallBack, Self);
   end;

function EnumCallBack(H: HWND; lP: lParam): BOOL; stdcall;
  var
    this: TWndFinder absolute lp;
  begin
     ....
     this.fNames.Add(Wnd);
     ....
  end;

[resident]

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

procedure TWndFinder.FindWindow; 
  begin 
      .... 
     EnumWindows (@EnumCallBack, Self);
   end;

function EnumCallBack(H: HWND; lP: lParam): BOOL; stdcall;
  var
    this: TWndFinder absolute lp;
  begin
     ....
     this.fNames.Add(Wnd);
     ....
  end;

Спасиб
Только в точности как у Вас компилятор ругался, а получилось вот так:

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

EnumWindows (@EnumCallBack, LParam(Self));