The code below will not work on Vista 64bit?

  • Thread starter Thread starter yxq
  • Start date Start date
Y

yxq

Hello,
The code below can popup the property dialog of a file, it works well on XP,
Vista 32bit, but it will not work on Vista 64bit, how to correct it? i have
tried to change integer to intptr, but not work yet, thank you.

//////////////////////////////////////////////////////
<System.Runtime.InteropServices.StructLayout(System.Runtime.InteropServices.LayoutKind.Sequential)>
Public Class SHELLEXECUTEINFO
Public cbSize As Integer
Public fMask As Integer
Public hwnd As Integer
<System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.LPWStr),
Microsoft.VisualBasic.VBFixedString(255)> Public lpVerb As String = ""
<System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.LPWStr),
Microsoft.VisualBasic.VBFixedString(255)> Public lpFile As String = ""
<System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.LPWStr),
Microsoft.VisualBasic.VBFixedString(255)> Public lpParameters As String = ""
<System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.LPWStr),
Microsoft.VisualBasic.VBFixedString(255)> Public lpDirectory As String = ""
Public nShow As Integer
Public hInstApp As Integer
Public lpIDList As Integer
Public lpClass As String
Public hkeyClass As Integer
Public dwHotKey As Integer
Public hIcon As Integer
Public hProcess As Integer

Private Const SW_SHOW As Integer = 5
Private Const SEE_MASK_INVOKEIDLIST As Integer = &HC
Private Declare Auto Function ShellExecuteEX Lib "shell32.dll" Alias
"ShellExecuteEx" (ByVal SEI As SHELLEXECUTEINFO) As Integer

Public Shared Sub ShowPropertiesDialog(ByVal Path As String)
If System.IO.File.Exists(Path) Or System.IO.Directory.Exists(Path)
Then
Dim shInfo As New SHELLEXECUTEINFO
shInfo.cbSize =
System.Runtime.InteropServices.Marshal.SizeOf(GetType(SHELLEXECUTEINFO))
shInfo.lpFile = Path
shInfo.nShow = SW_SHOW
shInfo.fMask = SEE_MASK_INVOKEIDLIST
shInfo.lpVerb = "properties"
ShellExecuteEX(shInfo)
End If
End Sub
End Class
 
yxq said:
Hello,
The code below can popup the property dialog of a file, it works
well on XP,
Vista 32bit, but it will not work on Vista 64bit, how to correct it?
i have
tried to change integer to intptr, but not work yet, thank you.
Click to expand...

That's what I almost suggested: Intptr. Where is your version using IntPtr?
Not all Integers must be Intptrs, only "handles". If I see it right, it's
- hwnd
- hInstApp
- hkeyClass
- hIcon
- hProcess

I haven't checked the rest...


Private Declare Auto Function ShellExecuteEX Lib "shell32.dll"
Alias
"ShellExecuteEx" (ByVal SEI As SHELLEXECUTEINFO) As Integer
Click to expand...

Isn't it ByRef and As Boolean (not Integer)?

I have no experience in this but what did you set as the target platform for
the application in the project properties? 64-Bit?


Armin
 
yxq said:
The code below can popup the property dialog of a file, it works well on
XP, Vista 32bit, but it will not work on Vista 64bit, how to correct it? i
have tried to change integer to intptr, but not work yet, thank you.

//////////////////////////////////////////////////////
<System.Runtime.InteropServices.StructLayout(System.Runtime.InteropServices.LayoutKind.Sequential)>
Public Class SHELLEXECUTEINFO
Public cbSize As Integer
Public fMask As Integer
Public hwnd As Integer
Click to expand...

=> 'Public hwnd As IntPtr'. Note that 'IntPtr' is a 32-bit type on 32-bit
systems and a 64-bit type on 64-bit systems.
<System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.LPWStr),
Microsoft.VisualBasic.VBFixedString(255)> Public lpVerb As String = ""

<System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.LPWStr),
Microsoft.VisualBasic.VBFixedString(255)> Public lpFile As String = ""

<System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.LPWStr),
Microsoft.VisualBasic.VBFixedString(255)> Public lpParameters As String =
""

<System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.LPWStr),
Microsoft.VisualBasic.VBFixedString(255)> Public lpDirectory As String =
""
Click to expand...

You do not need fixed strings here. In addition, you can remove the
'MarshalAs' attribute in order to make the function call succeed on Windows
ANSI systems.
Public hInstApp As Integer
Click to expand...

=> 'As IntPtr'.
Public lpIDList As Integer
Click to expand...

=> 'As IntPtr'.
Public hkeyClass As Integer
Click to expand...

=> 'As IntPtr'
Public hIcon As Integer
Click to expand...

=> 'As IntPtr'.
Public hProcess As Integer
Click to expand...

=> 'As IntPtr'
Private Declare Auto Function ShellExecuteEX Lib "shell32.dll" Alias
"ShellExecuteEx" (ByVal SEI As SHELLEXECUTEINFO) As Integer
Click to expand...

=> 'ByRef lpExecInfo As SHELLEXECUTEINFO'.

The type of the return value should be 'Boolean', not 'Integer'.
 
I have tested the code below, it works well both 32 and 64 bit, thank you
very much.

//////////////////////////////////////////////////////////////////////////////////////////////
<System.Runtime.InteropServices.StructLayout(System.Runtime.InteropServices.LayoutKind.Sequential)>
Public Class SHELLEXECUTEINFO
Private cbSize As Integer
Private fMask As Integer
Private hwnd As IntPtr
<System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.LPWStr),
Microsoft.VisualBasic.VBFixedString(255)> Private lpVerb As String = ""
<System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.LPWStr),
Microsoft.VisualBasic.VBFixedString(255)> Private lpFile As String = ""
<System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.LPWStr),
Microsoft.VisualBasic.VBFixedString(255)> Private lpParameters As String =
""
<System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.LPWStr),
Microsoft.VisualBasic.VBFixedString(255)> Private lpDirectory As String = ""
Private nShow As Integer
Private hInstApp As IntPtr
Private lpIDList As IntPtr
Private lpClass As String
Private hkeyClass As IntPtr
Private dwHotKey As Integer
Private hIcon As IntPtr
Private hProcess As IntPtr

Private Const SW_SHOW As Integer = 5
Private Const SEE_MASK_INVOKEIDLIST As Integer = &HC
Private Declare Auto Function ShellExecuteEX Lib "shell32.dll" Alias
"ShellExecuteEx" (ByVal lpExecInfo As SHELLEXECUTEINFO) As Boolean

Public Shared Sub ShowPropertiesDialog(ByVal Path As String)
If System.IO.File.Exists(Path) Or System.IO.Directory.Exists(Path)
Then
Dim shInfo As New SHELLEXECUTEINFO
shInfo.cbSize =
System.Runtime.InteropServices.Marshal.SizeOf(GetType(SHELLEXECUTEINFO))
shInfo.lpFile = Path
shInfo.nShow = SW_SHOW
shInfo.fMask = SEE_MASK_INVOKEIDLIST
shInfo.lpVerb = "properties"
ShellExecuteEX(shInfo)
End If
End Sub
End Class
 
Back
Top