|
Mit
dem untenstehenden Programm-Code können Sie sehr einfach einen vorgegebenen
Info-Dialog einblenden.
Das ganze sieht dann ungefähr wie folgt aus:
Zusätzlich können zwei Text (im Bild rot eingerahmt) mit übergeben
werden und so das Dialog-Feld etwas angepasst werden.
Quelltext der Anwendung:
'API-Function deklarieren
Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" ( _
ByVal hwnd As Long, _
ByVal tsAppTitle As String, _
ByVal tsOtherInfo As String, _
ByVal hIcon As Long) As Long
'------------------------------------------------------------
Private Sub Command1_Click()
ShellAbout Me.hwnd, _
"Ein Tolles Programm", _
"Bitte nicht kopieren", _
Me.Icon
End Sub
|