CRÉER UN RACCOURCIS (.LNK)

cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 - 24 mars 2004 à 22:03
cs_PaTaTe Messages postés 2126 Date d'inscription mercredi 21 août 2002 Statut Contributeur Dernière intervention 19 février 2021 - 21 sept. 2004 à 21:23
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/21455-creer-un-raccourcis-lnk

cs_PaTaTe Messages postés 2126 Date d'inscription mercredi 21 août 2002 Statut Contributeur Dernière intervention 19 février 2021 2
21 sept. 2004 à 21:23
Appel a Microsoft EMPECHEZ L'UTILISATION DE FSO DANS VB ... CEST DE LA MERDE (© Jean Pirrer Coofe)

FSO ca fait dependre vos programmes de DLL supplémentaire, c'est extremement lent (c'est l'horreur ca)

Mais comme toujours c'est la facilité ...
cs_kehops Messages postés 25 Date d'inscription mercredi 26 mars 2003 Statut Membre Dernière intervention 20 mars 2007
1 juin 2004 à 14:55
Bonne source mais sa manque de commentaires... ;)
garfandgarf Messages postés 3 Date d'inscription mardi 6 avril 2004 Statut Membre Dernière intervention 15 avril 2004
15 avril 2004 à 16:46
Petite question, dans toutes les paramètres de ta procédure t'explique pas a quoi ca sert, et j'avoue n'pas maitriser beaucoup voire mm du tout donc si jpouvais savoir a quoi ca correspond ca serait sympa!
merci d'avance !
cs_windob Messages postés 225 Date d'inscription dimanche 19 octobre 2003 Statut Membre Dernière intervention 25 août 2008
27 mars 2004 à 11:04
bin dsl, mais il ya dix ans j'avais 4ans et merci masi j'avais deja trouvé tous seul
BruNews Messages postés 21040 Date d'inscription jeudi 23 janvier 2003 Statut Modérateur Dernière intervention 21 août 2019
27 mars 2004 à 10:54
Raccourci sur Bloc-notes dans ton dossier SendTo comme indique plus haut, ne rien interpreter mais faire tel que ecrit.
Pourtant simple, n'a pas change depuis bientot 10 ans (win95).

BruNews, Admin CS, MVP Visual C++
cs_csluikidikilest Messages postés 12 Date d'inscription mercredi 16 janvier 2002 Statut Membre Dernière intervention 18 juillet 2004
27 mars 2004 à 10:46
tu vas dans le répertoire C:\documents and settinges\'username'\send toet tu met ton raccourci ici.
cs_windob Messages postés 225 Date d'inscription dimanche 19 octobre 2003 Statut Membre Dernière intervention 25 août 2008
27 mars 2004 à 10:38
arrete EBArtSoft tu me fais fliper, et BruNews, comment tu fait pour ajouter un racourcis a ton menu envoyer vers ?
cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 9
26 mars 2004 à 23:31
windob> Ouai fait gaffe il commence a ramolir vers 14 ans puis a 25 il est completement liquide, j'en sait quelque chose !

:P

@+
BruNews Messages postés 21040 Date d'inscription jeudi 23 janvier 2003 Statut Modérateur Dernière intervention 21 août 2019
26 mars 2004 à 23:30
pas besoin de changer les extensions de fichier.
Dans ton dossier profile tu dois trouver un dossier 'SendTo', suffit d'y mettre un raccource de NotePad et tu pourras editer tout ce que tu voudras par un clic droit sur le fichier et 'envoyer vers' NotePad.

BruNews, Admin CS, MVP Visual C++
cs_windob Messages postés 225 Date d'inscription dimanche 19 octobre 2003 Statut Membre Dernière intervention 25 août 2008
26 mars 2004 à 23:26
put1 jy avais meme pas pensé, a 14 ans j'ai déja le cerveau qui ramoli
cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 9
26 mars 2004 à 18:22
windob> Ca c'est pas une excuse rien ne t'empeche de changer le .lnk en .txt et de l'ouvrir avec n'importe quel editeur !

(si tu ne sait pas comment renomer le lnk dans le gui windows essaie sous dos rename x y)

@+
cs_windob Messages postés 225 Date d'inscription dimanche 19 octobre 2003 Statut Membre Dernière intervention 25 août 2008
26 mars 2004 à 17:07
heu pour le format lnk ça me parait compliqué parceque ce n'est as lisible, avec un editeur hexa peut-etre, mais encore faudrait il réussir a l'ouvrir et on pas a ouvrir son fihiher cible car j'avais réussi mais je ne sait plus comment si qq1 a des idées ,...
cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 9
26 mars 2004 à 11:31
cs_csluikidikilest Messages postés 12 Date d'inscription mercredi 16 janvier 2002 Statut Membre Dernière intervention 18 juillet 2004
26 mars 2004 à 10:33
jmlucienvb Messages postés 129 Date d'inscription mercredi 24 septembre 2003 Statut Membre Dernière intervention 12 février 2009
25 mars 2004 à 08:18
Bon je recommence car ça n'a pas marché...
Si quelqu'un pouvait traduire en VB ce serait vraiment sympa...
Pour tous les "petits développeurs" que nous sommes
merci d'avance
BruNews Messages postés 21040 Date d'inscription jeudi 23 janvier 2003 Statut Modérateur Dernière intervention 21 août 2019
25 mars 2004 à 01:02
Salut EBArtSoft,
tu as la fonction CreateShortcut() qui fait un raccourci et d'ailleurs prog complet de test. Tu verras si tu peux traduire en VB, me semble inutile car serait mieux de fournir en dll mais bon chacun ses gouts.

#include <windows.h>
#include <shlobj.h>

char szappname[] = "Shortcut";

int __stdcall CreateShortcut(char* szflSrc, char* szLink, char *szTooltip)
{
IShellLink* psl;
HANDLE hheap;
WORD* pwsz;
IPersistFile* ppf;
int bOK;
char *c, *d;
if(CoCreateInstance(CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER, IID_IShellLink, (LPVOID*) &psl)) return 0;
hheap GetProcessHeap(); bOK 0;
if((pwsz (WORD*) HeapAlloc(hheap, 0, MAX_PATH*2)) 0) goto outPsl;
if(psl->QueryInterface(IID_IPersistFile, (LPVOID *) &ppf)) goto outHeap;
psl->SetPath(szflSrc); psl->SetDescription(szTooltip);
d (char*) pwsz; c szflSrc;
while(*d = *c++) d++;
bOK = 0;
while((*d != '\\') && (d > (char*) pwsz)) d--;
if(d <= (char*) pwsz) goto outHeap;
*d = 0;
psl->SetWorkingDirectory((char*) pwsz);
if(MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED, szLink, -1, pwsz, MAX_PATH))
bOK (ppf->Save(pwsz, TRUE) 0);
ppf->Release();
outHeap: HeapFree(hheap, 0, pwsz);
outPsl: psl->Release();
return bOK;
}

int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE, PSTR, int)
{
if(CoInitialize(NULL)) return 0;
if(!CreateShortcut("D:\\Sfmg\\AccesSFMG.doc", "D:\\AccesSFMG.lnk", "UN TEST"))
MessageBox(NULL, "Shortcut raté", szappname, MB_ICONEXCLAMATION);
CoUninitialize();
return 0;
}
cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 9
24 mars 2004 à 22:03
Encore un code basé sur un objet script !
peut être quelq'un connais le format des lnk ?
ce serais bien de le diffuser pour que enfin
on puisse créer un lien d'une façon honnete

@+
Rejoignez-nous