Discussion :

[mourad1987]

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

[jurassic pork]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[heslouis]

Bonjour,

Avec ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?