Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка Windows 2000/XP/2003 » Помогите написать на Delphi маленькую программу! ИМХО, будет интересна многим!

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

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


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

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


Изменения
Автор: AlexKan
Дата: 20-08-2006
Изображения
Тип файла: jpg 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

 

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


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

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


Вложения
Тип файла: zip wsname275j.zip
(187.2 Kb, 101 просмотров)
Тип файла: rar compname.rar
(199.4 Kb, 75 просмотров)

Программы, перезалил из-за того, что криво залились.

Отправлено: 19:52, 20-08-2006 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для desperate

Старожил


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

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


AlexKan
дельфи....дык это ж мерзость...... могу реализовать на С++ в понедельник вечером отпишусь.

-------
Ты рожден для того, чтобы быть виноватым
Lipetsk *nix Association


Отправлено: 19:52, 20-08-2006 | #3


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


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

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


desperate, я на С++ ее и реализовывал. (билдер)
Поддерживает интерфейсик похожий на вложение первого поста и коммандную строку.

Отправлено: 21:22, 20-08-2006 | #4


Новый участник


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

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


Цитата:
дельфи....дык это ж мерзость...... могу реализовать на С++ в понедельник вечером отпишусь.
Давайте не будем писать, что есть мерзость, а что нет. Я уверен, что найдется много людей за "мерзость" и против неё.

Отправлено: 08:24, 21-08-2006 | #5


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


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

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


Вложения
Тип файла: rar UserData.rar
(164.3 Kb, 60 просмотров)

Большое спасибо AlexandrS (http://alex-co.org/) за то, что реализовал идею.
Большое спасибо Ivan1986 за информацию и программы!

Программу см. в аттаче. Поддержки ключей нет, но это и не требуется.
А если требуется - то великолепная программа, указанная Ivan1986, находится тут - http://mystuff.clarke.co.nz/wsname.asp

P.S. Архив перезалил и проверил. Хотя и выдает сообщение при разархивировании - все работает нормально, файл весит столько, сколько и должен. Непонятно только, почему форум вносит такие изменения в аттачи (то же было и выше, с файлами Ivan1986)

Отправлено: 10:02, 21-08-2006 | #6


Ветеран


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

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


а чем Wihu не устроил?

-------
Tega AutoPatcher. Все обновления для XP в одном пакете. http://tega.ru/dirk/links.html


Отправлено: 12:49, 21-08-2006 | #7


Аватара для S1NTEZ

Новый участник


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

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


Желательно было бы интерфейс сделать поприятней, покрасивше.
+ счетчик времени, т.е. если в течении допустим 60 сек не проявится никакой активности со стороны юзера, то программа завершалась с параметрами по умолчанию.

Отправлено: 01:09, 22-08-2006 | #8


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


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

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


Цитата:
а чем Wihu не устроил?
Для текущей задачи он мне не понравился.

Цитата:
Желательно было бы интерфейс сделать поприятней, покрасивше.
+ счетчик времени, т.е. если в течении допустим 60 сек не проявится никакой активности со стороны юзера, то программа завершалась с параметрами по умолчанию.
Над фейсом подумаю, сегодня, когда тестировал при установке ОС тоже об этом подумал.
По поводу счетчика - а смысл ? Далее ведь все равно ничего долгого по времени не проиходит, поэтому потери времени нет. Или есть другие аргументы ?

-------
AlexKan


Отправлено: 02:12, 22-08-2006 | #9


Аватара для S1NTEZ

Новый участник


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

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


Цитата:
По поводу счетчика - а смысл ? Далее ведь все равно ничего долгого по времени не проиходит, поэтому потери времени нет. Или есть другие аргументы ?
Пока процесс не будет завершон, установка не продолжится. Так и будет висеть на 12 минутах.

Отправлено: 17:59, 22-08-2006 | #10



Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка Windows 2000/XP/2003 » Помогите написать на Delphi маленькую программу! ИМХО, будет интересна многим!

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
C/C++ - Как написать программу-календарь? denver-312 Программирование и базы данных 1 28-11-2007 20:46
Разное - Хочу написать программу мониторинга запуска программ Lihonosov Программирование и базы данных 2 19-09-2007 22:33
Как написать Java программу для телефона xkspy Мобильные ОС, смартфоны и планшеты 3 18-07-2005 22:51
Delphi - Delphi | Написать плагин к винампу Interceptor Программирование и базы данных 7 15-02-2005 12:55
Delphi - Помогите написать кейлогер на Delphi Guest Программирование и базы данных 1 21-06-2004 01:50




 
Переход