Protección de archivos y carpetas

[fide]

Hola amigos. Desde que comencé en delphi, toda mi vida he querido hacer un programa similar al Folder Guard, Hide Folder, Magic Fólder etc. Que me permita proteger archivos y/o carpetas. Alguien me puede ayudar sobre como se haría algo así en delphi???



Como único he logrado proteger un archivo es con

Código Delphi [-]
FileOpen('Nombre de archivo.ext',fmOpenRead);

haciendo que se carge en memoria por mi ejecutable. Lo malo es que cuando cierro mi programa esto deja de funcionar.