LNK
Résolu
sisi231
Messages postés
207
Date d'inscription
mercredi 5 mars 2003
Statut
Membre
Dernière intervention
29 mars 2013
-
8 mai 2006 à 13:55
sisi231 Messages postés 207 Date d'inscription mercredi 5 mars 2003 Statut Membre Dernière intervention 29 mars 2013 - 13 mai 2006 à 12:16
sisi231 Messages postés 207 Date d'inscription mercredi 5 mars 2003 Statut Membre Dernière intervention 29 mars 2013 - 13 mai 2006 à 12:16
A voir également:
- Shelllink
- Lnk 1104 - Forum C / C++ / C++.NET
- LINK : fatal error LNK1104: cannot open file "nafxcwd.lib" - Forum C / C++ / C++.NET
- Lnk 2001 - Forum C++ & C++ .NET
- LNK1104 : cannot open file "C:\Program.obj" - Forum C / C++ / C++.NET
- Error LNK2001: unresolved external symbol __imp__ntohs@4 ✓ - Forum C / C++ / C++.NET
3 réponses
Cirec
Messages postés
3833
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2022
50
9 mai 2006 à 11:10
9 mai 2006 à 11:10
Salut,
regarde la source de Mauricioelle t'aidera certainement
<HR>
n'oubliez pas de cliquer sur Réponse Acceptée
si elle vous convient
<HR>
@+
Cirec
regarde la source de Mauricioelle t'aidera certainement
<HR>
n'oubliez pas de cliquer sur Réponse Acceptée
si elle vous convient
<HR>
@+
Cirec
esigvb
Messages postés
24
Date d'inscription
mercredi 16 mars 2005
Statut
Membre
Dernière intervention
25 mars 2009
10 mai 2006 à 14:49
10 mai 2006 à 14:49
Bonjour,
Comme te le dit Cirec regarde la source de Mauricio.
Voici le code simplifié pour toi du raccourci LNK:
procedure CreerRacourci(Repertoire_depart, Repertoire_final, Description : string);
var ShellLink : IShellLink;
begin
If UpperCase(extractFileExt(Repertoire_final)) <> '.LNK' Then Repertoire_final := Repertoire_final+'.lnk';
ShellLink := CreateComObject(CLSID_ShellLink) as IShellLink;
ShellLink.SetDescription(PAnsiChar(Description));
ShellLink.SetPath(PAnsiChar(Repertoire_depart));
ShellLink.SetShowCmd(SW_SHOW);
(ShellLink as IpersistFile).Save(StringToOleStr(Repertoire_final), true);
end;
Et voici le raccourci d'une page HTML:
ShellExecute(0, nil, 'IEXPLORE.EXE', pchar(Chemin_internet), '',SW_SHOWNORMAL);
@+
Esigvb
Comme te le dit Cirec regarde la source de Mauricio.
Voici le code simplifié pour toi du raccourci LNK:
procedure CreerRacourci(Repertoire_depart, Repertoire_final, Description : string);
var ShellLink : IShellLink;
begin
If UpperCase(extractFileExt(Repertoire_final)) <> '.LNK' Then Repertoire_final := Repertoire_final+'.lnk';
ShellLink := CreateComObject(CLSID_ShellLink) as IShellLink;
ShellLink.SetDescription(PAnsiChar(Description));
ShellLink.SetPath(PAnsiChar(Repertoire_depart));
ShellLink.SetShowCmd(SW_SHOW);
(ShellLink as IpersistFile).Save(StringToOleStr(Repertoire_final), true);
end;
Et voici le raccourci d'une page HTML:
ShellExecute(0, nil, 'IEXPLORE.EXE', pchar(Chemin_internet), '',SW_SHOWNORMAL);
@+
Esigvb
sisi231
Messages postés
207
Date d'inscription
mercredi 5 mars 2003
Statut
Membre
Dernière intervention
29 mars 2013
5
13 mai 2006 à 12:16
13 mai 2006 à 12:16
Merci.
SISI231
SISI231
