title image


Smiley Re: Datei-Verknüpfungen per Delphi erstellen
uses ComObj,ActiveX,ShlObj;procedure Do_Link;var IObject : IUnknown; ILink : IShellLink; IFile : IPersistFile; p : PItemIDList; s : array[0..MAX_PATH] of char; Target : string; LinkFile : WideString;beginfillchar(s,sizeof(s),0);// als Beispiel hier der Autostart-Ordner// welche es noch gibt, kann man in der Hilfe nachlesen// z.B. für den Desktop nimmt man CSIDL_DESKTOPDIRECTORY SHGetSpecialFolderLocation(Application.Handle,CSIDL_STARTUP,p); SHGetPathFromIDList(p,@s);Target := ExpandFileName(Application.ExeName); IObject := CreateComObject(CLSID_ShellLink); ILink := IObject as IShellLink; IFile := IObject as IPersistFile; with ILink do begin SetPath(PChar(Target)); SetWorkingDirectory(PChar(ExtractFilePath(Target))); end; LinkFile := s+'\OnlineTool.lnk'; IFile.Save(PWChar(LinkFile),false);end;
Gruß Deddy
Wenn Dein Programm nicht läuft, vergib die Versionsnummer 1.0

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: