|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
|||
|
|||
- с функцией вообще ничего не получилось.
- в процедуре удалось найти только файлы: Код:
autoexec.bat config.sys FileIn.Cns FileOut.Cns huadio.tmp Дело в том, что мне нужны такие файлы, при удалении которых система слетит... ну или хотя бы файл один... |
#17
|
||||
|
||||
Эти файлы не только системные но и скрытые.
faHidden ещё прибавить надо. Код:
FileAttrs := FileAttrs + faSysFile+faHidden ; - Товарищ прапорщик!!! Остановите поезд!!! - Поезд СТОЙ! РАЗ! ДВА! |
#18
|
|||
|
|||
Цитата:
теперь другой вопрос: если эти файлы удалить - система слетит? как тогда сделать кнопку "Удалить" системные файлы? |
#19
|
|||
|
|||
так все-таки, как сделать кнопку "Удалить" системные файлы?
|
#20
|
|||
|
|||
ау, народ!!!
|
#21
|
||||
|
||||
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } procedure ButtonDelSysFileClick(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin with TButton.Create(Self) do begin Parent:=Self; Width:=200; Left:=10; Top:=10; Caption:='Удалить системные файлы'; OnClick:=ButtonDelSysFileClick; end; end; procedure TForm1.ButtonDelSysFileClick(Sender: TObject); begin ShowMessage('Системные файлы удалены.'); end; end. Пишу программы за еду. __________________ |
#22
|
||||
|
||||
Ай, молодца. Какой классный ответ.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#23
|
|||
|
|||
Цитата:
а если серьезно? |
#24
|
||||
|
||||
а это вполне серьезно. был вопрос:
Цитата:
Пишу программы за еду. __________________ |
#25
|
||||
|
||||
5+
Точно все как просили. А что касается вашего желания поломать чужое, то давать в руки обезьяне гранату чревато как для обезьяны так и для того кто ее дал. (Данный пример использован только для максимальной образности и никаких намеков не несет, потому не воспринимайте это как оскорбление.) Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. Последний раз редактировалось Страдалецъ, 02.09.2011 в 16:25. |
#26
|
||||
|
||||
Не хочется флудить, но... когда человек задаёт вопрос об удалении системных файлов, то ответ на вопрос: "Зачем", напрашивается сам собой.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#27
|
|||
|
|||
сколько готов заплатить?
|
#28
|
|||
|
|||
Цитата:
Код:
ShowMessage('Удаление завершено') |
#29
|
|||
|
|||
Цитата:
|
#30
|
|||
|
|||
сколько готов заплатить за готовую пррграмму?
|