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
Version imprimable
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) :
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.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)
voici une solution à ce problème :
avec la procédure LanceShellExecute :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)
Ami calmant, J.P ;)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)
Bonjour,
Avec ce code:
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.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)
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 ?