Versteckte Ordner einblenden_ausblenden ?

[KingIR]

Zitat:

Zitat von zer00

Zitat:

Zitat von KingIR

Unsinn @ FB, das "Für alle übernehmen" gilt für Spalten, Ansicht (Liste, Details, ...), Symbolleisten und so. Nicht für die Einstellungen dadrunter ;)

Da muss ich dir jetzt aber wiedersprechen, die Einstellungen darunter werden auch für alle Ordner übernommen.

grz zer00

Naja, das sind aber zwei verschiedene Paar Schuhe. Der "Für alle übernehmen" Button hat erstmal *nichts* mit den Einstellungen dadrunter zu tun. (Obwohl die natürlich auch für alle Ordner gelten).

@OP:
Schau mal, ich hab da 1 und 2 als Werte für den Registry-Eintrag angegeben, du verwendest aber 0 und 1 :P

[Vader]

hallo KingIR


das mit 1 und 2 habe ich schon erledigt geht trotzdem nicht, brauche das

Zitat:

Evtl. musst du noch eine Nachricht mit HWND_BROADCAST senden, damit die Änderungen wirksam werden, musst du mal ausprobieren

aber da blicke ich nicht durch wie das geht ?
mfg vader

[KingIR]

Oh, ok :)

Eigentlich sollte dann folgende Zeile reichen (einfügen nachdem der Registry-Wert gespeichert wurde):

Delphi-Quellcode:

Windows.SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0);

:drunken:

[Vader]

hallo

hab das so probiert, " ausblenden "

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 var regist: TRegistry;
    begin 
      regist := TRegistry.Create;
      regist.RootKey := HKEY_CURRENT_USER; 
      regist.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced',true);
      regist.WriteInteger('Hidden',2);
      Windows.SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0);
      regist.free; 
    end;

geht aber nicht !!

mfg vader

[Vader]

warum funktioniert dieser code nicht ?
mfg vader

[Vader]

hat keiner einen rat, warum dieser code nicht funktioniert ?

versteckte ordner ausblenden !

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var regist: TRegistry; 
    begin 
      regist := TRegistry.Create; 
      regist.RootKey := HKEY_CURRENT_USER; 
      regist.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced',true); 
      regist.WriteInteger('Hidden',2); 
      Windows.SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0); 
      regist.free; 
    end;

mfg vader

[Trödel]

Der Code funktioniert einwandfrei. Nur der Explorer interessiert sich nicht für diese Einstellung, es sei denn Du liest die Registry neu ein.

[Vader]

hallo,

Zitat:

es sei denn Du liest die Registry neu ein

und wie geht das ?
mfg vader

[marabu]

Hallo.

Warum die Registry neu einlesen, wenn der Windows Explorer seine Anzeige aktualisieren soll? Bei mir geht das:

Delphi-Quellcode:

procedure ShowHiddenFiles(enabled: Boolean);
const
  REG_KEY = '\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced';
begin
  with TRegistry.Create do
  begin
    LazyWrite := false;
    if OpenKey(REG_KEY, False) then
    begin
      WriteInteger('Hidden', 2 - Ord(enabled));
      CloseKey;
    end;
    Free;
  end;
  SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, Integer(PChar(REG_KEY)));
end;

Allerdings muss man danach das Aktualisierungszeitintervall des Explorers abwarten oder selbst aktualisieren.

Grüße vom marabu

[Vader]

hallo marabu,

muß ich deine procedure ShowHiddenFiles(enabled: Boolean); noch extra aufrufen

wie zb. mit

Delphi-Quellcode:

ShowHiddenFiles(true);

oder kann ich deinen code in ein buttonclickereigniss schreiben ?

mfg vader