Ordner verstecken

[Angel4585]

Hallo,

ich verwende diese Methode um einen versteckten Ordner zu erstellen:

Delphi-Quellcode:

procedure CreateHiddenFolder(APath: WideString);
begin
if not DirectoryExists(APath) and ForceDirectories(APath)then
  begin
  SetFileAttributes(PAnsiChar(APath),FILE_ATTRIBUTE_HIDDEN);
  end;
end;

Leider ist der Ordner der erstellt wird alles andere als versteckt.. die if-Bedingung wird aber auf jedenfall erfüllt und das SetFileAttributes auch ausgeführt.

Die Methode hab ich von hier: http://www.delphipraxis.net/internal...=ordner+hidden
Hat jemand ne Idee? Ich arbeite hier mit D2005 (noch)unter Vista, sollte aber ja eig keine Rolle spielen oder?
Hat es was mit der Typumwandlung von WideChar in PAnsiChar zu tun? Oft isses ja was ganz banales was man übersieht :gruebel:

[himitsu]

Dieses setzt nur das Hidden(Versteckt)-Attribut der Dateien/Verzeichnisse,
aber wenn der Explorer so eingestellt ist, daß er versteckte Dateien anzeigt, dann bringt das nicht viel (standardmäßig ist er aber nicht so eingestellt)
und FindFirst und Co. findet eh alles.

[Angel4585]

Ja schon klar, ist auch so eingestellt, dass versteckte Ordner und Dateien angezeigt werden.
Aber man sieht in den Eigenschaften doch trotzdem ob der Ordner das versteckt Flag hat oder nich.
Bzw der Ordner ist auch so halbtransparent.
Und der Ordner bekommt das Flag definitiv nicht.

[Luckie]

Warum fehlt wieder die halbe Fehlerbehandlung?

Zitat:

Zitat von Windows SDK

If the function succeeds, the return value is nonzero.

If the function fails, the return value is zero. To get extended error information, call GetLastError.

:roll:

Wenn ihr euch mal angewöhnen würdet eine gescheite Fehlerbehandlung zu implementieren, dann würde sich in der Hälfte aller Fälle die Frage nach dem "warum" wahrscheinlich von selbst beantworten.

aber wie soll ich das verstehen: "Aber man sieht in den Eigenschaften doch trotzdem ob der Ordner das versteckt Flag hat oder nich. Bzw der Ordner ist auch so halbtransparent." Und "Und der Ordner bekommt das Flag definitiv nicht.". Ist denn nun das Attribut Versteckt gesetzt oder nicht?

[DeddyH]

Anderer Vorschlag:

Delphi-Quellcode:

function SetOrCreateHiddenFolder(const APath: WideString): DWORD;
begin
  Result := 0;
  if DirectoryExists(APath) or ForceDirectories(APath) then
    begin
      if not SetFileAttributes(PAnsiChar(APath),GetFileAttributes(PAnsiChar(APath)) or FILE_ATTRIBUTE_HIDDEN) then
        Result := GetLastError;
    end
  else
    Result := -1; 
end;

[Andreas L.]

Delphi-Quellcode:

if DirectoryExists(APath) or ForceDirectories(APath) then

Wenn die erste Bedingung false ergibt wird die zweite überhaupt nicht ausgeführt (sofern man die vollständige Auswertung von Statements deaktiviert hat = Standard). Besser wäre es einfach ForceDirectories auszuführen und danach überprüfen ob der Ordner existiert.

Delphi-Quellcode:

  ForceDirectories(...);
  if DirectoryExisst(...) then
  begin
    //...
  end;

[DeddyH]

Zitat:

Zitat von Andreas L.

Delphi-Quellcode:

if DirectoryExists(APath) or ForceDirectories(APath) then

Wenn die erste Bedingung false ergibt wird die zweite überhaupt nicht ausgeführt (sofern man die vollständige Auswertung von Statements deaktiviert hat = Standard).

Wieso sollte ich ein Verzeichnis anlegen wollen, das bereits existiert? :gruebel:

[Andreas L.]

Zitat:

Zitat von DeddyH

Zitat:

Zitat von Andreas L.

Delphi-Quellcode:

if DirectoryExists(APath) or ForceDirectories(APath) then

Wenn die erste Bedingung false ergibt wird die zweite überhaupt nicht ausgeführt (sofern man die vollständige Auswertung von Statements deaktiviert hat = Standard).

Wieso sollte ich ein Verzeichnis anlegen wollen, das bereits existiert? :gruebel:

Sorry, hab nicht richtig gelesen. Hab das or als and gesehen. Glaub ich brauch noch nen Kaffee.... Peinlich :pale:

[Fridolin Walther]

Ich bin ein wenig erstaunt, wieso das noch niemandem aufgefallen ist:

Delphi-Quellcode:

procedure CreateHiddenFolder(APath: WideString);
begin
if not DirectoryExists(APath) and ForceDirectories(APath)then
  begin
  SetFileAttributes(PAnsiChar(APath),FILE_ATTRIBUTE_HIDDEN);
  end;
end;

Dort wird ein WideString übergeben und direkt zu einem AnsiString Pointer gecasted. Das ergibt einen AnsiString der nur den ersten Buchstaben des Pfads enthält (weil das zweite Byte bereits 0 ist - Unicode sei Dank). Also entweder Du übergibst dort direkt einen AnsiString, rufst die Wide Funktion auf oder aber erweiterst Deinen Cast auf PAnsiChar(AnsiString(APath)).

Hättest Du wie von Luckie bereits kritisiet übrigens direkt Fehlerbehandlung eingebaut, wäre Dir der GetLastError Wert für "File not found" sicher selbst aufgefallen.

[himitsu]

Zitat:

Delphi-Quellcode:

procedure CreateHiddenFolder(APath: WideString);
begin
if not DirectoryExists(APath) and ForceDirectories(APath)then
  begin
  SetFileAttributes(PAnsiChar(APath),FILE_ATTRIBUTE_HIDDEN);
  end;
end;

Wie Luckie schon sagte:
- Fehlerprüfungen

und dann vorallem KEINE Vermischung von Ansi/Unicode :!:

APath = Unicode
DirectoryExists(APath = compilerabhängig + Unicode
ForceDirectories(APath = compilerabhängig + Unicode
SetFileAttributes(PAnsiChar = compilerabhängig + Ansi
PAnsiChar(APath) = Ansi + Unicode (hier sollte aber der Compiler auch meckern)

kein Wunder, daß nichts funktioniert :warn:

Delphi-Quellcode:

procedure CreateHiddenFolder(APath: String);
begin
  if not DirectoryExists(APath) and ForceDirectories(APath)then
  begin
    SetFileAttributes(PChar(APath), FILE_ATTRIBUTE_HIDDEN);
  end;
end;

Delphi-Quellcode:

procedure CreateHiddenFolder(APath: AnsiString);
begin
  // hier ist eine Ansi-Version nötig, aber Unicode ginge auch nocht
  if not DirectoryExists(APath) and ForceDirectories(APath) then // <<<<<
  begin
    SetFileAttributesA(PAnsiChar(APath), FILE_ATTRIBUTE_HIDDEN);
  end;
end;

Delphi-Quellcode:

procedure CreateHiddenFolder(APath: WideString);
begin
  // hier ist eine Unicode-Version nötig
  if not DirectoryExists(APath) and ForceDirectories(APath) then // <<<<<
  begin
    SetFileAttributesW(PWideChar(APath), FILE_ATTRIBUTE_HIDDEN);
  end;
end;