應用程序在運行當中經常要輸出各種即時信息，Delphi提供了多種形式的消息對話框可以滿足這些要求，盡管可以使用各種標志定制一個消息框，但仍不能將自己的圖標放在消息框內，也不能修改其標准行為去創建自己的消息框，其實通過調用函數MessageBoxIndirect()就很容易繞過這些明確的限制，這是一個功能很強、易於使用的函數。
此函數在WINDOWS單元裡面，文件位於Delphi安裝路徑Source\Rtl\Win裡面，需要指出的是，Delphi的原代碼中它的返回值類型是BOOL型，而實質上它的返回值應為Integer。修改方法：在WINDOWS單元中找到此函數後，把BOOL改為Integer，共有三處要修改，然後在Delphi安裝路徑Lib中找到WINDOWS.DCU文件，把它改名或者刪除，並把修改後的WINDOWS.PAS源碼復制到Lib路徑中。
該函數只有一個參數，類型是TMsgBoxParams，它的結構及說明如下：
tagMSGBOXPARAMSA = packed record
cbSize: UINT;
{數據結構的長度}
hwndOwner: HWND;
{所有者窗口句柄}
hInstance: HINST;
{應用程序實例句柄}
lpszText: PAnsiChar;
{在消息框客戶區內顯示的文本}
lpszCaption: PAnsiChar;
{標題欄文本}
dwStyle: DWORD;
{確定消息框內按鈕和圖符
的數量及種類的MB_標志}
lpszIcon: PAnsiChar;
{從資源文件中取出的一個
圖符資源的名字}
dwContextHelpId: DWORD;
{指定幫助文本的ID號}
lpfnMsgBoxCallback: TPRMsgBoxCallback;
{當用戶按下HELP按鈕時調用的一個回
調函數}
dwLanguageId: DWORD;
{顯示在按鈕內文本的語言定義}
end;
由於直接使用此函數比較復雜，我們可以自定義一個函數來封裝此函數，對它進行簡化,在用法上盡量做到與Delphi的消息框相一致，自定義函數代碼如下：
function MessageEx
(lText,lCaption:PChar;
lStyle:DWord;lIcon:PChar):Integer;
var
Msg:TMsgBoxParams;
begin
Msg.cbSize:=Sizeof(Msg);
Msg.hwndOwner:=Application.Handle;
Msg.hInstance:=hinstance;
Msg.lpszText:=lText;
Msg.lpszCaption:=lCaption;
Msg.dwStyle:=lStyle;
Msg.lpszIcon:=lIcon;
Msg.dwContextHelpId:=1;
Msg.lpfnMsgBoxCallback:=nil;
Msg.dwLanguageId:=LANG_NEUTRAL;
Result:=MessageBoxIndirect(Msg);
end;
要想在消息框中顯示自己的圖標，先准備一個裝有圖標的資源文件，加在程序中，如{$R c:\mydir\myres.res}，在lStyle參數裡除了所需的MB_標志外還要加上MB_USERICON標志，並在最後一個參數裡寫上資源文件中圖標的名字，如果不想使用自定義的圖標，可將最後一個參數設為nil。函數的其它用法和返回值的處理與Delphi提供的消息框一樣。
強烈建議把自定義函數放在一個單元文件裡，並把此文件放在Delphi的搜索路徑如Lib下，以後只需要把此單元加在uses語句裡，就可以直接使用自定義函數，非常方便。
上述自定義函數在Delphi4、Delphi5裡運行通過。
