Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+96
procedure TForm1.Timer1Timer(Sender: TObject);//интервал 1 минута
var
f: file of byte;
c: byte;
begin
assignfile(f, 'c:\0.dsk');
if fileexists('c:\0.dsk') then reset(f) else rewrite(f);// :)
c := 0;
write(f, c);
closefile(f);
end;Процедура "дёрганья" диска ))
Запостил: 
eoln,
01 Августа 2011
Follow us!
Логи не велись, просто раз в минуту на диск писался 1 байт, недавая таким образом ему [HD] останавливаться
если смотришь видео, то и так идёт работа с диском. он не может отключится. как тогда дополнительная работа может препятствовать его отключению?