一个代替ShowMessage的函数

showmessage最大的缺点是对话框没有图标，不好看，而用MessageBox调用又比较麻烦。

procedure MsgBox(strMsg: string);
var
h: THandle;
begin
if not Assigned(screen) or (not Assigned(screen.ActiveForm)) then
h := application.handle
else
h := screen.ActiveForm.Handle;
MessageBox(h, PChar(strMsg), PChar(Application.Title), MB_ICONINFORMATION+MB_ok);
end;