VPF::Создание пароля в Edit1 ? - Форум программистов

Trotter

Дата 28.11.2006, 00:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 122
Регистрация: 24.10.2006
Где: Нижний Новгород

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

Парни Help немогу сделать следующие
ПРИМЕР:
Есть прога, на форме есть Edit1,Button1
{при нажатии на Button1 запускается Shutdow -s} отключить это можно тока если в Edit1 написать напоример '1'
то Shutdown -a запускается и комп невырубается
ДАЙТЕ КОД!
Зарание спасибо
Если кто знает другие способы вырубить програмно комп, пишите

Guedda

Дата 28.11.2006, 09:04 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

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

Читал правила:

Цитата

1. Заголовок сообщения должен кратко отражать суть проблемы, нельзя давать заголовки типа «Помогите», «Срочно нужна помощь», «Есть вопрос», «Очень надо», «Сложный вопрос по программированию» и тому подобное.

Ссылка на правила
Да и не понятна ошибка. Приведи код, так как всё должно работать.

--------------------

Ll 2

Zero

Дата 28.11.2006, 09:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

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

Непонял про чё ты, но если тебе просто вырубить комп, то так:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  hToken: THandle;
  tkp: TTokenPrivileges;
  ReturnLength: Cardinal;
begin   // Выключить компьютер
  if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then
    begin
      LookupPrivilegeValue(nil, 'SeShutdownPrivilege',tkp.Privileges[0].Luid);
      tkp.PrivilegeCount:=1; // one privelege to set
      tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
      if AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength)then
      ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF, 0);
    end;
end;

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