[gadmaker]

Пишу DLL расширение на Win Api для стороннего приложения немогу разобратся как командами Api обновить созданное окно, если использовать application.ProcessMessages() тогда всё работает, но здесь проблема размер библиотеки увеличивается многократно.
Может существует аналого данной функции.

[v1s2222]

Аналог ProcessMessages?

Код:

procedure ProcessMessages;
var
  Msg: TMsg;
  lResult: Boolean;
begin
  lResult := true;  
  while lResult do
  begin
    lResult := False;
    if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then
    begin
      lResult := True;
      if Msg.Message <> WM_QUIT then
      begin
        TranslateMessage(Msg);
        DispatchMessage(Msg);
      end;
    end;
  end;
end;

[gadmaker]

Большое спасибо, всё отлично заработало!