日期:2013-10-05  浏览次数:20573 次


首先声明如下外部函数:

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

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