Icône sur le bureau


Cet article montre comment ajouter un lien sur le bureau de votre application.
l'Ajout d'un lien (lnk) au bureau répertoire est assez simple. Nous avons d'abord
vous devez créer un objet com pour être en mesure de créer des notre .lnk fichier.
Alors nous allons faire de notre bureau d'annuaire, ce qui nous permettra d'obtenir de l'aide
l'API WIN32 appel SHGetSpecialFolderLocation() depuis le bureau
répertoire est un Windows répertoire spécial. J'ai passé plus de se
dossier spécial endroits lors d'un précédent conseil donc ce devrait être familier à
vous. Nous serons à l'aide de Delphi CreateComObject() de la fonction ainsi que le
appels WIN32 API SHGetSpecialFolderLocation() et SHGetPathFromIDList()
avec la PItemIDList la structure de l'enregistrement.
[CODE]
procedure TForm1.Button1Click(Sender: TObject)
var
& nbsp & nbsp tmpObject : IUnknown
& nbsp & nbsp tmpSLink : IShellLink
& nbsp & nbsp tmpPFile : IPersistFile
& nbsp & nbsp PIDL : PItemIDList
& nbsp & nbsp StartupDirectory : array[0..MAX_PATH] de Char
& nbsp & nbsp StartupFilename : String
& nbsp & nbsp LinkFilename : WideString

begin
& nbsp & nbsp StartupFilename := 'c:\windows\notepad.exe'
& nbsp & nbsp tmpObject := CreateComObject(CLSID_ShellLink)
& nbsp & nbsp tmpSLink := tmpObject comme IShellLink
& nbsp & nbsp tmpPFile := tmpObject comme IPersistFile
{ tmpSLink.SetArguments ('AJOUTER des PARAMÈTRES de LIGNE de COMMANDE ICI') }
& nbsp & nbsp tmpSLink.SetPath(pChar(StartupFilename))
& nbsp & nbsp tmpSLink.SetWorkingDirectory(pChar(ExtractFilePath(StartupFilename)))
& nbsp & nbsp SHGetSpecialFolderLocation(0,
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp CSIDL_DESKTOPDIRECTORY,
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp PIDL)
& nbsp & nbsp SHGetPathFromIDList(PIDL,
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp StartupDirectory)
& nbsp & nbsp LinkFilename := StartupDirectory '\MyNotepad.lnk'
& nbsp & nbsp tmpPFile.Enregistrer(pWChar(LinkFilename),FALSE)
fin









Icone sur le bureau


Icone sur le bureau : Plusieurs milliers de conseils pour vous faciliter la vie.


Cet article montre comment ajouter un lien sur le bureau de votre application.
l'Ajout d'un lien (lnk) au bureau repertoire est assez simple. Nous avons d'abord
vous devez creer un objet com pour etre en mesure de creer des notre .lnk fichier.
Alors nous allons faire de notre bureau d'annuaire, ce qui nous permettra d'obtenir de l'aide
l'API WIN32 appel SHGetSpecialFolderLocation() depuis le bureau
repertoire est un Windows repertoire special. J'ai passe plus de se
dossier special endroits lors d'un precedent conseil donc ce devrait etre familier a
vous. Nous serons a l'aide de Delphi CreateComObject() de la fonction ainsi que le
appels WIN32 API SHGetSpecialFolderLocation() et SHGetPathFromIDList()
avec la PItemIDList la structure de l'enregistrement.
[CODE]
procedure TForm1.Button1Click(Sender: TObject)
var
& nbsp & nbsp tmpObject : IUnknown
& nbsp & nbsp tmpSLink : IShellLink
& nbsp & nbsp tmpPFile : IPersistFile
& nbsp & nbsp PIDL : PItemIDList
& nbsp & nbsp StartupDirectory : array[0..MAX_PATH] de Char
& nbsp & nbsp StartupFilename : String
& nbsp & nbsp LinkFilename : WideString

begin
& nbsp & nbsp StartupFilename := 'c:\windows\notepad.exe'
& nbsp & nbsp tmpObject := CreateComObject(CLSID_ShellLink)
& nbsp & nbsp tmpSLink := tmpObject comme IShellLink
& nbsp & nbsp tmpPFile := tmpObject comme IPersistFile
{ tmpSLink.SetArguments ('AJOUTER des PARAMETRES de LIGNE de COMMANDE ICI') }
& nbsp & nbsp tmpSLink.SetPath(pChar(StartupFilename))
& nbsp & nbsp tmpSLink.SetWorkingDirectory(pChar(ExtractFilePath(StartupFilename)))
& nbsp & nbsp SHGetSpecialFolderLocation(0,
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp CSIDL_DESKTOPDIRECTORY,
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp PIDL)
& nbsp & nbsp SHGetPathFromIDList(PIDL,
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp StartupDirectory)
& nbsp & nbsp LinkFilename := StartupDirectory '\MyNotepad.lnk'
& nbsp & nbsp tmpPFile.Enregistrer(pWChar(LinkFilename),FALSE)
fin


Icône sur le bureau

Icône sur le bureau : Plusieurs milliers de conseils pour vous faciliter la vie.
Recommander aux amis
  • gplus
  • pinterest

Messages récents

Commentaire

Laisser un commentaire

évaluation