Hilfe für Ordnerschutzprogramm

[sui]

So sieht mein Code gerade aus:

Delphi-Quellcode:

[pre]procedure TForm1.Button1Click(Sender: TObject);


var
    Pfad : string ;


begin



 if SelectDirectory ('Verzeichniss wählen', '', Pfad)

 then label1.caption :=Pfad;

 if SetFileAttributes ('Pfad', FILE_ATTRIBUTE_SYSTEM or FILE_ATTRIBUTE_HIDDEN)


then

showmessage ('Datei versteckt')

else

showmessage ('Nix wurde geändert');

end;[/pre]

Kann mir das nicht bitte einfach jemand sagen wie ichs machen muss? Den String in PChar umwandeln?