Ordner verstecken

[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

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;