利用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)