, hoe je op het Bureau toegevoegd aan de toepassing van een schakel.,, nog een link (ink) - gids is heel eenvoudig.Ten eerste, vereist de invoering van een com - document kan creëren we. Ink.,, en dan nemen we onze tafel catalogus, maken we gebruik van de API, shgetspecialfolderlocation () sinds de desktop, catalogus is een speciale Gids voor de ramen.Ik heb meer dan krijgen, met name in een positie op de voorkant van de MAP, dus dit moet bekend zijn, weet je.We zullen het gebruik van Delphi createcomobject () met de functie, shgetspecialfolderlocation (API) en shgetpathfromidlist (), en pitemidlist structuur, opgenomen [code].,,,,,, dat er een incident programma draaien. Het lettertype (afzender: TObject);,, var, tmpobject:IUnknown;,,,, tmppfile tmpslink:IShellLink IPersistFile; PIDL:pitemidlist;:,,,,, startupdirectory: [...] 0 - max_path karakter;,, startupfilename: touw, linkfilename: widestring;,,,,,,, startupfilename:= "C: ramen, toch."; tmpobject:= createcomobject (,,,, clsid_shelllink); tmpslink:= tmpobject, tmppfile:=, voor IShellLink; tmpobject voor IPersistFile;,, (tmpslinK.setarguments ('add commando hier ");}, tmpslink. SETPATH (pchar (startupfilename);,, tmpslink. Setworkingdirectory (pchar (terugkeer van bepaalde documenten van de route (startupfilename))); SHGetSpecialFolderLocation (0,,,,,,,,, csidl_desktopdirectory, PIDL); shgetpathfromidlist (PIDL,,,,, startupdirectory); linkfilename:= startupdirectory +, mynotepad. Ink";,, tmppfile. Red (pwchar (linkfilename), valse); aan het einde van,,,;