Discussion :

[aityahia]

salut

j'essai de créer un racourci avec la commande IShellLink

tous va bien mais j'ai quelque chose de tres bizzar , je veut créer un racourci avec un parametre alors le caractère " /" et remplacer par "\" lors de la créeation du raccourci

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
16
17
18
19
20
if SHGetSpecialFolderLocation(0, CSIDL_DESKTOPDIRECTORY, IdList)= NOERROR  then
   begin
     MyDatabasePath :='C:\Documents and Settings\AIT YAHIA IDIR\Bureau\IDIR\';
     SHGetPathFromIDList(IdList, Path);
     ShellLink:=CreateComObject(CLSID_ShellLink) as IShellLink;
 
     ShellLink.SetDescription('Microsoft ACCESS créer avec mon prog');
     Chemin:=MyPath+'MSACCESS.EXE" "'+MyDatabasePath+'Essai.mdb"/WRKGRP "'+MyDatabasePath+'Sécurisé.mdw';
     ShellLink.SetPath(PAnsiChar(Chemin));
     ShellLink.SetWorkingDirectory(PAnsiChar(MyDatabasePath));
     ShellLink.SetDescription(PAnsiChar('Ouverture d''une table access sécuriser'));
     ShellLink.SetShowCmd(SW_SHOW);
 
     ShortCutPath:= String(Path)+ '\'+ 'Microsoft office Access'+ '.LNK';
     (ShellLink as IpersistFile).Save(StringToOleStr(ShortCutPath), true);
        ShowMEssage('access a été trouvez un racourci a été installer sur votre bureau');
   end;
  end
   else
    ShowMEssage('Access n''a pas été trouvez');

[Philippe Gormand]

Voici le routines que j'utilise. Si cela peut t'aider :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
{-----------------------------------------------------------------}
{                        Créer un raccourci                       }
{-----------------------------------------------------------------}
Procedure CreFicLien(FicSource, FicRaccourci : String);
Var
  PersistFile : IPersistFile;
  ShellLink   : IShellLink;
  RaccourciWC : Array[0..MAX_PATH] of WideChar;
Begin
  If UpperCase(extractFileExt(FicRaccourci))<>'.LNK' Then
    FicRaccourci:=FicRaccourci+'.lnk';
  ShellLink:=CreateComObject(CLSID_ShellLink) as IShellLink;
  ShellLink.QueryInterface(IPersistFile, PersistFile);
  ShellLink.SetDescription('');
  ShellLink.SetPath(PChar(FicSource));
  ShellLink.SetShowCmd(SW_SHOW);
  MultiByteToWideChar(CP_ACP, 0, PChar(FicRaccourci), -1, @RaccourciWC, MAX_PATH);
  PersistFile.Save(RaccourciWC, true);
End;
{-----------------------------------------------------------------}
{                     Supprimer un raccourci                      }
{-----------------------------------------------------------------}
Procedure EffaceLien(Chemin, NomRaccourci : String);
Begin
   If Chemin[Length(Chemin)] <> '\' Then Chemin:=Chemin + '\';
   DeleteFile(Chemin + NomRaccourci + '.lnk');
End;
{-----------------------------------------------------------------}

A +

[aityahia]

ma procédure fonctionne corectement j'arrivent a créer mon raccourci mais lorsque j'essai de rajouter a la chaine le "/WRKGRP" devien "\WRKGRP"
ce qui engendre une erreur
je pense la converssion de string a PansiChar est pour quelque chose

[Philippe Gormand]

Effectivement, c'est bizard. Cela reassemble à une autocorrection.

Essais " /WRKGRP" plutôt que "/WRKGRP".