, denne artikel viser, hvordan at tilføje et link på skrivebordet i din ansøgning.,, at tilføje et link (ink) til desktop - register er ret enkelt.først, vil vi nødt til at skabe en fælles objekt skal være i stand til at skabe vores. ink fil.,, så vi bliver nødt til at få vores desktop - register, som vi vil få med, win32 api til shgetspecialfolderlocation() siden desktopcomputere, er en særlig fortegnelse over vinduerne.jeg er gået over til at få særlig folder steder i en tidligere tip, så det bør være bekendt med, du.vi vil bruge delphis createcomobject() fungere sammen med den, win32 api - opkald shgetspecialfolderlocation() og shgetpathfromidlist(), med pitemidlist posternes struktur.,,, [kode],,, procedure tform1. button1click (afsender: tobject);,, var, tmpobject: iunknown;,,,, tmppfile tmpslink: ishelllink; - ipersistfile;,, pidl: pitemidlist;,, startupdirectory: system [0 - max_path] char,,, startupfilename: string,,, linkfilename: widestring;,,, begynder, startupfilename: = c: \\ vinduer. blok. exe;,, tmpobject: = createcomobject (clsid_shelllink);,, tmpslink: = tmpobject som ishelllink;,, tmppfile: = tmpobject som ipersistfile;,, (tmpslink.setarguments ('add kommandolinjen parametre her ')), tmpslink. setpath (pchar (startupfilename), tmpslink. setworkingdirectory (pchar (extractfilepath (startupfilename)), shgetspecialfolderlocation (0, csidl_desktopdirectory,,, pidl);,, shgetpathfromidlist (pidl,,, startupdirectory);,, linkfilename: = startupdirectory + «. mynotepad. ink.,, tmppfile. redde (pwchar (linkfilename), falske);,,,,