Versteckte Ordner einblenden_ausblenden ?

[Vader]

hallo

wenn ich meine versteckten ordner wieder einblenden will, muß ich immer die gleiche prozedure in den explorer und dann auf ordneroptionen usw. durchführen das nervt mich, gibst da irgend einen code dafür, wo ich das mit einen buttonclick ausführen könnte ?
mfg vader

[Zacherl]

Extras -> Ordneroptionen -> Ansicht -> Alle Dateien und Ordner anzeigen und danach einfach auf "Für alle übernehmen" klicken.

[KingIR]

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


Zum Problem:
Registry: HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Explorer\Advanced\Hidden (DWORD-Wert, 2 --> aus, 1 --> an); ohne Gewähr.
Evtl. musst du noch eine Nachricht mit HWND_BROADCAST senden, damit die Änderungen wirksam werden, musst du mal ausprobieren

[Vader]

ich glaube ihr habt mich falsch verstanden, wie ich das mache im explorer weiß ich

Zitat:

Extras -> Ordneroptionen -> Ansicht -> Alle Dateien und Ordner anzeigen und danach einfach auf "Für alle übernehmen" klicken.

ich möchte das mit delphicode ausführen !!!
mfg vader

[Vader]

hallo hab da was aber das funktoniert nur teilweise,

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',0);
      regist.free; 
    end;


procedure TForm1.Button2Click(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',1); 
      regist.free; 
    end;

ausblenden geht aber einblenden nicht mehr ?

mfg vader

[Olli]

Zitat von Vader:

hallo hab da was aber das funktoniert nur teilweise,

[...]

ausblenden geht aber einblenden nicht mehr ?

Wurde oben schon erwähnt

Zitat von KingIR:

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

Schon ausprobiert?

[zer00]

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

[Vader]

hallo olli

du schreibst

Zitat:

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

wie geht das ?
mfg vader

[Olli]

Zitat von Vader:

wie geht das ?

Theoretisch über WM_SETTINGSCHANGE (direkt in der DP)

[Vader]

hallo olli,

hab mir das angeschaut, aber da blicke ich nicht durch wie ich das ausprogrammieren könnte ??
mfg vader