Um einem bestimmten Ordner in Windows XP oder auch Vista einen Hintergrund (Bild) und ein Icon zu verpassen,
gibt es keine besondere Systemeinstellung, mit der man das machen könnte. Mit VB ist das aber möglich.
Hierfür wird die Datei "desktop.ini" im Ordner erstellt, die dann die Ordereinstellungen ändert.
Dafür müssen aber die Ordnereinstellungen auf "System" und die von "desktop.ini" auf "System" und "Versteckt" gesetzt werden, sonst funktioniert es nicht.
gibt es keine besondere Systemeinstellung, mit der man das machen könnte. Mit VB ist das aber möglich.
Hierfür wird die Datei "desktop.ini" im Ordner erstellt, die dann die Ordereinstellungen ändert.
Dafür müssen aber die Ordnereinstellungen auf "System" und die von "desktop.ini" auf "System" und "Versteckt" gesetzt werden, sonst funktioniert es nicht.
VB.NET-Quellcode
- Public Class Form1
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- 'Hier die Variablen für die Ordnereinstellungen:
- 'Beispielverzeichnis:
- Dim Directory As String = "C:\Beispielordner"
- 'Das Icon für den Ordner:
- Dim Icon As String = "C:\Beispiel.ico"
- 'Der Icon-Index:
- Dim IIndex As Integer = 0
- 'Das Hintergrundbild:
- Dim Background As String = "C:\Beispiel.jpg"
- 'Die Schriftfarbe des Ordners (Dateien):
- Dim IconArea_TextColor As String = "0x00000000"
- 'Die Ordnereigenschaften auf "System" setzen:
- My.Computer.FileSystem.GetDirectoryInfo(Directory).Attributes = IO.FileAttributes.System
- Using RTF As New RichTextBox
- With RTF
- .AppendText("[.ShellClassInfo]" & ChrW(10))
- .AppendText("IconFile=" & Icon & ChrW(10))
- .AppendText("IconIndex=" & CStr(IIndex) & ChrW(10))
- .AppendText("" & ChrW(10))
- .AppendText("[ExtShellFolderViews]" & ChrW(10))
- .AppendText("{BE098140-A513-11D0-A3A4-00C04FD706EC}={BE098140-A513-11D0-A3A4-00C04FD706EC}" & ChrW(10))
- .AppendText("" & ChrW(10))
- .AppendText("[{BE098140-A513-11D0-A3A4-00C04FD706EC}]" & ChrW(10))
- .AppendText("Attributes=1" & ChrW(10))
- .AppendText("IconArea_Image=" & Background & ChrW(10))
- .AppendText("IconArea_Text=" & IconArea_TextColor)
- End With
- 'Die "desktop.ini" erstellen:
- RTF.SaveFile(Directory & "\desktop.ini", RichTextBoxStreamType.PlainText)
- End Using
- 'Die Dateieigenschaften der "desktop.ini" auf "System" und "Versteckt" setzen (XOR):
- My.Computer.FileSystem.GetFileInfo(Directory & "\desktop.ini").Attributes = IO.FileAttributes.System Xor IO.FileAttributes.Hidden
- End Sub
- End Class
wintoolz.de
Benutze auch du Ecosia
- wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passwörten
- wintoolz.CodeGallery - Datenbank für Codebeispiele veschiedener Programmiersprachen
- wintoolz.Haushaltsbuch - Dient zum Auflisten der Aktivitäten ihrer Bankkonten
Benutze auch du Ecosia