- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
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;
Логи не велись, просто раз в минуту на диск писался 1 байт, недавая таким образом ему [HD] останавливаться
если смотришь видео, то и так идёт работа с диском. он не может отключится. как тогда дополнительная работа может препятствовать его отключению?