function MessageBoxLg(Handle:integer;Text,Caption:String;flag:integer):integer;<br><br>var<br><br> Msg:TMsgBoxParams;<br><br>begin<br><br> Msg.cbSize:=Sizeof(Msg);<br><br> Msg.hwndOwner:=Handle;<br><br> Msg.hInstance:=hinstance;<br><br> Msg.lpszText:=PChar(Text);<br><br> Msg.lpszCaption:=PChar(Caption);<br><br> Msg.dwStyle:=flag+MB_USERICON;<br><br> Msg.lpszIcon:='MAINICON';<br><br> Msg.dwContextHelpId:=1;<br><br> Msg.lpfnMsgBoxCallback:=nil;<br><br> Msg.dwLanguageId:=LANG_NEUTRAL;<br><br> Result:=integer(MessageBoxIndirect(Msg));<br><br>end; <br>