SetHotkey(((scAlt or scCtrl) Shr 5) or Word('Z'));
ce qui donne : Ctrl + Alt + Z
Voilà tu as le choix ... :-)
@+
Cirec
DRJEROME
Messages postés436Date d'inscriptionjeudi 9 janvier 2003StatutMembreDernière intervention 5 février 2015 3 sept. 2006 à 12:16
j'ai essayé 1618 (càd $0652) avec un code à moi (qui créé ou transforme les ".lnk" déjà créés), ça marche
je n'ai pas encore essayé sur ton code mais ça devrait être bon
essaie aussi de déclarer le Filename et tout ce qui touche au pwidechar ainsi :
Filename : pwidechar (sauf si ce n'est pas possible pour des raisons techniques de composants, d'Edit ou autre...) ça t'éviteras le "PWChar"... mais c'est un détail
A+
DRJEROME
Messages postés436Date d'inscriptionjeudi 9 janvier 2003StatutMembreDernière intervention 5 février 2015 3 sept. 2006 à 11:37
Salut beau Julio bronzé par ses vacances d'août
j'avais travaillé sur les raccourcis,si je ne me trompe pas :
5 sept. 2006 à 12:25
je confirme les propos de DrJérome ...
j'ajouterai juste ceci :
Déclarée dans l'unité CommCtrl
const
{$EXTERNALSYM HOTKEYF_SHIFT}
HOTKEYF_SHIFT = $01;
{$EXTERNALSYM HOTKEYF_CONTROL}
HOTKEYF_CONTROL = $02;
{$EXTERNALSYM HOTKEYF_ALT}
HOTKEYF_ALT = $04;
{$EXTERNALSYM HOTKEYF_EXT}
HOTKEYF_EXT = $08;
SetHotkey(((HOTKEYF_ALT or HOTKEYF_SHIFT) Shl 8) or Word('A'));
ce qui donne : Maj + Alt + A
par contre je n'ai jamais réussi à créer un raccourci avec HOTKEYF_EXT
où alors
Déclarée dans l'unité Classes :
{ TShortCut special values }
scShift = $2000;
scCtrl = $4000;
scAlt = $8000;
scNone = 0;
SetHotkey(((scAlt or scCtrl) Shr 5) or Word('Z'));
ce qui donne : Ctrl + Alt + Z
Voilà tu as le choix ... :-)
@+
Cirec
3 sept. 2006 à 12:16
je n'ai pas encore essayé sur ton code mais ça devrait être bon
essaie aussi de déclarer le Filename et tout ce qui touche au pwidechar ainsi :
Filename : pwidechar (sauf si ce n'est pas possible pour des raisons techniques de composants, d'Edit ou autre...) ça t'éviteras le "PWChar"... mais c'est un détail
A+
3 sept. 2006 à 11:37
j'avais travaillé sur les raccourcis,si je ne me trompe pas :
dans le sethotkey je pense que :
SHIFT = $1
CONTROL = $2
ALT = $4
EXT = $8
SHIFT+CONTROL = $3
ALT+SHIFT = $5
CONTROL+ALT = $6
CONTROL+ALT+SHIFT = $7
par exemple : CTRL+ALT+R pseudo( $06 (CONTROL+ALT) + 'R')
pseudo($06+ord('R'))
=pseudo($06+$52)
concrétement :
=($06 x $100)+ $52
=$0652
j'ai pas retesté depuis longtemps, je le ferai quand j'aurai un moment, si entre temps tu essaies... tu me diras si ça marche
et si ça marche pas... désolé... c'est peut-être alors dans un autre cadre de programmation que je l'avais utilisé