clavier virtuelle windev

Bonjours
mon clavier virtuelle de Windows 7 ne lance pas donc je crée un interface pop avec des bouton alphabet je chercher une solution pour connaitre champ sélectionnée pour affecte mes valeur de bouton et merci encore code pour bouton supprimer

bonjour,
on arrive à lancer le clavier virtuel sous une appli windev mais :
Si on est sous windows 7 64 bits et qu'on fabrique une appli 32 bits il faut faire comme cela (j'avais déjà mis ce code dans le forum) :

Code:

---

1 2 3 4 5

pointeurEntier est un entier système SI SysVersionWindows(sysProcesseur) = 64 ALORS AppelDLL32("kernel32.dll","Wow64DisableWow64FsRedirection",&pointeurEntier) LanceAppli("osk.exe") SI SysVersionWindows(sysProcesseur) = 64 ALORS AppelDLL32("kernel32.dll","Wow64RevertWow64FsRedirection",pointeurEntier)

---

je viens de m'apercevoir que le clavier ne se lance pas quand on est en mode test dans windev, par contre avec l'exécutable de l'application cela fonctionne.

voici une solution à ce problème :

Code:

---

1 2 3 4 5

pointeurEntier est un entier système SI SysVersionWindows(sysProcesseur) = 64 ALORS AppelDLL32("kernel32.dll","Wow64DisableWow64FsRedirection",&pointeurEntier) LanceShellexecute("osk.exe") SI SysVersionWindows(sysProcesseur) = 64 ALORS AppelDLL32("kernel32.dll","Wow64RevertWow64FsRedirection",pointeurEntier)

---

avec la procédure LanceShellExecute :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

PROCEDURE LanceShellexecute(NomFichier,parametre="") hWnd est entier //Handle fenêtre lpOperation est une chaîne ASCIIZ sur 200 = "open" lpFile est une chaîne ASCIIZ sur 200 = NomFichier lpParameters est une chaîne ASCIIZ sur 200 = parametre lpDirectory est une chaîne ASCIIZ sur 200 = "." nShowCmd est un entier = 0 // 1=normal , 0=caché   hWnd = Handle() //Récupère le handle   RENVOYER AppelDLL32("Shell32", "ShellExecuteA", hWnd, &lpOperation,&lpFile, &lpParameters, &lpDirectory, nShowCmd)

---

Ami calmant, J.P ;)

Bonjour,

Avec ce code:

Code:

---

1 2 3 4 5 6

pointeurEntier est un entier système SI SysVersionWindows(sysProcesseur) = 64 ALORS AppelDLL32("kernel32.dll","Wow64DisableWow64FsRedirection",&pointeurEntier) LanceAppli("osk.exe") SI SysVersionWindows(sysProcesseur) = 64 ALORS AppelDLL32("kernel32.dll","Wow64RevertWow64FsRedirection",pointeurEntier)

---

Contrairement à vous, depuis mon application WEBDEV le clavier se lance en mode test, par contre avec l'exécutable de l'application cela ne fonctionne pas.

Il ne m'est pas possible d'utiliser la version LanceShellExecute parce que la fonction Handle() n'est pas disponible avec WEBDEV.
Existe t-il une autre solution ?