vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2019
 
zurück
Rubrik: System/Windows · Sonstiges   |   VB-Versionen: VB4, VB5, VB604.03.01
Papierkorb umbenennen

Der nachfolgende Tipp zeigt, wie man die Bezeichnung des Windows-Papierkorbs per VB-Code ändern kann.

Autor:   Heinz PrelleBewertung:     [ Jetzt bewerten ]Views:  15.675 
www.visual-basic5.deSystem:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10 Beispielprojekt auf CD 

Der nachfolgende Tipp zeigt, wie man die Bezeichnung des Windows-Papierkorbs per VB-Code ändern kann. Hierbei wird der Eintrag direkt in der Windows-Registrierdatenbank geändert. Den Eintrag für den Papierkorb findet man im Schlüssel HKEY_CLASSES_ROOT\CLSID unter dem Wert {645FF040-5081-101B-9F08-00AA002F954E}.

Analog zum Ändern der Papierkorb-Bezeichnung lassen sich so auch andere Standard-Bezeichnungen ändern. Hier ein paar Beispiele:

Papierkorb{645FF040-5081-101B-9F08-00AA002F954E}
Arbeitsplatz{20D04FE0-3AEA-1069-A2D8-08002B30309D}
Systemsteuerung{21EC2020-3AEA-1069-A2DD-08002B30309D}
Netzwerkumgebung{208D2C60-3AEA-1069-A2D7-08002B30309D}

' Beispiel: Papierkorb in der Registrierdatenbank umbenennen.
' Hinweis:
' Lassen Sie den Registrierungseditor paralell zu diesem Programm
' laufen, um das Resultat nach erfolgreicher Umbenennung durch
' Drücken der F5 Taste zu verfolgen.

Um das Resultat auf dem Desktop zu sehen ist ein Neustart des Systems erforderlich.

' zunächst die benötigten API-Deklarationen
Private Declare Function RegSetValueEx Lib "advapi32.DLL" _
  Alias "RegSetValueExA" ( _
  ByVal Hkey As Long, _
  ByVal lpValueName As String, _
  ByVal Reserved As Long, _
  ByVal dwType As Long, _
  lpData As Any, _
  ByVal cbData As Long) As Long
 
Private Declare Function RegCreateKey Lib "advapi32.DLL" _
  Alias "RegCreateKeyA" ( _
  ByVal Hkey As Long, _
  ByVal lpSubKey As String, _
  phkResult As Long) As Long
 
Private Declare Function RegCloseKey Lib "advapi32.DLL" ( _
  ByVal Hkey As Long) As Long
 
Private Declare Function ExitWindowsEx Lib "user32" ( _
  ByVal uFlags As Long, _
  ByVal dwReserved As Long) As Long
 
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
 
Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const REG_DWORD = 4
Private Const REG_SZ = 1
 
Private Sub fSaveNewName(Hkey As Long, sPath As String, _
  sValue As String, sData As String)
 
  Dim lKey As Long
  Dim lRet As Long
 
  lRet = RegCreateKey(Hkey, sPath, lKey)
  lRet = RegSetValueEx(lKey, sValue, 0, REG_SZ, _
    ByVal sData, Len(sData))
  lRet = RegCloseKey(lKey)
End Sub
 
 
' Neue Bezeichnung
Dim sText As String
 
sText = InputBox("Neue Bezeichnung für den Papierkorbes", _
  "Papierkorb...")
 
If sText <> "" Then
  fSaveNewName HKEY_CLASSES_ROOT, _
    "CLSID\{645FF040-5081-101B-9F08-00AA002F954E}", _
    (pre), sText
End If

Dieser Tipp wurde bereits 15.675 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Neue Diskussion eröffnen

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2019 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel