利用Api函数ShellAboutA可以显示一个与Windows操作系统风格一致的About对话框

首先声明如下外部函数：

  function int ShellAboutA(ulong al_hWnd, string as_szApp, string as_szOtherStuff,        ulong hIcon) library "shell32.dll"

  ShellAboutA(handle(parent),"关于学籍管理系统","欢迎使用学籍管理系统",0) 

原文转自：http://www.ltesting.net