Shell в XP

← →
Сергей Ю. (2004-06-15 10:02) [0]

Вот создал свой шелл. Все прекрасно работает в 98/ME. Там я его в system.ini прописал все ок. А как его заставить запускаться в XP? Я его в реестр вписал в параметрах winlogona, но при этом запрашивается имя пользователя, сам этот winlogon грузится и т.д. А хочется чтоб комп врубился и сразу мой шелл (как в 98-ой)?

← →
Stany © (2004-06-21 09:33) [1]

Молодец. А taskbar у твого шелла есть? Дома буду гляну - было сто пудов.

← →
Stany © (2004-06-21 10:16) [2]

в нете везде написано:HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\ Shell

← →
GrayFace © (2004-06-21 11:34) [3]

Неужели нужен именно шелл, ведь гораздо легче добавить нужные фичи к стандартному. Шеллы, которые я видел, и в подметки не годились виндовскому, но твой посмотреть было бы интересно. Он есть в инете?

← →
Сергей Ю. (2004-06-21 13:55) [4]

В инете нет. Шелл нужен для клуба, стандартный неподходит, т.к. клиент должен видеть лишь то что ему можно видеть + процессы авторизации при посадке и т.д. Вообщем это даже не вопрос. Посмотреть можно тут: г.Пермь, "Интернет-центр К-77" или компьютерный клуб "Драйвер", приезжайте :).

← →
Петров Денис © (2004-06-21 14:15) [5]

Тебе нужно включить еще и автоматический вход в систему.
Как вариант:

1. Регистрация твоей оболочки в системе:

procedure RegisterShell(const User, Password, Domain: string); var R: TRegistry; begin R := TRegistry.Create; try R.RootKey := HKEY_LOCAL_MACHINE; R.OpenKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", False); R.WriteString("Shell", "MyShell.exe"); R.WriteString("AutoAdminLogon", "1"); R.WriteInteger("ShowLogonOptions", 0); R.WriteString("DefaultUserName", User); R.WriteString("DefaultDomainName", Domain); R.WriteString("DefaultPassword", Password); R.WriteInteger("DisableStatusMessages", 1); finally R.Free; end; end;

2. Так можно восстановить Explorer обратно:

procedure UnRegisterShell; var R: TRegistry; begin R := TRegistry.Create; try R.RootKey := HKEY_LOCAL_MACHINE; R.OpenKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", False); { восстановление Explorer в качестве оболочки Windows } R.WriteString("Shell", "Explorer.exe"); R.WriteString("AutoAdminLogon", "0"); R.WriteInteger("ShowLogonOptions", 1); R.DeleteValue("DefaultPassword"); R.WriteInteger("DisableStatusMessages", 0); finally R.Free; end; end;

Хотя, IMHO, для реализации своего собственного способа входа в систему, все-таки более корректным вариантом является написание обертки вокруг MSGINA.

← →
Сергей Ю. (2004-06-21 20:25) [6]

Спасибо, все работает. Только вот при загрузке ХР экран с приветстием все время "моргает", то приветствие, то пусто и т.п., будто она пытается грузить оболочки, они ей "ненравятся" :) и она пробует другую. (Сам-себя читаю - бред какойто :) но как это другими словами описать непойму). Видемо винлогон так робит ;(

← →
Dimaxx (2004-06-21 23:35) [7]

2 GrayFace: А Aston чем тебе не угодил? Жрет памяти меньше, чем explorer и работает устойчивее.

← →
Сергей Ю. (2004-06-22 12:00) [8]

См [6]

← →
Петров Денис © (2004-06-22 12:14) [9]

> экран с приветстием все время "моргает"

Просто отрабатывает автоматический вход в систему. От того, что ты его включил, winlogon работать не перестал, он просто автоматически "заполняет" данные для входа в систему.

Повторюсь - хочешь красивое решение, пиши обертку вокруг MSGINA.

Кому интересно, вот можете поглядеть на аналогичное мое творение. Очень маленький т.к. на API. Не совсем доделан, но уже используется в клубе весьма успешно.

Работает как под Explorer так и без (лучше без). И лучше под XP. Под 98 без гарантий.

Установка -install
Удаление -uninstall
Пароль 3141592653

http://dvmuratov.narod.ru/Release.rar

> Stany © (24.06.04 08:24) [11]

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

Dimaxx (21.06.04 23:35) [7]
Функциональности нету. Не помню, че мне в нем не понравилось.

Stany © (24.06.04 08:24) [11]
Вначале открывай, как страницу, внутри - не битая.

Shell в XP Найти похожие ветки