如何让Messagebox对话框标题栏上显示图标? ( 积分: 20 )

如何让Messagebox对话框标题栏上显示图标?

没辙，
要么你去修改Application.MessageBox的源码，要么你自己写个新的MessageBox函数，
要么你新建个form作为MessageBox

function TApplication.MessageBox(const Text, Caption: PChar; Flags: Longint): Integer;

下面是图标参数：
MB_ICONHAND = $00000010;
{$EXTERNALSYM MB_ICONQUESTION}
MB_ICONQUESTION = $00000020;
{$EXTERNALSYM MB_ICONEXCLAMATION}
MB_ICONEXCLAMATION = $00000030;
{$EXTERNALSYM MB_ICONASTERISK}
MB_ICONASTERISK = $00000040;
{$EXTERNALSYM MB_USERICON}
MB_USERICON = $00000080;
{$EXTERNALSYM MB_ICONWARNING}
MB_ICONWARNING = MB_ICONEXCLAMATION;
{$EXTERNALSYM MB_ICONERROR}
MB_ICONERROR = MB_ICONHAND;
{$EXTERNALSYM MB_ICONINFORMATION}
MB_ICONINFORMATION = MB_ICONASTERISK;
{$EXTERNALSYM MB_ICONSTOP}
MB_ICONSTOP = MB_ICONHAND;

例：
Application.MessageBox('内容','标题',MB_ICONASTERISK + MB_YesNo);

楼上的朋友好像误解是楼主的意思？

楼主好像是要在MessageBox的标题栏中显示他的程序的自定义图标。

MessageBoxIndirect.

修改Application.MessageBox的源码应该最简单！

多人接受答案了。