ออกแบบไอคอนโฟลเดอร์ส่วนบุคคลด้วย Visual Basic

ผู้เขียน：Eve Cole เวลาอัปเดต：2025-01-19 11:36:01

ละทิ้งไอคอนเริ่มต้นของ Windows และปล่อยให้ไดเร็กทอรีที่โปรแกรมของคุณตั้งอยู่มี FolderIcon ส่วนตัว! จริงๆ แล้ว มันง่ายมากที่จะทำ จริงๆ แล้ว คุณต้องการไฟล์ Desktop.ini เพียงไฟล์เดียวเท่านั้น ฉันจะอธิบายจากสองด้านด้านล่างนี้

1. วิธีการด้วยตนเอง:

ขั้นแรก สร้างไฟล์ Desktop.ini ในโฟลเดอร์ที่ต้องการเปลี่ยนแปลง ตัวอย่างมีดังนี้:

->[.ShellClassInfo]

ยืนยันFileOp=0

InfoTip=โฟลเดอร์ของฉันเอง

ดัชนีไอคอน=0

IconFile=MyFolder.ico->

อธิบาย:

พารามิเตอร์ ConfirmFileOp ถูกตั้งค่าเป็น 0 - เพื่อป้องกันไม่ให้คำเตือน "คุณกำลังลบไดเร็กทอรีระบบ" ที่ปรากฏขึ้นเมื่อผู้ใช้ย้ายหรือลบโฟลเดอร์นี้

พารามิเตอร์ IconFile ระบุตำแหน่งของไฟล์ไอคอนที่จะเปลี่ยนแปลง ซึ่งสามารถเป็นไฟล์ Icon, Bmp, exe หรือ dll ไฟล์ไอคอนในตัวอย่างข้างต้นยังอยู่ในไดเร็กทอรีเดียวกัน

พารามิเตอร์ IconIndex สามารถระบุดัชนีของไฟล์ได้ หากไฟล์ไอคอนเป็นไฟล์ไอคอน IconIndex จะถูกตั้งค่าเป็น 0

พารามิเตอร์ InfoTip ใช้เพื่อตั้งค่าคำแนะนำเครื่องมือของโฟลเดอร์นี้ใน Windows

ถัดไปเปิด CMD (พร้อมรับคำสั่ง) แล้วป้อน:

->attrib si:/MyFolder->

i:/MyFolder หมายถึงเส้นทางของไดเร็กทอรีที่ฉันต้องการเปลี่ยนไอคอน การดำเนินการนี้ทำให้โฟลเดอร์ของคุณเป็นโฟลเดอร์ระบบ

ตกลง รูปแบบของไดเร็กทอรีมีการเปลี่ยนแปลงหลังจากการประมวลผลด้วยตนเอง

2. วิธีการเขียนโปรแกรม:

วิธีนี้ดำเนินการโดยใช้ VB ซึ่งฉันชอบ และปรับใช้ได้ง่ายไม่แพ้กัน

จำเป็นต้องใช้ฟังก์ชัน API เพียงสองฟังก์ชันเท่านั้น โดยฟังก์ชันหนึ่งใช้เพื่อดำเนินการสร้างไฟล์ Ini และฟังก์ชันของอีกฟังก์ชันเทียบเท่ากับ attrib s ในโหมดแมนนวล

->ตัวเลือกที่ชัดเจน

PRivateDeclareFunctionWritePrivateProfileStringLib "kernel32" นามแฝง "WritePrivateProfileStringA" (ByVallpapplicationNameAsString, ByVallpKeyNameAsAny, ByVallpStringAsAny, ByVallpFileNameAsString) AsLong

PrivateDeclareFunctionPathMakeSystemFolderLib "shlwapi.dll" นามแฝง "PathMakeSystemFolderA" (ByValpszPathAsString) AsLong

ส่วนตัวSubForm_Load()

'ขั้นตอนต่อไปนี้ใช้เพื่อสร้างไฟล์ Desktop.ini

'เมื่อไม่มีไฟล์ ini ไฟล์ ini จะถูกสร้างขึ้นเอง

WritePrivateProfileString".ShellClassInfo", "ConfirmFileOp", "0", App.Path&"/desktop.ini"

WritePrivateProfileString".ShellClassInfo", "InfoTip", "โฟลเดอร์ของฉันเปลี่ยนไปด้วยเหตุนี้",App.Path&"/desktop.ini"

WritePrivateProfileString".ShellClassInfo", "IconIndex", "0", App.Path&"/desktop.ini"

WritePrivateProfileString".ShellClassInfo", "IconFile", "MyFolder.ico", App.Path&"/desktop.ini"

'ทำให้โฟลเดอร์เป็นโฟลเดอร์ระบบ

PathMakeSystemFolderApp.Path

สิ้นสุดย่อย ->

สิ่งที่ต้องการคำอธิบายเพิ่มเติมคือ:

->WritePrivateProfileString".ShellClassInfo", "IconFile", "MyFolder.ico", App.Path&"/desktop.ini"->

สามารถเปลี่ยนเป็น:

->WritePrivateProfileString".ShellClassInfo", "IconFile", App.EXEName&".exe", App.Path&"/desktop.ini"->

หากคุณใช้ไอคอนของหน้าต่างหลัก ดัชนีของไอคอนของโปรแกรมที่คอมไพล์ VB จะเป็น 0 เช่นกัน -