Symbol auf dem desktop

Symbol auf dem desktop

Symbol auf dem desktop : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Dieser Artikel veranschaulicht, wie eine Verknüpfung auf dem Desktop zu Ihrer Anwendung hinzufügen.
Hinzufügen einer Verknüpfung (Lnk) in das desktop-Verzeichnis ist ziemlich einfach. Erste wir
benötigen zum Erstellen eines com-Objekts um unsere LNK-Datei erstellen können.
Dann müssen wir unsere desktop-Verzeichnis zu erhalten, die wir mit get wird
Die WIN32-API aufrufen, SHGetSpecialFolderLocation() seit dem desktop
Verzeichnis ist ein spezieller Windows-Verzeichnis. Ich habe über immer gegangen.
speziellen Ordner Standorte in einem früheren Tipp sollten dies vertraut zu sein
Sie. Verwenden wir Delphi CreateComObject()-Funktion zusammen mit der
Win32-API-Aufrufe, SHGetSpecialFolderLocation() und SHGetPathFromIDList()
mit der PItemIDList-Satzstruktur.
[CODE]
Prozedur TForm1.Button1Click(Sender: TObject);
var
TmpObject: IUnknown;
TmpSLink: IShellLink;
TmpPFile: IPersistFile;
PIDL: PItemIDList;
StartupDirectory: Array [0..MAX_PATH] char;
StartupFilename: String;
LinkFilename: WideString;

beginnen
StartupFilename: = 'c:\windows\notepad.exe';
TmpObject: = CreateComObject(CLSID_ShellLink);
TmpSLink: = TmpObject als IShellLink;
TmpPFile: = TmpObject als IPersistFile;
{tmpSLink.SetArguments ('ADD COMMAND LINE Parameter hier');}
tmpSLink.SetPath(pChar(StartupFilename));
tmpSLink.SetWorkingDirectory(pChar(ExtractFilePath(StartupFilename)));
SHGetSpecialFolderLocation (0,
CSIDL_DESKTOPDIRECTORY,
PIDL);
SHGetPathFromIDList (PIDL,
StartupDirectory);
LinkFilename: = StartupDirectory + '\MyNotepad.lnk';
tmpPFile.Save(pWChar(LinkFilename),FALSE);
Ende;