Gestion du son sous Win7

[Denis]

Les raccourcis de gestion du son ne marchent pas sous Win7. Moyen de lancer une 3.6.10 qui corrige ca rapidement ?
Merci XT, super taf !

[Xavier]

Oui le problème est connu, et a été corrigé dans The X-Tools 3.7.0 Alpha 9:

Windows Seven utilisant les raccourcis-clavier [Win + Haut], [Win + Bas], [Win + Gauche] et [Win + Droite] pour la fonction Aero Snap, il est devenu impossible pour The X-Tools de les utiliser pour le contrôle de Winamp. Ils sont donc modifiés en [Ctrl + Win + Haut], [Ctrl + Win + Bas], [Ctrl + Win + Gauche] et [Ctrl + Win + Droite]. Le volume est désormais géré par [Ctrl + Win + Inser], [Ctrl + Win + Suppr], [Ctrl + Win + PageUp] et [Ctrl + Win + PageDown]. La fonction d'arrêt de l'application devient [Ctrl + Win + Alt + Suppr]. (A terme il sera possible de définir ses propres raccourcis-clavier.)

Cependant, la version 3.7.0 étant bloquée pour cause de cryptage incompatible, il est peu probable qu'elle sorte rapidement.
Je vais donc regrouper les dernières corrections faites dans The X-Tools 3.7.0 Alpha 9 (sous Delphi 2009) et proposer une version The X-Tools 3.6.10 sous Delphi 5.
Les raccourcis-clavier listés plus haut te paraissent-ils ok ? (Rajout de Ctrl.)

[Denis]

Oui, très bien.
Pour la partie "choix des raccourcis", j'avais développé un module pour Cobra Organizer... Qui vérifiait la disponibilité des raccourcis avant de l'attribuer (pour éviter écrasements). Si ca t'intéresse...

[Xavier]

Oui ça m'intéresse, ce sera pour XT4. Merci.

[Denis]

Voici un extrait de Cobra Organizer, ce code est lancé dans la fenêtre des options, pour tenter de valider un changement de hotkey par l'utilisateur:

procedure TOptionsForm.ShowComboChange(Sender: TObject);
var
C:Char;
begin
//Trying to Register the HotKey. If error, then cancel the change and warn the user.
UnRegisterHotKey(MainForm.Handle,GlobalHotKeyAtom);
C:=(ShowCombo.Items[ShowCombo.ItemIndex])[1];
if not RegisterHotKey(MainForm.Handle,GlobalHotKeyAtom,MOD_WIN,Ord(C)) then
begin
GlobalIsDisplayingAModalWindow:=True;
Application.MessageBox(GetTranslatedMessage2(mShortcutReserved,C),GetTranslatedMessage(mError),MB_OK or MB_ICONERROR);
GlobalIsDisplayingAModalWindow:=False;
ShowCombo.ItemIndex:=ShowCombo.Items.IndexOf(LocalUserOptions.ReopenShortcut);
end;
UnRegisterHotKey(MainForm.Handle,GlobalHotKeyAtom);
RegisterHotKey(MainForm.Handle,GlobalHotKeyAtom,MOD_WIN,Ord(LocalUserOptions.ReopenShortcut));
end;