Hilfe für Ordnerschutzprogramm

[Steve]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Pfad : string;
begin
  SelectDirectory ('Verzeichniss wählen', '', Pfad);
  if SetFileAttributes (PChar(Pfad), FILE_ATTRIBUTE_SYSTEM or FILE_ATTRIBUTE_HIDDEN)
    then showmessage ('Datei versteckt')
    else showmessage ('Nix wurde geändert');
end;