Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как можно заблокировать вход в Windows Xp, блокирование входа пользователя 
:(
    Опции темы
kosyak
Дата 17.5.2011, 02:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 15.5.2011

Репутация: нет
Всего: нет



Цитата(Dik0n @ 17.5.2011,  01:18)
Цитата(kosyak @  17.5.2011,  00:47 Найти цитируемый пост)
Сюда что то надо писать

Ну дак проверяй свое условие, вставлена ли нужная флешка

Код

if если не та флешка then
begin
  Result := WLX_SAS_ACTION_NONE;
  Exit;
end;

просто присвоить result не получиться, так как функция возвращает integer, надо объявить const WLX_SAS_ACTION_LOGON, WLX_SAS_ACTION_NONE и WLX_SAS_ACTION_SHUTDOWN и происвоить им значение, пока к сожалению,   не нашел чему они равняются


Если я  ошибаюсь, поправьте  меня пожалуйста

Это сообщение отредактировал(а) kosyak - 17.5.2011, 02:27
PM MAIL   Вверх
Dik0n
Дата 17.5.2011, 03:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 153
Регистрация: 11.5.2011

Репутация: 1
Всего: 10



Ну дак погуглить пол минуты делов то

Код

const
WLX_SAS_ACTION_LOGON                       = 1;
WLX_SAS_ACTION_NONE                         = 2;
WLX_SAS_ACTION_LOCK_WKSTA             = 3;
WLX_SAS_ACTION_LOGOFF                      = 4;
WLX_SAS_ACTION_SHUTDOWN                = 5;
WLX_SAS_ACTION_PWD_CHANGED          = 6;
WLX_SAS_ACTION_TASKLIST                    = 7;
WLX_SAS_ACTION_UNLOCK_WKSTA         = 8;
WLX_SAS_ACTION_FORCE_LOGOFF                 9;
WLX_SAS_ACTION_SHUTDOWN_POWER_OFF  =   10;
WLX_SAS_ACTION_SHUTDOWN_REBOOT         =   11;
WLX_SAS_ACTION_SHUTDOWN_SLEEP            =   12;
WLX_SAS_ACTION_SHUTDOWN_SLEEP2          =    13;
WLX_SAS_ACTION_SHUTDOWN_HIBERNATE    =    14;
WLX_SAS_ACTION_RECONNECTED                   = 15;
WLX_SAS_ACTION_DELAYED_FORCE_LOGOFF  =        16;
WLX_SAS_ACTION_SWITCH_CONSOLE             =   17;

--------------------
▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓ ◄◄◄ Сотри монеткой защитный слой
PM MAIL WWW   Вверх
kosyak
Дата 17.5.2011, 03:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 15.5.2011

Репутация: нет
Всего: нет




большое спасибо, щас попробую 

Это сообщение отредактировал(а) kosyak - 17.5.2011, 03:16
PM MAIL   Вверх
kosyak
Дата 17.5.2011, 03:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 15.5.2011

Репутация: нет
Всего: нет



Если я создаю условие 
Код

if условие then
   begin 
     result:=WLX_SAS_ACTION_NONE;
     exit;
   end;


то ничего не происходит, я нормально логинюсь, хотя я попадаю на result, проверял с помощью создания текстового файла.
Пытался еще делать просто Result:=WLX_SAS_ACTION_NONE, в этом случае как только я ввожу пароль, появляется синий экран в котором упоминается winlogon


нет, все таки нельзя передавать result:=WLX_SAS_ACTION_NONE, система сваливается с синим экраном, может чего-то не хватает еще?

Это сообщение отредактировал(а) kosyak - 17.5.2011, 07:43
PM MAIL   Вверх
kosyak
Дата 17.5.2011, 12:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 15.5.2011

Репутация: нет
Всего: нет



Блин, ничего не получается, все время синий экран вылезает, люди добрые, помогите советом, кто разбирался уже с данным вопросом smile 
PM MAIL   Вверх
Dik0n
Дата 17.5.2011, 13:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 153
Регистрация: 11.5.2011

Репутация: 1
Всего: 10



--------------------
▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓ ◄◄◄ Сотри монеткой защитный слой
PM MAIL WWW   Вверх
kosyak
Дата 19.5.2011, 00:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 15.5.2011

Репутация: нет
Всего: нет



Спасибо за ссылки, вопрос почти решен, очень полезно, кто хочет разобраться, почитать SDK Platform, есть вариант для Delphi, может и урезанный конечно, там находятся две dll GinaHook и GinaStub, обе замечательно работают и переделываются под свои нужды

ссылка на SDK Platform GINA&Winlogon: http://rghost.ru/6989431

Это сообщение отредактировал(а) kosyak - 19.5.2011, 01:55
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »


 




[ Время генерации скрипта: 0.0455 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.