Shell para windows 7 de 64 Bits
Publicado por HAF (178 intervenciones) el 25/10/2012 10:59:18
Si ha tenido problemas para ejecutar shell en windows 7 de 64 bits aqui os dejo una clase (la he probado perfectamente en WPF)
Y para Llamarlo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Imports System
Imports System.DiagnosticsImports System.IOImports System.Runtime.InteropServices
Imports System.ThreadingPublic Class Ejecuta32
<DllImport("kernel32.dll", SetLastError:=True)> _
Private Shared Function Wow64DisableWow64FsRedirection(ByRef ptr As IntPtr) As Boolean
End Function
<DllImport("kernel32.dll", SetLastError:=True)> _
Public Shared Function Wow64RevertWow64FsRedirection(ptr As IntPtr) As Boolean
End Function
<DllImport("user32.dll", CharSet:=CharSet.Auto)> _
Private Shared Function SendMessage(hWnd As IntPtr, Msg As UInt32, wParam As IntPtr, lParam As IntPtr) As IntPtr
End Function
Private Const WM_SYSCOMMAND As UInt32 = &H112
Private Const SC_RESTORE As UInt32 = &HF120
'Private Const OnScreenKeyboardExe As String = "osk.exe"
<STAThread> _
Private Shared Sub Main(args As String())
Dim p As Process() = Process.GetProcessesByName(Path.GetFileNameWithoutExtension(Funcion_a_ejecutar1))
If p.Length = 0 Then
' we must start osk from an MTA thread
If Thread.CurrentThread.GetApartmentState() = ApartmentState.STA Then
Dim start As New ThreadStart(AddressOf StartOsk)
Dim thread__1 As New Thread(start)
thread__1.SetApartmentState(ApartmentState.MTA)
thread__1.Start()
thread__1.Join()
Else
StartOsk()
End If
Else
SendMessage(p(0).MainWindowHandle, WM_SYSCOMMAND, New IntPtr(SC_RESTORE), New IntPtr(0))
End If
End Sub
Public Shared Sub StartOsk()
Dim ptr As New IntPtr()
Dim sucessfullyDisabledWow64Redirect As Boolean = False ' Disable x64 directory virtualization if we're on x64,
' otherwise keyboard launch will fail.
If System.Environment.Is64BitOperatingSystem Then
sucessfullyDisabledWow64Redirect = Wow64DisableWow64FsRedirection(ptr)
End If
Dim psi As New ProcessStartInfo()
psi.FileName = Funcion_a_ejecutar1
psi.UseShellExecute = True
Try
Process.Start(psi)
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
If System.Environment.Is64BitOperatingSystem Then
If sucessfullyDisabledWow64Redirect Then
Wow64RevertWow64FsRedirection(ptr)
End If
End If
End Sub
Private Shared Funcion_a_ejecutar1 As String
Public Shared Property Funcion_a_ejecutar As String
Get
Return Funcion_a_ejecutar1
End Get
Set(ByVal Value As String)
Funcion_a_ejecutar1 = ValueEnd Set
End Property
End Class
Y para Llamarlo:
1
2
Ejecuta32.Funcion_a_ejecutar = "Osk.Exe" ' para ejecutar teclado virtual
Ejecuta32.StartOsk()
Valora esta pregunta
1