Ändern der Einstellung "Dialog zu Bestätigung anzeigen"

[Sliver]

hi

Über einen Rechtsklick auf den Papierkorb auf dem Dekstop --> Eigenschaften kann man die Option "Dialog zur Bestätigung des Löschvorgangs anzeigen" deaktivieren oder aktivieren. Mein Ziel ist es jetzt, diese Option in meine Delphi Projekt zu übernehmen.

Bei einer Änderung dieser Option wird folgender Registryeintrag geändert:
HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Explorer\ShellState

Bei dem Eintrag ShellState handelt sich um einen REG_BINARY Wert. Da in diesem Wert mehrere Optionen abgespeichert werden, hole ich jeweils den ganzen Wert, ändere die fünfte Stelle von #23 auf #27(dort befindet sich die Änderung für den Löschdialog) und speichere den Wert wieder ab. Dies funktioniert auch wunderbar, nur beim testen auf verschiedenen Computer musste ich feststellen, das sich nicht immer nur der Wert an der fünften Stelle ändert. Zudem sind die Werte nicht immer 23 und 27. Ich vermute nun, das es sicher eine WINDOWS API Funktion gibt oder eine andere Möglichkeit um dies zu realisieren, leider habe ich noch nichts gefunden und hoffe ihr habt mir eine Idee.

(Der API Befehl müsste nur auf Windows 2k/XP funktionieren.)

cu Sliver

[Steve]

Hi,

diese Einstellung kann zwar über SHGetSettings gelesen, scheinbar aber nicht gesetzt werden:

Zitat von MSDN:

The settings correspond more or less to the options in the View | Folder Options | View tab in Windows® Explorer (see Figure 4). Alas, there's no corresponding set function. Maybe that's because it would have to be called SHSetSettings, which sounds stupid.

Zitat, SHGetSettings

Gruß
Stephan

[Christian Seehase]

Moin Zusammen,

die gesuchte Funktion heisst

SHGetSetSettings

(ob GetSet nun weniger "stupid" klingt als Set alleine sei jetzt mal dahingestellt )

[Sliver]

Nach dieser Homepage sollte doch die Funktion SHGetSetSettings in der Shlobj Uses vorhanden sein. Leider finde ich dort nur die Funktion SHGetSettings.

Was ich auch noch komisch finde, ist, wenn ich SHGetSettings aufrufe und danach z. B. einen Dialog öffne, erscheint folgende Fehlermeldung

Code:

---------------------------
Benachrichtigung über Debugger-Problem
---------------------------
In Projekt Project1.exe trat ein Problem mit folgender Meldung auf: 'Zugriffsverletzung bei 0x00432f2c: Lesen von Adresse 0x00120000'. Prozess angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------

Wenn ich jetzt aber nur den Aufruf SHGetSettings ausklammere läuft alles normal.

[mumu]

in dem REG_BINARY wert wird alles immer bitweise (und nicht byteweise) gespeichert. du musst also genau wissen, welches bit für diese funktion verantwortlich ist und dieses dann entweder setzen oder nicht setzen...

[Sliver]

Delphi-Quellcode:

function regReadBinary(RootKey:Cardinal;OpenKey,ValueName:String;CanCreate:Boolean=False):String;
var
  Reg:TRegistry;
  s:String;
  i:Integer;
begin
  Reg:=TRegistry.Create;
  try
    Reg.RootKey:=RootKey;
    Reg.OpenKey(OpenKey,CanCreate);
    i:=Reg.GetDataSize(ValueName);
    SetLength(s,i);
    Reg.ReadBinaryData(ValueName,s[1],i);
  finally
    Reg.Free;
  end;
  Result:=s;
end;

Mit dieser Funktion lese ich den Wert in einen String ein. Nach deiner Erläuterung wird hier der REG_BINARY Wert Byteweise eingelesen, was sicher gut sein kann. Wie ist es aber dann möglich, den Wert in eine Variable Bitweise einzulesen?

[Christian Seehase]

Moin Sliver,

Zitat von Sliver:

Nach dieser Homepage sollte doch die Funktion SHGetSetSettings in der Shlobj Uses vorhanden sein. Leider finde ich dort nur die Funktion SHGetSettings.

ich weiss jetzt nicht, welche Seite Du meinst, allerdings kann es durchaus sein, dass die Funktion nicht in der SHLOBJ Unit enthalten ist, da es sie erst ab Windows 2000 gibt.
ggf. selber importieren.

Zitat von Sliver:

Wie ist es aber dann möglich, den Wert in eine Variable Bitweise einzulesen?

Direkt bitweise geht nicht, es müsste schon mindestens ein Byte sein, aber die Auswertung müsste u.U. bitweise erfolgen.

[Sliver]

Hab endlich wieder Zeit gefunden, mich diesem Thema zu widmen. Hab auch eine Lösung gefunden, die geht wie folgt.

Ich lese die Binäre Einträge wie oben in Strings ein. Danach nehm ich den ordinalen Wert jedes Zeichen und rechne ihn ins Binärsystem um. Danach kann ich das Bit setzen das ich will und wieder zurück speichern in die Registry. Funktioniert einwandfrei, aber ist ein bisschen umständlich und es gibt sichere bessere Lösungen.

[Christian Seehase]

Moin Sliver,

es empfiehlt sich allerdings meist den dokumentierten Weg zu gehen, da Du nicht wissen kannst, ob sich der Speicherort der Einstellung nicht ändert.
Schon mit einem Service Pack könnte das nämlich der Fall sein.

[Sliver]

Bis jetzt hat es zumind. noch keine Veränderungen zwischen Windows 2000 ohne Service Pack bis zu WinXP SP2 bei den Einträgen gegeben, die ich benötigte. Aber ich werde die Dinge schon noch umprogrogrammieren, wenn ich dazu Zeit hab und wenn es dann auch endlich funktioniert. Ich hoffe in Delphi 2005 ist dann die ShlObj Version 5.0 drin, als bis jetzt nur die Version 4.71. Dann sollte dann auch die Funktion SHGetSetStettings implementiert sein.
Gruss Sliver