17-10-12, 07:08 PM
كاتب الموضوع : 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]