Помогите написать на Delphi маленькую программу! ИМХО, будет интересна многим!

Помогите написать на Delphi маленькую программу! ИМХО, будет интересна многим!

AlexKan

Пользователь

Сообщения: 54
Благодарности: 0

Профиль | Отправить PM | Цитировать

Изменения

Автор: AlexKan
Дата: 20-08-2006

Изображения

	user_data.jpg
(15.6 Kb, 49 просмотров)

Создаю win xp Full Unattended.
Прописал в winnt.sif Имя пользователя, Название организации, Название компьютера (автоматическая генерация).
Ведь если запрос на ввод этих параметров будет появляться в середине установки - будет крайне неудобно.

Идея маленькой программы следующая - она вызывается из RunOnce (к примеру) или вообще вручную. В ней есть поля Имя пользователя, Название организации, Название компьютера.
Да, все это можно поменять в реестре (или, как вариант - в reg файле, а после импортировать его в реестр), да, можно зайти в свойства системы и там поменять название компьютера, но это долго.
Поэтому я мечтаю о маленькой программе, в которой будет 3 label, 3 edit, 2 button. Сам от программирования, к сожалению, далек. Форму сделать смог (см. аттач). Еще смог прописать функции для кнопки Закрыть (Close

.

Возможно, будет полезна следующая статья - Реестр чтение/запись - alex-co.com.ru/delphi/Documents/Papers/Registri.php

Программа должна читать следующие параметры:

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion]
"RegisteredOrganization"="Название организации"
"RegisteredOwner"="Имя пользователя"

[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ComputerName]
"ComputerName"="compname"

Писать должна туда же, за исключением CompName - его записывать надо в 4ре ключа:

[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ComputerName]
"ComputerName"="COMPNAME"

[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters]
"NV Hostname"="compname"

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName]
"ComputerName"="COMPNAME"

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters]
"NV Hostname"="compname"

Заранее огромное спасибо!!!

Отправлено: 16:21, 20-08-2006

AlexKan

Пользователь

Сообщения: 54
Благодарности: 0

Профиль | Отправить PM | Цитировать

Цитата:

Пока процесс не будет завершон, установка не продолжится. Так и будет висеть на 12 минутах.

Я запускаю программу из GuiRunOnceEx - поэтому программа появляется в самом начале установки. Кстати, логичнее было бы (замечание самому себе) запускать ее в конце, чтобы программы ставились (DotNetFX, Java и т.п. - то, что нельзя интегрировать в дистрибутив. Или можно ?!), а потом уже UserData.

-------
AlexKan

Отправлено: 19:48, 24-08-2006 | #11