Windows explorer in panel

[Newander]

Hi guys,

I'm having a hard time getting this code to work, here's the code, I'm trying to open an instance of explorer.exe in a vb.net panel.

Imports System.Runtime.InteropServices

Public Class Form1

    Private Const WM_SYSCOMMAND As Integer = 274
    Private Const SC_MAXIMIZE As Integer = 61488

    Declare Auto Function SetParent Lib "user32.dll" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As Integer

    Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim proc As Process
        proc = Process.Start("explorer.exe", "/n,::{645FF040-5081-101B-9F08-00AA002F954E}")
        proc.WaitForInputIdle()
        SetParent(proc.MainWindowHandle, Me.Panel1.Handle)
        SendMessage(proc.MainWindowHandle, WM_SYSCOMMAND, SC_MAXIMIZE, 0)
    End Sub

End Class

This is the error I'm getting.

Process has exited, so the requested information is not available.

Thanks for the help!

Newander

 

[cjard]

CodeProject: Hosting EXE Applications in a WinForm project. Free source code and programming help

 

[ssware]

Instead of using such hacks, why not use a proper control such as Shell MegaPack (http://www.ssware.com/megapack.htm) ?