процессы выполнялись сразу, не ставясь в очередь

[Var17]

Как на WinAPI сделать, чтоб процессы для приложения выплнялись сразу, не ставясь в очередь, в обычном Delphi это делается с помощью Application.ProccessMessages.

[_Dmitry]

Application.ProcessMessages организует локальную петлю сообщений, он вызывает ProcessMessage до тех пор, пока очередь не окажется пустой.

procedure TApplication.ProcessMessages;
var
  Msg: TMsg;
begin
  while ProcessMessage(Msg) do {loop};
end;

ProcessMessage отвечает за извлечение и диспетчеризацию сообщения, это выполняют API функции

function TApplication.ProcessMessage(var Msg: TMsg): Boolean;
var
  Handled: Boolean;
begin
  Result := False;
  if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then
  begin
    Result := True;
    if Msg.Message <> WM_QUIT then
    begin
      Handled := False;
      if Assigned(FOnMessage) then FOnMessage(Msg, Handled);
      if not IsHintMsg(Msg) and not Handled and not IsMDIMsg(Msg) and
        not IsKeyMsg(Msg) and not IsDlgMsg(Msg) then
      begin
        TranslateMessage(Msg);
        DispatchMessage(Msg);
      end;
    end
    else
      FTerminate := True;
  end;
end;

Это код из модуля Forms Delphi, который вы обозвали "обычный".

[Var17]

Большое спасибо за подробнейшее разъяснение начинающему программисту , сейчас пытаюсь адаптировать код для своей программы, возникают следующие трудности : компилятор не принимает идентификаторы :FOnMessage, IsHintMsg, IsMDIMsg, IsKeyMsg, IsDlgMsg FTerminate.
Программа использует следующие модули : Windows,Messages,SysUtils,Classes. Не хочу использовать Forms т.к. размер программы резко выростет.

[Alter]

Может так:

procedure ProcessMessages;      
var      
  Msg: TMsg;      
begin      
  while true do      
  begin      
    if not PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then Break;     
    if Msg.Message <> WM_QUIT then      
    begin      
      TranslateMessage(Msg);      
      DispatchMessage(Msg);      
    end;      
  end;      
end;

___________________________________ ______________________________
Поиск пользуем хотябы.