StandardAbout

'Dichiarazione da inserire in un modulo bas

Const GWW_HINSTANCE = (-6)
Declare Function ShellAbout Lib "shell32.dll" _
Alias "ShellAboutA" (ByVal hwnd As Long, _
ByVal szApp As String, ByVal szOtherStuff _
As String, ByVal hIcon As Long) As Long
Declare Function ExtractIcon Lib "shell32.dll" _
Alias "ExtractIconA" (ByVal hInst As Long, _
ByVal lpszExeFileName As String, _
ByVal nIconIndex As Long) As Long
Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
'_________________________________________________________

'Esempio di utilizzo


Dim lRet As Long
Dim lNull As Long
Dim lIcon As Long
Dim lInst As Long
lInst = GetWindowLong(Form1.hwnd, GWW_HINSTANCE)
lIcon = ExtractIcon(lInst, App.EXEName, 0&)
lRet = ShellAbout(Form1.hwnd, "Nome Applicazione", _
"Copyright © 1998 NomeSocieta" & Chr(13) & Chr$(10) & _
"Serial # xxxxxxxxx-xxx", lIcon)