Люди! Как открыть окошко мой компьютер????

[deepslam]

Сабс
По умолчанию открываются Мои документы
call shell explorer.exe Мой компьютер тоже не фурычит...

[GM]

Че то с вот этим {20D04FE0-3AEA-1069-A2D8-08002B30309D}
нужно сделать, как спомню, скину.

[GM]

Вот так:

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

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Sub Form_Load()
    ShellExecute Me.hwnd, "explore", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub


[deepslam]

Вот так:

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

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Sub Form_Load()
    ShellExecute Me.hwnd, "explore", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub


не работает (((((((((((((((((((((

[GM]

Тогда попробуй так:

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

call shell("explorer ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}")


[_Мика_]

О! А вот так работает

[deepslam]

Тогда попробуй так:

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

call shell("explorer ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}")


Во! Супер так работает )))))))))
а вот этот ID {20D04FE0-3AEA-1069-A2D8-08002B30309D} на всх компах одинаковый да?

[tyomitch]

Да.