OSK.EXE unter Win8 ( Win7 ?) [erledigt]

[AUGE_OHR]

hi,

ich habe mit diesem Code Probleme unter Win8 (vermutlich auch Win 7 )

Code: Alles auswählen

PROCEDURE MAIN
   RUNSHELL( "", "OSK.EXE" , .T. )
RETURN

das ergibt dann

------------------------------------------------------------------------------
Xbase++ Version : Xbase++ (R) Version 1.90.355
Betriebssystem : Windows 7 06.02 Build 09200
------------------------------------------------------------------------------
oError:args :
-> VALTYPE: C VALUE:
-> VALTYPE: C VALUE: OSK.EXE
-> VALTYPE: L VALUE: .T.
oError:canDefault : J
oError:canRetry : J
oError:canSubstitute: N
oError:cargo : NIL
oError:description : Betriebsystemfehler
oError:filename :
oError:genCode : 40
oError:operation : RunShell
oError:osCode : 740 -> höhere Rechte erforderlich
oError:severity : 2
oError:subCode : 4
oError:subSystem : BASE
oError:thread : 1
oError:tries : 1
------------------------------------------------------------------------------
CALLSTACK:
------------------------------------------------------------------------------
Aufgerufen von MAIN(2)

hm ... aber da liegt doch auch Notepad.exe, Calc.exe usw die ich per Runshell() aktivieren kann ... und normal in der CMD geht es ja ...

... und wie bekommt der User nun die Bildschirmtastatur ohne OSK.EXE zu tippen ?

[Herbert]

Hallo Jimmy
Da Xbase nur 32-bit erstellt, muss eventuell auch osk 32 bit sein. Vermutlich musst du das osk in dein Programmverzeichnis kopieren. Oder gar ein 32-bit osk suchen.

[AUGE_OHR]

Da Xbase nur 32-bit erstellt, muss eventuell auch osk 32 bit sein. Vermutlich musst du das osk in dein Programmverzeichnis kopieren. Oder gar ein 32-bit osk suchen.

ich habe es auch so mit

Code: Alles auswählen

cRoot := GETENV( "SYSTEMROOT" )
RUNSHELL( "", cRoot+"\system32\"+cAction , .T. )

also auf das 32bit Verzeichnis probiert ... nix
... aber alle anderen *.EXE kann ich ja ansprechen ... nur nicht das OSK.EXE per RunShell()

Die Idee das OSK.EXE ins Verzeichnis zu kopieren ist gut und das "müsste" ja gehen ... aber probiert es doch mit dem Dreizeiler selbst mal aus ...

[satmax]

Hallo Jimmy,

ich habe mit Runshell() das gleiche Problem, was aber bei mir funktioniert ist:

Code: Alles auswählen

  TDRUNSHELL( "OSK.EXE")

[AUGE_OHR]

ich habe mit Runshell() das gleiche Problem, was aber bei mir funktioniert ist:

Code: Alles auswählen

  TDRUNSHELL( "OSK.EXE")

ok, Danke ... es liegt also nicht an mir

du bringst mich gerade auf eine Idee ... JA ich kann es mit ShellExecuteA() starten
hm ... was ist dann mit RunShell() los ?

[AUGE_OHR]

man sagte mir das z.b. bei Tablet-PC schon vor dem Login die Bildschirm Tastatur aktive sein kann.

es gibt wohl für den Aufruf von OSK.EXE ein "spezielles Recht" was Runshell() wohl nicht "kennt" wenn es eine neue Instanz startet -> 740 -> fehlende Rechte.
hingegen ist der Aufruf aus dem Explorer oder per ShellExecuteA() mit den Rechten des angemeldeten User versehen und deshalb zulässig.

[DelUser01]

Hallo Jimmy

habe das gerade getestet:

Code: Alles auswählen

RunShell( "/C START osk.exe" )

damit startet die Bildschirmtastatur ohne Probleme.

Windows 8 64-Bit

[brandelh]

OSK kann ich bei hier bei Win7 auch starten (Suchfeld links unten und keine Admin Rechte)

[AUGE_OHR]

Code: Alles auswählen

RunShell( "/C START osk.exe" )

JA ... damit wird auch eine neue Instanz gestartet.

[AUGE_OHR]

OSK kann ich bei hier bei Win7 auch starten (Suchfeld links unten und keine Admin Rechte)

JA ... es ging nur um die Frage warum bei der Syntax

Code: Alles auswählen

RUNSHELL( "", "OSK.EXE" , .T. )

das "mehr" Rechte haben wollte ...

[Hans Zethofer]

Wie könnte man aus Alaska heraus die Instanz wieder killen (schließen)?

[AUGE_OHR]

Wie könnte man aus Alaska heraus die Instanz wieder killen (schließen)?

meinst du etwa so was :

Code: Alles auswählen

#include "DLL.CH"
#define WM_CLOSE                        0x0010
#define WM_QUIT                         0x0012

PROCEDURE MAIN
LOCAL nHwnd := DllCall( "User32.dll", DLL_STDCALL, "FindWindowA", 0, "Bildschirmtastatur")

   IF nHwnd > 0
      DllCall( "User32.dll", DLL_STDCALL, "SendMessageA", nHwnd, WM_CLOSE, 0, 0 )
   ENDIF
RETURN

[Hans Zethofer]

Ja - Danke
werde es gleich mal ausprobieren

[Hans Zethofer]

geht nicht
Bildschirmtastatur bleibt am Desktop eingeblendet

Code: Alles auswählen

nX:=DllCall( "User32.dll", DLL_STDCALL, "SendMessageA", nHwnd, WM_CLOSE, 0, 0 )

dieser Call gibt ein 0 zurück - ist das korrekt?

[AUGE_OHR]

geht nicht
Bildschirmtastatur bleibt am Desktop eingeblendet

Code: Alles auswählen

nX:=DllCall( "User32.dll", DLL_STDCALL, "SendMessageA", nHwnd, WM_CLOSE, 0, 0 )

dieser Call gibt ein 0 zurück - ist das korrekt?

... und schon wieder taucht ein "User-Rechte" Problem auf.

Code: Alles auswählen

#include "DLL.CH"
#define WM_CLOSE       0x0010
#define WM_QUIT        0x0012
#define WM_SYSCOMMAND  0x0112
#define SC_CLOSE 		0xF060

PROCEDURE MAIN
LOCAL nHwnd := DllCall( "User32.dll", DLL_STDCALL, "FindWindowA", 0, "Bildschirmtastatur")
LOCAL nRet := 0

   IF nHwnd > 0
// hier fehlen die Rechte 
*     DllCall( "User32.dll", DLL_STDCALL, "SendMessageA", nHwnd, WM_QUIT, 0, 0 )
*     DllCall( "User32.dll", DLL_STDCALL, "PostMessageA", nHwnd, WM_CLOSE, 0, 0 )
*     DllCall( "Kernel32.dll", DLL_STDCALL, "TerminateProcess", nHwnd,@nRet)
// das geht auch als User unter Windows 8.x
     DllCall( "User32.dll", DLL_STDCALL, "SendMessageA", nHwnd,WM_SYSCOMMAND, SC_CLOSE,0 )
   ELSE
      ALERT("Error "+STR(nHwnd))
   ENDIF
RETURN

[Hans Zethofer]

Unter Win7 prof SP1 32 Bit geht diese Variante =D>

Danke