Binde mal die SysUtils mit ein.
Ohne ist die Exceptionbehandlung nicht (richtig) initialisiert.
Außerdem müsstest du die Datei von der Konsole (cmd.exe) aus ausführen, damit das Konsolenfenster nicht gleich wieder zu geht.
Oder du baust selber eine Fehlerbehandlung ein und lässt nach der Fehleranzeige warten.
TFile.Encrypt sagt dir jedenfalls was nicht stimmt, wenn du ihm die Chance lässt.
Delphi-Quellcode:
program Test;
{$APPTYPE CONSOLE}
uses
System.SysUtils,
System.IOUtils;
begin
try
TFile.Encrypt('
C:\MeinOrdner\Datei.txt');
except
on E:
Exception do begin
WriteLn(E.ClassName + '
: ' + E.
Message);
WriteLn('
Weiter mit [Enter].');
ReadLn;
end;
end;
end.
Die
VCL mach halt mehr, als nur optisches Zeugs.
z.B. Fehler abfangen und "anzeigen", was du in der Konsole alles selber machen musst.