Dialog O aplikaci

Postup:
Založte nový projekt. Do deklarační části formuláře zapište:

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

Na formulář přidejte tlačítko a na jeho událost Click:

Shellabout Me.hWnd, "Aplikace", "Různý text", Me.Icon

Spusťte aplikaci. Po klepnutí na tlačítko se zobrazí dialog.

Zpět

Autor: The Bozena