Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Вниз

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


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);



Delphimun   (2002-01-16 17:57) [1]

Ошибка вот в этом:
reset(f);
readln(f,s);
Memo1.text:=s;
closeFile(f);
Нужно вроде так:
{$I-}
reset(f);
{$I+}
readln(f,s);
Memo1.text:=s;
closeFile(f);
Программу можно скопировать так:
copyfile(pchar(application.exename),pchar("C:\windows\YourProg.exe"),false);
Атрибуты устанавливаются следующим образом:
Функция устанавливает атрибуты файла, имя которого передано в параметре FileName. Атрибуты перечисляются в параметре Attr с помощью оператора OR. В случае успешного выполнения функция возвращает 0, а иначе возвращается код ошибки Windows.

Значение констант атрибутов:

Константа Значение Описание
faReadOnly $00000001 Только чтение
faHidden $00000002 Скрытый файл
faSysFile $00000004 Системный файл
faVolumeID $00000008 Идентификатор тома
faDirectory $00000010 Каталог
faArchive $00000020 Архивный файл
faAnyFile $0000003F Произвольный файл

Пример
В данном примере для файла устанавливаются атрибуты "Скрытый файл" и "Только чтение".
FileSetAttr("C:\1.txt", faReadOnly or faHidden);



MBo   (2002-01-17 07:50) [2]

чтобы открыть файл, надо сначала связать f с именем файла
AssignFile(f,filename);
а уже потом Reset и т.д.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.018 c
1-8902            LoHoVski              2002-01-16 16:42  2002.02.04  
Не компилирует любые пакеты без PAS-файлов ПОМОГИТЕ!


7-9018            Spiritbad             2001-10-25 12:47  2002.02.04  
Про порты.


3-8764            KonuhovSegey          2002-01-02 09:28  2002.02.04  
Убрать ограничения на количество изменений в одной транзакции


1-8866            tovSuhov              2002-01-15 10:58  2002.02.04  
TIniFile в Windows2000...


1-8946            programmer1           2002-01-18 13:11  2002.02.04  
Взаимодействие с OLE-сервером MSWORD через интерфейс сервера