Вниз
Скачать: CL | DM;

Как программно сделать файл скрытым?   Найти похожие ветки 

 
Muhan ©   (2004-12-10 22:12) [0]

1. Как сделать файл невидимым, знаю его расположение и имя?
2. Будет ли это нарушением, если я тем, кто пользуется моей программой буду создавать на их винче файл с регистрацией, типа, если зарегился то создаю файл, если нет то нет.. Не подадут в суд? :)
3. Как проверить наличие файла, присутствует он или нет в данной папке?


 
GuAV ©   (2004-12-10 22:16) [1]

Muhan ©   (10.12.04 22:12)
1. Как сделать файл невидимым, знаю его расположение и имя?


Атрибут faHide не поможет. Иные видят все файлы :-)


 
Cardinal ©   (2004-12-10 23:08) [2]


> 1. Как сделать файл невидимым, знаю его расположение и имя?

FileSetAttr(const FileName: string; Attr: Integer): integer;
Задает атрибуты Attr файла FileName. В случае успеха возвращает 0, в противном случае - код ошибки мастдая.

Константы атрибутов:

Имя константы Значение Атрибут

faReadOnly   $00000001     файл только для чтения
faHidden     $00000002     невидимый файл
faSysFile    $00000004     системный файл
faVolumeID   $00000008     идентификатор диска
faDirectory  $00000010     каталог
faArchive     $00000020     архивный файл
faAnyFile    $0000003F     любой файл


> 2. Будет ли это нарушением, если я тем, кто пользуется моей
> программой буду создавать на их винче файл с регистрацией,
> типа, если зарегился то создаю файл, если нет то нет.. Не
> подадут в суд? :)

Насколько я знаю, за создание скрытого файла еще никого не посадили :-)

> 3. Как проверить наличие файла, присутствует он или нет
> в данной папке?

FileExists(const FileName: string): boolean;


 
Muhan ©   (2004-12-11 00:08) [3]

2. Ну мало ли я нарушаю его права..не предупредив :)


 
Muhan ©   (2004-12-11 00:08) [4]

спасибо



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c
3-1101284649
Sergey18
2004-11-24 11:24
2004.12.26
Создание полнотекстового индекса через SQL-запрос


4-1100507784
Avatara
2004-11-15 11:36
2004.12.26
Запуск .EXE файла из своей проги


1-1102817066
Hoot
2004-12-12 05:04
2004.12.26
У меня в компоненте есть FItems : TStrings; Как мне перехватить


14-1102348564
kein
2004-12-06 18:56
2004.12.26
Самопальное радио


3-1101462359
Chery
2004-11-26 12:45
2004.12.26
Синтаксис SQL: MySQL - драйвер ODBC 03.51.05 - Midas (delphi)




   Наверх