Denne artikkelen viser hvordan du legger en link på skrivebordet til din application.Adding en link (LNK) til skrivebordet katalogen er ganske enkel. Først Vivil må opprette en com objekt for å kunne lage vår INK file.Then vi er nødt til å få vår desktop katalogen, som vi vil få usingthe WIN32 API-kall SHGetSpecialFolderLocation () siden desktopdirectory er en Windows spesiell katalog. Jeg har gått over gettingspecial mappeplasseringer i et tidligere tips, så dette bør være kjent toyou. Vi skal bruke Delphi CreateComObject () -funksjonen sammen med theWIN32 API kaller SHGetSpecialFolderLocation () og SHGetPathFromIDList () med PItemIDList arkivstruktur [CODE] prosedyre TForm1.Button1Click (Sender: TObject);. Var tmpObject: IUnknown; tmpSLink: IShellLink; tmpPFile: IPersistFile; PIDL: PItemIDList; StartupDirectory: array [0..MAX_PATH] av Char; StartupFilename: String; LinkFilename: WideString; begynne StartupFilename: = 'c: \\ windows \\ notepad.exe'; tmpObject: = CreateComObject (CLSID_ShellLink); tmpSLink: = tmpObject som IShellLink; tmpPFile: = tmpObject som IPersistFile {tmpSLink.SetArguments ('ADD kommandolinjeparametere HER');} 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), USANN); end; Anmeldelser