Hallo,
ich möchte das Arbeitsplatz Symbol auf dem Desktop ausblenden (
W2K). Dazu muss ein DWORD in die Registry geschrieben werden. Das TRegistry Objekt hat aber leider nur WriteInteger. Beim Kompilieren erhalte ich den Hinweis "Konstantenausdruck verletzt untere Grenzen". Funktionieren tut meine EXE, jedoch erhalte ich manchmal eine Fehlermeldung "Fehler bei der Bereichsüberprüfung", obwohl die im Compiler deaktiviert ist. Meine Frage nun: Wie kann ich noch ein DWORD in die Registry schreiben?
Zitat:
Bei Windows 2000 ist hierfür ein Eingriff in die Registry nötig. Unter:
Code:
Hkey_Current_User\Software\Classes\
CLSID\{20D04FE0-3AEA-1069-A2D8-8002B30309D}
muss ein neuer Unterschlüssel mit dem Namen "Shell-Folder" angelegt werden. In diesem neuen Schlüssel muss ein DWORD-Eintrag mit dem Namen "Attributes" erzeugt werden. Dieser Eintrag muss den hexadezimalen Wert "f0500174" bekommen. Nach aktualisieren des Desktops (mit "F5") ist das Arbeitsplatzsymbol verschwunden.
Hier mein Code:
Delphi-Quellcode:
MyPrg := TRegistry.Create;
MyPrg.Rootkey := HKEY_CURRENT_USER;
MyPrg.LazyWrite := false;
if cbShellFolder.Checked
then begin
try
if MyPrg.Openkey('
Software\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\ShellFolder', true)
then begin
try
MyPrg.WriteInteger('
Attributes', $f0500174);
except
Application.ProcessMessages;
end;
Application.ProcessMessages;
end;
finally
MyPrg.CloseKey;
end;
end else begin
try
if MyPrg.Openkey('
Software\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\ShellFolder', true)
then begin
MyPrg.DeleteValue('
Attributes');
Application.ProcessMessages;
end;
finally
MyPrg.CloseKey;
end;
end;
MyPrg.Free;
Grüsse,
Surfer