Hilfe für Ordnerschutzprogramm

[phXql]

das muss

SetFileAttributes (Pfad, FILE_ATTRIBUTE_SYSTEM and FILE_ATTRIBUTE_HIDDEN) heissen, denn wenn du um die Variable Pfad die ' drummachst, wird das als hart-kodierter string angesehen...

[sui]

Das hatte ich schon probiert, dann bleibt der
Compiler hängen mit:

Inkompatible Typen: 'String' und 'PAnsiChar'
Verwendete Unit 'Unit1.pas' kann nicht kompiliert werden

und der Coursor steht dann rot an der Stelle hinter dem Koma
bei SetFileAttributes (Pfad,

[Christian Seehase]

Moin Sui,

probier's mal mit der Suche SetFileAttributes
Was dabei rauskommt müsste Dir eigentlich helfen.

[sui]

Sorry aber ich finds nicht. Mit der Suche hab ich doch
schon grösstenteils rausgefunden was ich jetzt da stehen
hab. Und aus dem EasyDelphiHelper...
Ich weiss echt nicht mehr weiter.

Gebt mir wenigstens nen Wink mit dem Zaunpfahl, wo der
Fehler ist oder obs grundlegend falsch ist was da steht!

[Christian Seehase]

Moin Sui,

Du wirst in den Beiträgen (und noch vielen anderen) unweigerlich auf PChar treffen.
API Funktionen kennen nichts von Pascal Strings, und deshalb lässt der Compiler String (auch ein Pointer wie PChar) diesen Typ an der Stelle nicht zu. Hier muss man ihm mit einem Typecast auf die Sprünge helfen:

PChar(Pfad) wäre in diesem Falle die Lösung.

[sui]

Ich find einfach nix passendes.
Schon ne menge, aber ich weiss nicht wie ichs
übernehmen soll.

Der String muss jetzt in pchar umgewandelt werden.

Ich finds einfach nicht, wie ich es einsetzen muss.

sui

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

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

[sui]

Hey danke, super, klappt wunderbar.

Jetzt kann ich endlich mal weitermachen

[Christian Seehase]

Moin Sui,

Zitat von Christian Seehase:

Hier muss man ihm mit einem Typecast auf die Sprünge helfen:
PChar(Pfad) wäre in diesem Falle die Lösung.

Zitat von sui:

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