利用Api函数ShellAboutA可以显示一个与Windows操作系统风格一致的About对话框。 首先声明如下外部函数:
//声明在 declare选项 local external function里
function int ShellAboutA(ulong al_hWnd, string as_szApp, string as_szOtherStuff, ulong hIcon) library "shell32"
//在窗口代码里调用
ShellAboutA(handle(parent),"关于...#摆渡人工作室","欢迎光临!",0)