использование GWL_WNDPROC

[user_jasser]

Возможно ли подменять функцию WinProc с помощью "SetWindowLong" многократно, тоесть регистрировать одну и ту же ф-ию для разных окон.

вот типо так:

function NewProc(hWnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: 
begin
  ..................
    Result:= CallWindowProc(Find.FWinProc, hWnd, uMsg, wParam, lParam);
end; 

begin

Event1.FWinProc:= WNDPROC(SetWindowLong(FHwnd1, GWL_WNDPROC, LongInt(@NewProc)));
  ..................
Event2.FWinProc:= WNDPROC(SetWindowLong(FHwnd2, GWL_WNDPROC, LongInt(@NewProc)));

end.

Просто в моей проге неопределенное количество окон с которыми нужно поработать. Такой код опасен? Есть альтернатива?

[rpy3uH]

Сообщение от user_jasser

Такой код опасен? Есть альтернатива?

ну во-первых, смотря какой код будет у твоей оконной процедуры.

Сообщение от user_jasser

Возможно ли подменять функцию WinProc с помощью "SetWindowLong" многократно, тоесть регистрировать одну и ту же ф-ию для разных окон.

ну попробуй. а почему нельзя?

[user_jasser]

TRegistrEvent = class
  private
  public
    FLink: TRegistrEvent;
    FFunc: PChar;
    FWinProc: WNDPROC;
    FHwnd: hWnd;
  end;          

function NewProc(hWnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var
  next: TRegistrEvent;
begin
  next:= EventHead;
  try
    while not(next=Nil) do begin
      if(next.FHwnd=hWnd)then
        exit;
      next:= next.FLink;
    end;
  MessageBox(0, 'HWND is not found', '!', MB_ICONERROR or MB_OK);
  finally
    lua_getglobal(vj_Lua.this, next.FFunc);
    lua_pushnumber(vj_Lua.this, hWnd);
    lua_pushnumber(vj_Lua.this, uMsg);
    lua_pushnumber(vj_Lua.this, wParam);
    lua_pushnumber(vj_Lua.this, lParam);
    lua_pcall(vj_Lua.this, 4, 0, 0);
    //vj_Lua.call(next.FFunc, [hWnd]);
    Result:= CallWindowProc(next.FWinProc, hWnd, uMsg, wParam, lParam);
  end;
end;

    function lua_RegistEvent(L: Plua_State): Integer; cdecl;
    var Event: TRegistrEvent;
    begin
      Event:= TRegistrEvent.Create;
      Event.FHwnd:= lua_tointeger(vj_Lua.this, 1);
      Event.FFunc:= lua_tostring(vj_Lua.this, 2);
      Event.FWinProc:= WNDPROC(SetWindowLong(Event.FHwnd, GWL_WNDPROC, LongInt(@NewProc)));
      Event.FLink:= EventHead;
      EventHead:= Event;
    end;

Прога виснит ... Можеть всеже нельзя так? Или я гдето натупил?

[rpy3uH]

насколько я понял ты делаешь односвязанный список, каждый элемент в котором это класс. зачем это надо?

ты где-то здесь накуралесил

    var Event: TRegistrEvent;
    begin
      Event:= TRegistrEvent.Create;
      Event.FHwnd:= lua_tointeger(vj_Lua.this, 1);
      Event.FFunc:= lua_tostring(vj_Lua.this, 2);
      Event.FWinProc:= WNDPROC(SetWindowLong(Event.FHwnd, GWL_WNDPROC, LongInt(@NewProc)));
      Event.FLink:= EventHead;
      EventHead:= Event;

и вообще что ты собираешься сделать?

[user_jasser]

насколько я понял ты делаешь односвязанный список, каждый элемент в котором это класс. зачем это надо?

ну это надо для того, что бы в ф-ии NewProc можно было отыскать нужный экземпляр класса, по хендлу окна. Там же происходит вызов найденной ф-ии в интерпретируемом скрипте_Lua.
Тоесть, таким образом, хотелось бы управлять событиями окон, без компиляции проги.