COMPOSANT : TDBPLINKMAKER CREEZ DES .LNK
DRJEROME
Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015
-
3 sept. 2006 à 11:37
Utilisateur anonyme - 5 sept. 2006 à 12:25
Utilisateur anonyme - 5 sept. 2006 à 12:25
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/39403-composant-tdbplinkmaker-creez-des-lnk
https://codes-sources.commentcamarche.net/source/39403-composant-tdbplinkmaker-creez-des-lnk
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é