利用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)
首先声明如下外部函数:
function int ShellAboutA(ulong al_hWnd, string as_szApp, string as_szOtherStuff, ulong hIcon) library "shell32.dll"
ShellAboutA(handle(parent),"关于学籍管理系统","欢迎使用学籍管理系统",0)