[R] Récupérer l'icone depuis FileCreateShortcut

[Sydneysyd]

Bonsoir,

La question peut paraitre evidente, mais je n'ai rien trouvé sur le forum

La fonction FileCreateShorcut permet de créer un raccourci, où l'on souhaite, ici sur le bureau

Code : Tout sélectionner

FileCreateShortcut("http://xxx.net", @DesktopDir & "\Mon raccourcis.html")

Mais j'aimerais récupérer l'icône d'IE, car je pourrais mettre le numéro, mais le souci est que ce numéro je ne le trouve pas sur 7, et je pense que ce ne sont pas les memes suivant les systeme d'exploitation
Donc l'idée est de récuperer l'icone du programme IE, qui lui ne bouge pas sur XP ou 7 je pense.

Mais je ne vois pas comment faire !

Merci d'avance pour vos réponses

Cdt

[jguinch]

Salut.
Tu peux regardé ce post, ça pourra peut-être t'orienter.

[Sydneysyd]

Bonjour,
Je regarde et relis le post, mais je n'arrive pas à comprendre...

Je trouve que les lignes de codes ont l'air un peu compliqué pour juste changer un icone sur un raccourci.

Je pensais à l'idée suivante :

Récupérer l'image de l'icone dans une variable, et la positionner ensuite dans la fonction FileCreateShortcut

Est-ce possible ?

Je suis obligé de passer par la base de registre ?

[mikell]

Ceci fonctionne sur mon minitel

Code : Tout sélectionner

Local $type = '.url'
Local $Ret = DllCall('shlwapi.dll', 'int', 'AssocQueryStringA', 'dword', 0, 'dword', 15, 'str', $type, 'str', 'open', 'str', '', 'dword*', 4096)
Local $split = StringSplit(FileGetLongName($Ret[5]), ",")
FileCreateShortcut("http://xxx.net", @DesktopDir & "\Mon raccourcis.html", "", "", "", $split[1], "", Number($split[2]))

$gui = GuiCreate("test", 100, 100)
GuiCtrlCreateIcon($split[1], Number($split[2]), 20, 20, 32, 32)
Guisetstate()
while GuiGetmsg()<>-3
wend

[jguinch]

En fait, tu veux juste mettre l'icône d'IE sur un raccourci ?
Pour l'icône d'IE, tu la trouves dans l'exécutable IE.

Code : Tout sélectionner

Local $url = "http://autoitscript.fr/forum/"
Local $iconFile = @ProgramFilesDir & "\Internet Explorer\iexplore.exe"
Local $iconNumber = 0

FileCreateShortcut(@ProgramFilesDir & "\Internet Explorer\iexplore.exe", @DesktopDir & "\IE.lnk", @ProgramFilesDir & "\Internet Explorer", $url, "", $iconFile, "", $iconNumber)

Est-ce que c'est ça que tu cherches à faire ?

[Sydneysyd]

lol
Oui c'est exactement cela que je cherchais ! ^^

Je vais tester de suite, et je vous dis si c'est ok

[Sydneysyd]

C'est parfait ! Merci beaucoup !

[Sydneysyd]

Salut,
Je reviens sur ce poste, car j'ai remarqué que le raccourci ne se dirige pas vers le site souhaité et j'ai beau essayé je n'y arrive pas !

Local $LNKFile = @DesktopDir & "\Ixbus Web.lnk"
Local $EXEFile = @ProgramFilesDir & "\Internet Explorer\iexplore.exe\" https://web.ixbus.net <= je sais c'est faux mais je me t quoi ? lol
Local $IcoFile = @tempdir & "\IXWAI\Icon_2.ico"

FileCreateShortcut($EXEFile, $LNKFile, "", "", "", $IcoFile) <= ici je ne vois pas où placer l'adresse par defaut...

[Sydneysyd]

trouvé ! sorry...

variable $url = monsite
et dans filecreateshortcut le placer en 4eme position...

[jguinch]

Sydneysyd, tu aurais quand même pu chercher un peu plus avant de poster ...

[Sydneysyd]

Oui

C'est pour ça que j'ai mis sorry