Versteckte Ordner einblenden_ausblenden ?

[marabu]

Hallo Vader,

in den event handler gehört nur der Code zur Ablaufsteuerung. Die eigentliche Funktionalität kapselt man in externen Funktionen. Dieses Vorgehen (best practice) erhöht die Wartbarkeit der Programme, aber du kannst es ruhig machen wie es dir gefällt.

Freundliche Grüße vom marabu

[Vader]

hallo marabu,

ich weiß nicht warum das bei mir nicht geht ???

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;


procedure TForm1.Button3Click(Sender: TObject);
begin
ShowHiddenFiles(true);
end;

mfg vader

[marabu]

Wie prüfst du denn den Erfolg deiner Bemühungen?

marabu

[Vader]

hallo,
wie meinst du das marabu ?
mfg vader

[marabu]

Du schreibst, dass es bei dir nicht geht. Woran merkst du das?

marabu

[Vader]

ja wenn ich den code ausführe, und dann den explorer öffne und nachschaue ob die versteckten ordner weg sind !
und die sind nicht weg !
mfg vader

[marabu]

Im Zweifelsfall musst du nach der Umschaltung des Flags in der Registry ein paarmal die Anzeige des Explorers über den Menüpunkt Ansicht - Aktualisieren neu aufbauen. Der Explorer reagiert nicht sofort auf diese Umstellung, obwohl der Broadcast abgesetzt wird. Zumindest in der Registry sollte das Flag geändert werden, was du in einem gleichzeitig geöffneten RegEdit-Fenster verfolgen kannst - auch hier nach dem Aktualisieren.

marabu

[Vader]

trotz aktualisieren geht es nicht, aber wenn es mit aktualisieren ginge wäre es schon wieder umständlich,ich wollte
das mit einen buttonclick erledigen !!
mfg vader

[Trödel]

Es funktioniert. Glaub es, nur der Explorer braucht nach dem öffnen komischerweise ca 1 Min, bis er die Änderung mit bekommt. Taste F5 hilft da auch nicht weiter, jedenfalls bei mir nicht.