IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Lazarus Pascal Discussion :

Problème de raccourci Windows


Sujet :

Lazarus Pascal

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Avatar de sematimo
    Profil pro
    Inscrit en
    Février 2009
    Messages
    332
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2009
    Messages : 332
    Par défaut Problème de raccourci Windows
    Bonjour à tous
    J'ai créé une petite appli pour créer des raccourcis dans la barre de tache de windows.
    L'appli crée bien le raccourci mais l'icône n'apparait pas dans la barre de tache, même après un redémarrage.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
     
    procedure TForm1.CreerRacourci();
     var ShellLink : IShellLink;
       PathDestin: string;
    begin
      PathDestin:=GetEnvironmentVariable('USERPROFILE')+'\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\';
      ShellLink := CreateComObject(CLSID_ShellLink) as IShellLink;
      ShellLink.SetPath(PAnsiChar(Edit_exe.text));
      ShellLink.SetArguments(PAnsiChar(Edit_Params.text));
      ShellLink.SetWorkingDirectory(PAnsiChar(Edit_Dossier_Travail.text));
      ShellLink.SetDescription(PAnsiChar(Edit_Description.text));
      ShellLink.SetIconLocation(PAnsiChar(Edit_exe.text), 0);
     
      (ShellLink as IpersistFile).Save(StringToOleStr(PathDestin+Edit_nom.text), true);
    end;
    Edit_exe contient le chemin de l'application.
    Edit_param optionnel.
    Edit_dossier_travail contient le dossier de travail de l'application.
    Edit_description contient la description du raccourci.
    Edit_nom contient le nom du raccourci avec l'extension lnk.
    L'icône par défaut est l'icône numéro 0 de l'application.

  2. #2
    Membre chevronné

    Homme Profil pro
    Retraité
    Inscrit en
    Avril 2012
    Messages
    181
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Vaucluse (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Retraité
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : Avril 2012
    Messages : 181
    Par défaut
    Bonjour,

    Des infos dur le contenu de la barre des tâches se trouvent à la clé de registre :

    KEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Taskband

    Par contre, j'ignore comment mettre à jour cette clé.

    bb

  3. #3
    Membre éclairé
    Avatar de sematimo
    Profil pro
    Inscrit en
    Février 2009
    Messages
    332
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2009
    Messages : 332
    Par défaut
    oui, j'ai déjà regardé cette clé, mais je n'ai pas la moindre idée de ce qu'elle représente.

  4. #4
    Membre chevronné

    Homme Profil pro
    Retraité
    Inscrit en
    Avril 2012
    Messages
    181
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Vaucluse (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Retraité
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : Avril 2012
    Messages : 181
    Par défaut
    Bonjour,

    J'ai trouvé ça pour savoir ce qui se trame dans cette clé, mais ce n'est pas du Pascal, je n'ai pas le courage de le décortiquer pour comprendre comment ça fonctionne. De plus je ne conseille pas trop de bricoler directement ce genre de clés dans le registre.

    bb

  5. #5
    Membre éclairé
    Avatar de sematimo
    Profil pro
    Inscrit en
    Février 2009
    Messages
    332
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2009
    Messages : 332
    Par défaut
    bonjour
    je ne vais pas trop bricoler le registre.
    j'ai fais un essai avec innosetup, même résultat, le raccourci est bien créé mais l'icône ne s'affiche pas dans la barre de tache.
    Apparament depuis windows 10, le fait de coller un raccourci dans 'C:\Users\serge\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar' ne fonctionne plus.

  6. #6
    Membre éclairé
    Avatar de sematimo
    Profil pro
    Inscrit en
    Février 2009
    Messages
    332
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2009
    Messages : 332
    Par défaut
    Bonjour
    En fait il faut modifier un fichier xml.
    Le fichier en question doit être exporté à partir du powershell avec la commande 'Export-StartLayout -Path C:\W10_Layout.xml'.
    Ensuite modifier le fichier et le réenregistrer avec la commande 'Import-StartLayout -LayoutPath C:\W10_Layout.xml -MountPath C:\'.
    https://learn.microsoft.com/fr-fr/wi...ows-10-taskbar

Discussions similaires

  1. Problème touche de raccourci Windows+E
    Par john stedd dans le forum Windows 7
    Réponses: 8
    Dernier message: 23/07/2010, 11h35
  2. problème raccourcis windows+e
    Par moi89 dans le forum Windows XP
    Réponses: 4
    Dernier message: 15/01/2009, 23h24
  3. Problème de raccourcis BCB6 Pro
    Par onap dans le forum C++Builder
    Réponses: 1
    Dernier message: 29/11/2004, 11h16
  4. [GCC] Problème d'installation windows
    Par gl0be dans le forum Autres éditeurs
    Réponses: 2
    Dernier message: 13/09/2004, 11h26
  5. Problème executable et windows
    Par mulot49 dans le forum MFC
    Réponses: 9
    Dernier message: 17/06/2004, 09h34

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo