pcworld online logo

Visual Basic’de Windows 95 kısayollarının kullanımı

VB’yi kullanarak Windows 95’in özelliklerinden biri olan Kısayol yaratma işlemini kolayca yapabilirsiniz. Tek ihtiyacınız Visual Basic’in kurulum kit’inde bulunan STKIT432.DLL isimli dosya. Formunuzdan bağımsız bir modüle aşağıdaki satırı girdikten sonra siz de kendi kısayollarınızı yaratabilirsiniz.

Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName as String ByVal lpstrLinkName as String ByVal lpstrLinkPath as String ByVal lpstrLinkArgs as String ) As Long

İlk parametre kısayolun nerede oluşturulacağını belirler, ikinci parametre kısayolun isminin ne olacağını, üçüncü parametre ise kısayolu oluşturulacak dosyanın klasörü ve adını taşır. Dördüncü parametrenin ne işe yaradığını henüz bulamadık.

Örneğin DIZIN klasöründe bulunan PCWORLD.EXE isimli bir dosyaya masaüstünde "PC World En Büyük" isimli bir kısayol oluşturmak istiyoruz, aşğıdaki kod satırını kullanırız:

iLong = fCreateShellLink("..\..\Desktop", "PC World En Büyük", "C:\DIZIN\PCWORLD.EXE","")