IOUtils TFile.Encrypt Prozedur

[himitsu]

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.