ShellAbout-Funktion Diese Funktion ruft einen "About"-Dialog auf, wobei einige Parameter übergeben werden können, die in diesem Dialog angezeigt werden.
Betriebssystem:  Win95, Win98, WinNT 4.0, Win2000, WinME	Views:  3.013

Deklaration:

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

Beschreibung:
Diese Funktion ruft einen "About"-Dialog auf, wobei einige Parameter übergeben werden können, die in diesem Dialog angezeigt werden.

Parameter:

hwnd	Erwartet das Fensterhandle des Fensters, zu dem sich der aufgerufene Dialog modal verhält.
szApp	Erwartet einen String, der durch eine Raute ("#") getrennt ist. DerTeil des Strings vor der Raute wird in der Titelleiste angezeigt und die Zeichenkette nach dem Raute-Zeichen wird im Dialogfenster bei "Microsoft"angezeigt.
szOtherStuff	Erwartet einen String, der weitere Kommentare enthält, die im Dialog angezeigt werden.
hIcon	Erwartet das Handle eines Icons, das in der Titelleiste des Dialogs angezeigt werden soll.

Rückgabewert:
Ist die Funktion erfolgreich so wird ein Wert "Größer als 0" zurückgegeben, andernfallswird der Wert "-1" zurückgegeben.

Private 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

Private Sub Command1_Click()
  Debug.Print ShellAbout(Me.hwnd, "LonelySuicide666 Anwendung#LS666",  _
  "Dieses Programm ist nicht lizensiert", Me.Icon)
End Sub