一个代替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;