procedure TForm1.btSaveClick(Sender: TObject);
begin
Memo1.Lines.SaveToFile(edAddress.Text+'\temp.ini') ;
SetFileAttributes(PChar(edAddress.Text+'\temp.ini'), FILE_ATTRIBUTE_HIDDEN);
end;
создание скрытого текстового файла
Как можна создать текстовый файл с атрибутом "скрытый". Если знаете напишите, буду очень благодарен.
вот какова ситуация:
...
procedure TForm1.btSaveClick(Sender: TObject);
begin
Memo1.Lines.SaveToFile(edAddress.Text+'\temp.ini');
end;
...
если знаете другой способ - напишите!
вот какова ситуация:
...
procedure TForm1.btSaveClick(Sender: TObject);
begin
Memo1.Lines.SaveToFile(edAddress.Text+'\temp.ini');
end;
...
если знаете другой способ - напишите!
попробуй так:
SetFileAttributes(PChar('c:\1.txt'),faHidden);
это операция с готовым файлом...
SetFileAttributes(PChar('c:\1.txt'),faHidden);
это операция с готовым файлом...
Через WinApi
SetFileAttributes(edAddress.Text+'\temp.ini', FILE_ATTRIBUTE_HIDDEN)
или на делфях
filesetattr(edAddress.Text+'\temp.ini', faHidden);
SetFileAttributes(edAddress.Text+'\temp.ini', FILE_ATTRIBUTE_HIDDEN)
или на делфях
filesetattr(edAddress.Text+'\temp.ini', faHidden);
Ещё можно воспользоваться "альтернативным" файловым потоком, в этом случае имя файла будет таким:
при том, someFile.txt должен существовать в директории FileDir (можно использовать файл приложения), uuu - это поток, в который пишутся данные. В итоге в эксплорере (да и в коммандере) пользователь увидит только один файл - someFile.txt, и если он будет копировать его, то скопирует только то, что скрывается за ним (коммандер умеет копировать все файловые потоки).
Эта фишка будет работать на файловой системе NTFS.
Код:
FileDir + '\someFile.txt:uuu'
при том, someFile.txt должен существовать в директории FileDir (можно использовать файл приложения), uuu - это поток, в который пишутся данные. В итоге в эксплорере (да и в коммандере) пользователь увидит только один файл - someFile.txt, и если он будет копировать его, то скопирует только то, что скрывается за ним (коммандер умеет копировать все файловые потоки).
Эта фишка будет работать на файловой системе NTFS.
winexec(pchar('attrib +h +s +a +r ' + edAddress.Text+ '\temp.ini'));