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?