Прединсталляторы – малоизвестный класс программ, используемых в рекламных технологиях. Программы могут использоваться для создания большого количества показов рекламных баннеров или вебстраниц, формирования рекламного трафика, увеличения рентабельности вебсайтов с бесплатным программным обеспечением – freeware.

Прединсталляторы могут использовать разные алгоритмы работы – однократные, многократные, активные и пассивные.

1. Прединсталляторы

Это программы, исполняемые до инсталляции программного обеспечения.

Архивы бесплатного программного обеспечения идут на различные ухищрения, чтобы получить компенсацию за расходы на поддержание вебсервера и сервиса. Т.к. программы распространяются бесплатно, то зарабатывать средства приходится за счет размещения рекламы спонсоров. Прединсталляторы – тот класс программ, которые могут существенно облегчить финансовые проблемы владельцев freeware архивов.

Обычно, скачанное пользователем бесплатное или демонстрационное программное обеспечение - файл, имеет имя, отличное от SETUP, INSTALL, RUN или START. Чаще всего сейчас в имени файла используется сокращенное название программы (например, http://pipa.send-sms.ru/get.php/pipa.exe). Это позволяет вместе с архивом программы представить пользователю дополнительный EXE файл с одним из таких названий (setup.exe например).

В подавляющем количестве случаев процесс инсталляции будет начат пользователем с запуска именно этого (setup.exe) файла. При этом в файл (setup.exe) могут быть включены следующие функции:

• проверка версии операционной системы;
• показ рекламной информации или подключение рекламного сервиса;
• запуск инсталляции основной программы;
• удаление прединсталлятора из памяти.

2. На чем программировать

Если посмотреть на статистику счетчиков http://extreme-dm.com на любом из вебсайтов, то можно увидеть примерно такое распределение версий ОС у посетителей:

Видно, что наибольший процент посетителей используют ОС Windows 2000 или Windows XP. Поэтому будем ориентироваться на структуру реестра именно этих OC.

В данном документе описан процесс разработки отдельных процедур программы для Интернет-рекламы.

3. Структура программы

Программа прединсталлятор должна быть компактной, быстро исполняться, отрабатывать рекламный сервис, запускать инсталляцию основной программы и завершать свою работу.

В нашем примере программа-прединсталлятор будет состоять из прозрачной формы Form1 (Border Style = 0, Appearance = 0)

4. Подключение рекламного сервиса

Рекламный сервис может выполняться разными способами:

• обязательным однократным или многократным посещением web страницы разработчика или спонсора;
• размещением рекламного плаката в качестве wallpapers;
• записью ссылки на web сайт спонсора или разработчика в Favorites;
• каким-либо иным способом.

Внимание! В любом случае пользователь должен быть предупрежден об особенностях сервиса, включенного в программное обеспечение. Производить или не производить инсталляцию – выбор пользователя.

Рассмотрим вариант, когда программа-прединсталлятор устанавливает в качестве стартовой страницы для Internet Explorer страницу спонсора.

Для этого необходимо выполнить запись в реестр Windows. Это может быть проделано непосредственно из программы на Delphi или с помощью Java-скрипта. Достаточно создать на диске текстовый файл Java-скрипта и записать в него код, а затем запустить из Delphi программы.

Листинг для записи в текстовый файл из программы на Delphi – в файле dlpp1.zip

Текст Java-скрипта (всего 3 строчки):

var WSHShell = WScript.CreateObject("WScript.Shell");
WSHShell.Popup("Стартовая страница");
WSHShell.RegWrite("HKEY_CURRENT_USER\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page", "http://www.privet.com");

Напишем Delphi-код для записи JS скрипта в файл set-page.js

Код:

procedure TForm1.FormActivate(Sender: TObject);
begin
AssignFile(f, 'c:\set-page.js');

 Rewrite(f); // Создать и открыть файл
 writeln(f, 'var WSHShell = WScript.CreateObject'+chr(40)+chr(34)+
 'WScript.Shell'+chr(34)+chr(41)+chr(59)); // Записать СТРОКУ в файл
 writeln(f, 'WSHShell.Popup'+chr(40)+chr(34)+'Стартовая страница'+
 chr(34)+chr(41)+chr(59)); // Записать СТРОКУ в файл
 writeln(f, 'WSHShell.RegWrite'+chr(40)+chr(34)+
 'HKEY_CURRENT_USER\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page'+chr(34)+', 
 '+chr(34)+'http://www.privet.com'+chr(34)+chr(41)+chr(59)); // Записать СТРОКУ в файл
 CloseFile(f); // Закрыть файл

 ShellExecute(Handle, 'open', 'c:\set-page.js', nil, nil, SW_HIDE); // Выполнить команду. Запустить скрипт

end;

Здесь ‘ + chr(34) + ‘ – код для записи кавычек в файл Java-скрипта. Аналогично – для скобок и точки с запятой - '+chr(34)+chr(41)+chr(59)’. ASCII-коды можно посмотреть на http://www.lookuptables.com/

А для работы с ShellExecute необходимо добавить объявление (выделено красным):

uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ShellAPI;При выполнении такой программы-инсталлятора в качестве стартовой страницы броузера Internet Explorer в Windows 2000 и Windows XP будет установлен адрес вебсайта www.privet.comПолный проект смотрите в файле dlpp2.zip

Здесь приведен самый простой вариант программы. В него надо добавить всего одну строку кода – запуск инсталляции основной программы. Это можно сделать просто включив в программу еще одну строку – например для инсталляции приведенной выше программы PIPA.EXE :

ShellExecute(Handle, 'open', ' pipa.exe', nil, nil, SW_HIDE);

Кроме того, следует удалить с диска файл с Java-скриптом, как уже ненужный после начала инсталляции

ShellExecute(Handle, 'open', ' kill c:\set-page.js', nil, nil, SW_HIDE);

Это самый простой образец программы-инсталлятора. Эффективность работы его можно значительно повысить, если произвести некоторые  доработки – например, файлы конфигурации. Тогда программа-прединсталлятор станет более универсальной, подходящей для широкого использования. Можно разработать программу для создания, редактирования и кодирования файлов конфигурации прединсталлятора. Т.е. разработать новый коммерческий продукт.

Программа-инсталлятор имеет удивительную эффективность для создания трафика – с самых «банальных» web-сайтов с посещаемостью 300-600 человек в день скачивается 100-150 экземпляров программ минимум. Можете представить сколько посещений вебсайта спонсора может обеспечить прединсталлятор.

Эффективность программы-прединсталлятора можно повысить производя так же и запись в Favorites броузера.

Ничего сложного в этом нет. Каждая запись в Favorites («Избранное») – это специальный файл в особом каталоге на диске C:

5. Запись в Favorites

Для этого необходимо работать с реестром Windows. Команды для работы с реестром.

function ReadString(const Name: String): String;

Возвращает строку значения параметра Name текущего ключа. При ошибке чтения генерируется исключение и возвращенное значение является ошибочным.

Пример:

uses Registry;
. 
.
. 
var
Reg : TRegistry; 
begin
Reg := TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('\My Registry\',true);
Edit1.Text:= Reg.ReadString('My');
Reg.CloseKey;
Reg.Destroy;

Продемонстрируем функцию для чтения значения ключа реестра, в котором выше установили адрес стартовой страницы Internet Explorer (на форму Form1 нужно добавить кнопку Button1):

procedure TForm1.Button1Click(Sender: TObject);

begin

Reg := TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('\Software\Microsoft\Internet Explorer\Main\',true);
Form1.Caption:= '' + Reg.ReadString('Start Page');
Reg.CloseKey;
Reg.Destroy;

end;

Для работы с реестром необходимо добавить объявление (выделено красным):

uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Registry, ShellAPI;

Полный Delphi-проект с этого этапа разработки смотрите в файле dlpp3.zip

Рассмотрим Delphi код для создания записи в Favorites («Избранное»)

Пример для записи в «Избранное» Internet Explorer (папка Favorites) можно посмотреть здесь http://delphiworld.narod.ru/base/webbrowser_add_to_fav.html.

Напишем более простой код. Добавим его в процедуру TForm1.Button1Click

procedure TForm1.Button1Click(Sender: TObject);
begin
Reg := TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\',true);
Form1.Caption:= '' + Reg.ReadString('Favorites') + '\' + 'Zagranica.url';
ee:= Reg.ReadString('Favorites') + '\' + 'Hello.url';
Reg.CloseKey;
Reg.Destroy;

Form1.Caption:= ee;

//Создать новую запись в Favorites
//C:\Documents and Settings\Administrator\Favorites

AssignFile(f, ee);
Rewrite(f); // Создать и открыть файл
writeln(f, '[DEFAULT]');
writeln(f, 'BASEURL= http://www.geocities.com/aboutsoft/');
writeln(f, '[InternetShortcut]');
writeln(f, 'URL= http://www.geocities.com/aboutsoft/');
writeln(f, 'Modified=70037C581883C001A1');
CloseFile(f); // Закрыть файл

end;

Полный Delphi проект программы смотрите в файле dlpp4.zip

В принципе, здесь создан еще один коммерчески ориентированный продукт. Представьте себе веб-сайт-каталог тематических ссылок. Например список ссылок на mp3 музыкальные сайты. Используя приведенный выше VB код, можно создать такой каталог тематических ссылок на компьютере, в Favorites. Создается вложенная папка, например, «MP3 ссылки». И в неё помещаются записи с ссылками на тщательно проверенные каталоги MP3 музыки. Программа для создания таких каталогов – вполне коммерческий продукт. Новый продукт. Эта ниша на рынке еще не занята. Кроме того, программа может быть немного усовершенствована и получать обновления списка вебсайтов с вебстраницы разработчика. Технически, это очень просто.

6. Wallpapers – рекламные обои

В предыдущем руководстве программиста показано, что обои (оформление рабочего стола) тоже могут использоваться в рекламных технологиях

procedure TForm1.Button1Click(Sender: TObject);
 var
 Picture: TPicture;
 Desktop: TCanvas;
 X, Y: Integer;
 begin
 // Objekte erstellen 
 // create objects 
 Picture := TPicture.Create;
 Desktop := TCanvas.Create;

 // Bild laden 
 // load bitmap 
 Picture.LoadFromFile('bitmap1.bmp');

 // Geratekontex vom Desktop ermitteln 
 // get DC of desktop 
 Desktop.Handle := GetWindowDC(0);

 // Position des Bildes 
 // position of bitmap 
 X := 100;
 Y := 100;

 // Bild zeichnen 
 // draw bitmap 
 Desktop.Draw(X, Y, Picture.Graphic);

 // Geratekontex freigeben 
 ReleaseDC(0, Desktop.Handle);

 // Objekte freigeben 
 // release objects 
 Picture.Free;
 Desktop.Free;
 end;

Пример можно посмотреть здесь http://delphiworld.narod.ru/base/bmp_to_desktop.html

Обратите внимание, что графический файл для Desktop должен быть в формате .bmp

7. Об эффективности

Эффективность использования программ-прединсталляторов чрезвычайно высока. Свыше 70% программ инсталлируются сразу после скачивания и без всякого анализа состава программного пакета. В лучшем случае читается файл ReadMe.txt

Рекламную эффективность программ-прединсталлятров можно значительно увеличить используя специальный инсталлируемый на компьютер модуль для загрузки рекламы. В таком случае программа превращается в разновидность Adware и может вызвать у пользователей негативную реакцию. Тем не менее, рынок такого программного обеспечения развит и спонсорам предлагаются программные модули для загрузки рекламы по цене от 300$

Обращаю Ваше внимание, что потребители (пользователи) программного обеспечения должны быть предупреждены о том, что условием использования программных продуктов будет просмотр рекламной информации спонсора.

Руководство написано для широкого круга лиц – программистов, администраторов, пользователей бесплатного ПО.

ee@oflameron.ru

Программист на Visual Basic, Delphi, Assembler, Java, PHP. Автор игры Oflameron. Автор руководств для программистов на Visual Basic, Delphi, Java, PHP и для начинающих web-дизайнеров.

Лицензионное соглашение. Некоммерческое использование данного руководства и прилагаемых кодов – совершенно бесплатно. Коммерческое использование возможно только с согласия автора.

Исходники здесь.

Получить ссылку на материал