AW: Buchstaben ohne Tastatur eingeben - Formular?
27.01.2011 22:36:22
Josef
Hallo Lutz,
für Win64 hat sich der Aufruf geändert, so sollte es auf 32 und 64-Bit laufen.
Du musst nur schauen, ob der Pfad zur Datei stimmt.
#If win64 Then
Private Declare PtrSafe 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
#Else
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
#End If
Private Sub CommandButton1_Click()
Dim n As Long
n = ShellExecute(Application.hwnd, "open", "C:\Windows\System32\osk.exe", "", "", 4)
End Sub
Gruß Sepp