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:

Zitat von Vader

hallo hab da was aber das funktoniert nur teilweise,

[...]

ausblenden geht aber einblenden nicht mehr ?

Wurde oben schon erwähnt

Zitat:

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:

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:

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