COMPOSANT : TDBPLINKMAKER CREEZ DES .LNK

Signaler
Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015
-
Messages postés
3810
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
28 mai 2020
-
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

Messages postés
3810
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
28 mai 2020
29
Salut,
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
Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015

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+
Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015

Salut beau Julio bronzé par ses vacances d'août

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é