[RaggiTech]

كاتب الموضوع : egyption-coder

كود تغيير الخلفية

كود :

Public Sub SetIconbac(ByVal Drivename As String, ByVal IconName As String)
If IO.File.Exists(IconName) = True Andalso IO.Path.GetExtension(IconName) = ".ico" Then
My.Computer.Registry.SetValue("hKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\" & Drivename & "\Defaulticon", "", IconName)
Else
MsgBox("[FONT=Tahoma]الملف غير موجود [/FONT]")

End If
End Sub

كود تغيير الأيكون

كود :

dim drivename as string
dim filename as string
If IO.File.Exists(IconFileName) = True And IO.Path.GetExtension(IconFileName) = ".ico" Then
My.Computer.Registry.SetValue("hKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\" & Drivename & "\Defaulticon", "", IconFileName)
Else
MsgBox("[FONT=Tahoma]الملف غير موجود [/FONT][SIZE=1][SIZE=3]")[/SIZE]
[SIZE=1]End If[/SIZE]
[/SIZE]