Rubrik: Windows/System | 22.03.05 |
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: 8.427 |
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