Terkadang, kita ingin menambahkan pintasan ke program kita. Tentu saja, setelah program diinstal, kita dapat melakukannya dengan mengklik file yang dapat dieksekusi dari program kita, klik kanan dan pilih Tambahkan pintasan desktop mengimplementasikannya melalui pemrograman. Kita dapat memanggil fungsi API untuk mencapai hal ini. Kode sumber diberikan di bawah ini:
Fungsi Deklarasi Pribadi fCreateShellLink Lib vb5stkit.DLL (ByVal _
lpstrFolderName Sebagai String, ByVal lpstrLinkName Sebagai String, ByVal _
lpstrLinkPath Sebagai String, ByVal lpstrLinkArgs Sebagai String) Selamanya
Sub Pribadi MakeShortCuts()
Redupkan lKembalikan Selama
Redupkan MyPath Sebagai String
Redupkan Nama Saya Sebagai String
MyPath = Aplikasi.Path
NamaSaya = Nama Aplikasi.EXE
'Tambahkan ke desktop
lKembali = fCreateShellLink(../../Desktop, _
Pintasan ke Net Timer, MyPath & / & MyName, )
'Tambahkan ke grup startup
lReturn = fCreateShellLink(/start, Pintasan ke Net Timer, _
Jalur Saya & / & Nama Saya, )
Akhiri Sub
Bagaimana? Ini sangat sederhana, bukan?