Скрытые файлы.

← →
Socol (2002-01-16 15:18) [0]

Здраствуйте!
Всех с прошедшими празниками!
Неподскажите код чтобы программа копировала сама себя в виндовс из любого места.
Мне нужно прочесть данные из скрытого файла как сделать его нескрытым я знаю что надо применить faHidden но как вставить это в код я незнаю.
Да и почему открытие файла таким образом вызывает ошибку.
var f:textfile;
s:string;
begin
o1.Filter:="ййй(*.*)|*.*";
o1.Title:="ййй";
o1.FilterIndex:=1;
if o1.Execute then
LabeledEdit1.Text:=o1.FileName;
if o1.Execute then Memo1.Lines.LoadFromFile(o1.FileName);
reset(f);
readln(f,s);
Memo1.text:=s;
closeFile(f);

Скрытые файлы. Найти похожие ветки