Modifier la cible d'une icône de bureau (mais pas l'icône "image")?

Question

Comment puis-je changer la cible d'une icône de bureau (mais pas l'icône affichée) avec un "langage de programmation" (vbscript ou autre chose)?

par exemple:

C: \ Program Files \ Mozilla Firefox \ firefox.exe

(avec firefox-logo-icon-image)

à

E: \ start_firefox.bat

(avec le même écran icône, et non l'icône « chauve-souris »)

Answer 1

Voici un exemple VBScript:

' ChangeDesktopLink.vbs 

' Uncomment the proper constant: 
' Const DESKTOP_DIR = &H19 ' Common desktop folder, e.g. C:\Documents and Settings\All Users\Desktop 
Const DESKTOP_DIR = &H10 ' User's desktop folder, e.g. C:\Documents and Settings\<username>\Desktop 

Set oShell = CreateObject("Shell.Application") 
With oShell.Namespace(DESKTOP_DIR).ParseName("Firefox.lnk").GetLink 
    .Path = "E:\start_firefox.bat" 
    .Save 
End With 

Answer 2

Depuis l'icône affichée par Windows (je suppose que vous utilisez Windows depuis que vous mentionnez \ Program Files \ et un .bat fichier) dépend de l'extension de fichier (BAT dans ce cas) et que l'extension de fichier détermine quelle icône est affichée, cela ne peut être fait sans réassocier une application particulière avec cette extension particulière (ne recommande pas). La meilleure chose que je peux penser est de remplacer le lien par un exécutable qui utilise l'icône de l'application que vous essayez de "usurper".

Answer 3

// Assume you have the path to the shortcut in pszFilename. 

CComPtr<IPersistFile> persist_file; 
HRESULT hr = CoCreateInstance(CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER, IID_IPersistFile, (LPVOID*)&persist_file); 
if (SUCCEEDED(hr)) { 
    hr = persist_file->Load(pszFilename, 0); 
} 

CComPtr<IShellLink> shell_link; 
if (SUCCEEDED(hr)) { 
    hr = persist_file->QueryInterface(IID_IShellLink, (void**)&shell_link); 
} 

// Assume the new target you want to set is in pszNewTargetPath. 

if (SUCCEEDED(hr)) { 
    hr = shell_link->SetPath(pszNewTargetPath); 
} 

if (SUCCEEDED(hr)) { 
    hr = persist_file->Save(pszFilename, true); 
}