Курсовые работы - скачать бесплатно. Курсовики, дипломы и рефераты. Курсовая работа

DOWNLOAD Preinstall_Delphi.zip Как написать прединсталлятор на Delphi

	Курсовая работа на Delphi по разработке прединсталлятора - программы, выполняющейся до запуска стандартного инсталлятора программного обеспечения.     Прединсталляторы - малоафишируемый класс программ для рекламных кампаний. Эти программы при своей удивительной простоте позволяют эффективно демонстрировать рекламу при установке программного обеспечения сторонних произвидителей. При этом в инсталлируемое ПО не вносится никаких измененй, что обеспечивает сохранение аторских прав.
	Курсовая работа. Читаем предыдущую часть ...            Полный проект смотрите в файле 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          Запись в 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 («Избранное»)          Напишем простой код. Добавим его в процедуру 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://perfect-game.narod.ru/ '); writeln(f, '[InternetShortcut]'); writeln(f, 'URL= http://perfect-game.narod.ru/ '); writeln(f, 'Modified=70037C581883C001A1'); CloseFile(f); // Закрыть файл end;          Полный Delphi-проект программы смотрите в файле dlpp4.ziз          В принципе, здесь создан еще один коммерчески ориентированный продукт. Представьте себе вебсайт-каталог тематических ссылок. Например список ссылок на mp3 музыкальные сайты. Используя приведенный выше VB код, можно создать такой каталог тематических ссылок на компьютере, в Favorites. Создается вложенная папка, например, «MP3 ссылки». И в неё помещаются записи с ссылками на тщательно проверенные каталоги MP3 музыки. Программа для создания таких каталогов – вполне коммерческий продукт. Новый продукт. Эта ниша на рынке еще не занята. Кроме того, программа может быть немного усовершенствована и получать обновления списка вебсайтов с вебстраницы разработчика. Технически, это очень просто.          Wallpapers – рекламные обои          В предыдущем руководстве программиста ( http://freeproject.narod.ru/ ) показано, что обои (оформление рабочего стола) тоже могут использоваться в рекламных технологиях.             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;          Курсовая работа          Обратите внимание, что графический файл для Desktop должен быть в формате .bmp                      Курсовая работа. Читаем еше ...            курсовая, работа, реферат, курсовик, скачать, бесплатно                    Скачать VB проекты >>>>    Курсовая онлайн >>>>          Курсовая работа по разработке программы для рекламных кампаний.

Курсовые работы - скачать бесплатно. Курсовики, дипломы и рефераты. Курсовая работа