Quote:
Originally Posted by Carldric Clement
I didn't expect it before. the newest version of Inno Setup 6 was no longer code of Application.ProcessMessanges; Is there any similar this code?
|
function PeekMessage(var lpMsg: TMsg; hWnd: HWND; wMsgFilterMin, wMsgFilterMax, wRemoveMsg: UINT): BOOL; external '
[email protected] stdcall';
function TranslateMessage(const lpMsg: TMsg): BOOL; external '
[email protected] stdcall';
function DispatchMessage(const lpMsg: TMsg): Longint; external '
[email protected] stdcall';
procedure AppProcessMessages;
var
Msg: TMsg;
begin
while PeekMessage(Msg, 0, 0, 0, 1) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end;