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

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

	Курсовая работа на Delphi по разработке прединсталлятора - программы, выполняющейся до запуска стандартного инсталлятора программного обеспечения.     Gрединсталляторы - малоизвестный или, скорее, малоафишируемый, класс программ для рекламных кампаний. Эти программы позволяют эффективно демонстрировать рекламу при установке программного обеспечения сторонних произвидителей. При этом в инсталлируемое ПО не вносится никаких измененй, что обеспечивает сохранение аторских прав.
	Курсовая работа. Читаем предыдущую часть ...            Разработаем прототип программы-прединсталлятора, устанавливающего в качестве стартовой веб страницы броузера страницу рекламного спонсора.     Для этого необходимо выполнить запись в реестр Windows. Это может быть проделано непосредственно из программы на Delphi или с помощью Java-скрипта. Достаточно создать на диске текстовый файл Java-скрипта и записать в него код, а затем запустить из Delphi программы.          Листинг на Delphi (файл Project1.dpr) в архиве dlpp1.zip             program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end.          Листинг для записи в текстовый файл из программы на Delphi (файл Unit1.pas) в архиве dlpp1.zip             unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormActivate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; f: TextFile; // Объявить текстовый файл implementation {$R *.DFM} procedure TForm1.FormActivate(Sender: TObject); begin AssignFile(f, 'c:\set-page.js'); //Reset(f); // Открыть файл Rewrite(f); // Создать и открыть файл //Seek(f, FileSize(f)); // Переместить указатель в конец файла writeln(f, 'Oflameron'); // Записать СТРОКУ в файл writeln(f, 'Oflameron'); // Записать СТРОКУ в файл writeln(f, 'Oflameron'); // Записать СТРОКУ в файл CloseFile(f); // Закрыть файл end; end          Текст Java-скрипта содержит всего 3 строчки          var WSHShell = WScript.CreateObject("WScript.Shell");     WSHShell.Popup("Стартовая страница");     WSHShell.RegWrite("HKEY_CURRENT_USER\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page", "http://perfect-game.narod.ru/");          Напишем Delphi-код для записи JS скрипта в файл set-page.js          Код для Visual Basic             Private Sub Form_Activate() 'Создать JS-файл для записи в реестр Windows indx = 1 Str1(0) = "var WSHShell = WScript.CreateObject(" + Chr$(34) + "WScript.Shell" + Chr$(34) + ");" Str1(1) = "WSHShell.Popup(" + Chr$(34) + "Стартовая страница" + Chr$(34) + ");" Str1(2) = "WSHShell.RegWrite(" + Chr$(34) + "HKEY_CURRENT_USER\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page" + Chr$(34) + ", " + Chr$(34) + "http://images900dpi.h1.ru" + Chr$(34) + ");" For i = 0 To 2 'Записать в файл set-page.js 3 строки кода Str1(i) = Str1(i) + Chr$(13) + Chr$(10) Open "c:\set-page.js" For Binary As #1 Len = Len(Str1(i)) 'Создать файл set-page.js Put #1, indx, Str1(i) 'Записать строку в JS-файл indx = indx + Len(Str1(i)) 'Номер следующей записи Close #1 'Закрыть set-page.js файл Next i Shell ("c:\js.bat") 'Запустить BAT-файл на исполнение End Sub          Код для Delphi             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://images900dpi.h1.ru'+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)’.          Курсовая работа          Для работы с ShellExecute необходимо добавить объявление (выделено синим):          uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ShellAPI;          При выполнении такой программы-инсталлятора в качестве стартовой страницы броузера Internet Explorer в Windows 2000 и Windows XP будет установлен адрес вебсайта http://images900dpi.h1.ru                 Курсовая работа. Читаем еше ...            курсовая, работа, реферат, курсовик, скачать, бесплатно                    Скачать VB проекты >>>>    Курсовая онлайн >>>>          Курсовая работа по разработке программы для рекламных кампаний.

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