Ordner verstecken

[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;