VPF::Копирование или удаление открытых файлов

Tark2

Дата 17.1.2005, 20:19 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Скажите как на Delphi скопировать или удалить файлы открытых другими приложениями или операционной системой. Например как работая под Windows удалить файлы kernel.dll, user.dat, system.dat и. т. д. Файлы открытые другими прложениями? Удалить скопировать, переместить...

Евгений [email protected] smile

Это сообщение отредактировал(а) Tark2 - 17.1.2005, 20:20

s-mike

Дата 17.1.2005, 21:37 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 425
Регистрация: 16.1.2005
Где: Киев

Репутация: 9
Всего: 16

Ну и ну. Это что вирус будет?

--------------------

Преферанс для Android на базе исходников Марьяжа

Pakshin A. S.

Дата 17.1.2005, 22:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Копировать... должно срадотать через обычный AssignFile, а про удалить... не стоит и загоняться, т. к. это - зло!!!

Stadler

Дата 18.1.2005, 06:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 28.12.2004

Репутация: нет
Всего: нет

По моему никак

Петрович

Дата 18.1.2005, 09:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1000
Регистрация: 2.12.2003
Где: Москва

Репутация: 25
Всего: 55

Некоторые файлы (не используемые самой системой) можно удалить отложенно - при очередной загрузки системы еще до запуска приложений. Для этого есть специальная ветка реестра куда нужно прописать сие действие. Какая ветка не помню, поищи сам.

--------------------

Все знать невозможно, но хочется

Akella

Дата 18.1.2005, 09:35 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Копирование открытого файла можно производить через MemoryStreem
что-то вроде этого

Код


Procedure CopyFile(Const SourceName, TargetName: String); 
Var 
  S,T   : TFileStream; 
Begin 
  //обрати внимание, что файл открывается только на чтение
 S := TFileStream.Create(sourcename, fmOpenRead ); 
 try 
  T := TFileStream.Create(targetname, fmOpenWrite or fmCreate); 
  try 
    T.CopyFrom(S, S.Size ); 
    FileSetDate(T.Handle, FileGetDate(S.Handle)); 
  finally 
   T.Free; 
  end; 
 finally 
  S.Free; 
 end; 
end;

Это сообщение отредактировал(а) dsergey - 18.1.2005, 09:36

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »