Entwickler-Ecke :: Thema anzeigen - "Versteckte Dateien anzeigen" Ein-/Aus- schalten??

Delete - Do 21.08.03 21:41

MSCH hat folgendes geschrieben:

der Schlüssel ist unter WinXP:
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]

"ShowSuperHidden"=dword:00000001 bzw. 0

Siehste, schon daneben. "Versteckte Dateien und Ordner" ist nämlich der Schlüssel "Hidden". Das, was du da geschrieben hast, ist die Einstellung "Geschützte und Systemdateien ausblenden". - btw: Auch ein guter Link zum Thema: wo kann ich was in der Registry machen: [url]http://www.regedit.com[/url]

bf109g.01 - Do 17.02.11 14:53

Hi, ich bin an dem selben problem dran:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.Button1Click(Sender: TObject);
var Reg : TRegistry;
    Keys : TStringList;
    I: Integer;
begin
  L.clear; // Listbox
  Reg := TRegistry.Create;
  Keys := TStringList.Create;
  Reg.Rootkey := HKEY_CURRENT_USER;
  if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced', False) then
  begin
     Reg.GetValueNames(Keys);
  end;
  Reg.Free;

  // Darstellung der Schlüsselliste
  for I := 0 to Keys.Count - 1 do
  L.Items.add(Keys[i]);
end;

So. Jetzt habe ich eine nutzlose Listbox, welche die Parameter für den Explorer enthält (will ich im Endprogramm gar nicht haben, das soll nur über die Konsole laufen...).
Weiter komme ich jetzt an der Stelle nicht mehr.
Wie kann ich jetzt die Eigenschaft von 'Hidden' (=Keys[0]) so ändern, dass die versteckten Dateien nun ein-/ausgeblendet werden.

Delphi-Quelltext

1:
2:
3:

Reg.WriteString('Hidden', '0'); // Geht nicht :(

Keys[0]:='dword:00000001'; // wird vom Compiler nicht akzeptiert... :(

Was nun?

Gerd Kayser - Sa 19.02.11 16:54

So gehts (Windows 7):

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg : TRegistry;
  Key : string;
  Wnd : HWnd;
begin
  Key := '\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced';
  Reg := TRegistry.Create;
  try
    Reg.Rootkey := HKey_Current_User;
    Reg.OpenKey(Key, false);
    Reg.WriteInteger('Hidden', 1);
    Reg.WriteInteger('SuperHidden', 1);
    Reg.WriteInteger('ShowSuperHidden', 1);
    Label1.Caption := 'Versteckte Dateien werden angezeigt.';
  finally
    Reg.Free;
  end;
  // Alle Instanzen des WindowsExplorers aktualisieren.
  // 41504 --> Löst die Aktualisierung aus (entspricht Drücken von F5).
  Wnd :=  FindWindow('CabinetWClass', nil);
  while Wnd <> 0 do
    begin
      SendMessage(Wnd, wm_Command, 41504, 0);
      Wnd := FindWindowEx(0, Wnd, 'CabinetWClass', nil);
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Reg : TRegistry;
  Key : string;
  Wnd : HWnd;
begin
  Key := '\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced';
  Reg := TRegistry.Create;
  try
    Reg.Rootkey := HKey_Current_User;
    Reg.OpenKey(Key, false);
    Reg.WriteInteger('Hidden', 2);
    Reg.WriteInteger('SuperHidden', 0);
    Reg.WriteInteger('ShowSuperHidden', 0);
    Label1.Caption := 'Versteckte Dateien werden NICHT angezeigt.';
  finally
    Reg.Free;
  end;
  // Alle Instanzen des WindowsExplorers aktualisieren.
  // 41504 --> Löst die Aktualisierung aus (entspricht Drücken von F5).
  Wnd :=  FindWindow('CabinetWClass', nil);
  while Wnd <> 0 do
    begin
      SendMessage(Wnd, wm_Command, 41504, 0);
      Wnd := FindWindowEx(0, Wnd, 'CabinetWClass', nil);
    end;
end;

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!