Системный about

[Денис]

Забавно, но специфичность названия совершенно мешает гуглить. Подскажите, если кто знает. Как вызывать такое окно в своей программе? Ткните носом.

[Vova_2581]

rundll32 shell32,ShellAboutA
или --
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
...

Код: Выделить всё

'Api ShellAbout   
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 Form_Load()   
       
    Descripcion = " Ejemplo"   
       
    ShellAbout Me.hWnd, App.Title, Descripcion, ByVal 0&   
End Sub   

[Хакер]

А зачем? Такой About могут иметь только компоненты Windows.

[Денис]

Vova_2581, спасибо, это оно.

компоненты Windows

Ага, особенно прога из комплекта SDK, c которой я скриншот снял. Очень компонент windows. Прям системный.

[Хакер]

Продукты MS, особенно программы и утилиты, входящие в ОС Windows.

Так лучше?

[Денис]

Продукты MS, особенно программы и утилиты, входящие в ОС Windows.

Вот в такой формулировке согласен. Тем не менее, во многих сторонних продуктах я видел, что оно используется. Не вижу ничего зазорного, чтобы не заюзать. Но скорее всего не буду, ибо API эт не кроссплатформенно. Так, для общего развития буду знать.

[Хакер]

Тем не менее, во многих сторонних продуктах я видел, что оно используется.

Ага, а много совершенно левых челов возит на под задним стеклом милицейскую фружку. Так, тоже, для вида.

То, что кто-то гоняется за красивым диалогом, и его даже не волнует, что в нём нет места для указания своего имели или имени своего компании, и что там всегда написано «Microsoft Corporation», ну...

И не надо говорить, что Other Stuff можно всунуть даже имя бабушки автора.

[Денис]

там всегда написано «Microsoft Corporation»

И это тоже, не в последнюю очередь ратует против.