» Переход в ждущий режим - Операционная система, Процессы, Delphi. Библиотека исходников форума программистов - programmersforum.ru

delphi исходники для управления windows

У нас вы качаете только рабочие исходники

форум программистов

Home

Форум программистов Delphi

Переход в ждущий режим

Переход в ждущий режим

Переход в ждущий режим

procedure TForm1.N1Click(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;
  tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
  if AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength) then
  SetSystemPowerState(true, true);
end;
end;

Эта запись была добавлена в Четверг, 22 мая, 2008 - 16:12 В разделы Операционная система, Процессы. Вы можете подписаться на получение новых комментариев RSS 2.0 feed. Both comments and pings are currently closed.

Обсуждение закрыто.

Emtas турецкий пеллетный котёл

Пеллетные котлы интернет магазин

Архивы
- Май 2008
- Декабрь 2007
Категории
- Delphi (226)
  - BDE (3)
  - dll (10)
  - Exceptions (2)
  - IDE (10)
  - INI-файлы (3)
  - OLE (2)
  - БД (7)
  - Игры (19)
  - Медиа (11)
  - Ресурсы (12)
  - Сеть, модем (22)
  - Система (33)
  - Файлы (6)
  - Функции (6)
- Microsoft Office (12)
  - Excel (7)
  - Word (5)
- Pascal (12)
- Win API (85)
  - Hooks (4)
  - Завершение работы (13)
  - Запуск программ (16)
  - Общие вопросы (22)
  - Окна (1)
  - Переменные среды (9)
- Алгоритмы (86)
  - Графика (52)
  - Дата, время (6)
  - Кодирование (6)
  - Математика (4)
  - Преобразования (4)
- Аппаратные средства (76)
  - BIOS (3)
  - CD, DVD (7)
  - Видеосистема (3)
  - Диски (4)
  - Звуковые устройства (4)
  - Источники питания (1)
  - Клавиатура (24)
  - Мышка (5)
  - Порты (20)
  - Процессор (4)
  - Сетевая карта (1)
- Базы данных (29)
  - ADO (9)
  - BLOB поля (11)
  - DBase (1)
  - interbase (5)
  - MS Office (2)
  - sql (1)
- Классы (28)
  - Application (5)
  - TBitMap (4)
  - TCanvas (2)
  - TDateTime (1)
  - TFont (4)
  - TIcon (2)
  - TJpegImage (1)
  - TList (1)
  - TmetaFile (1)
  - TString, TStrings (4)
- Компоненты (172)
  - BitBtn (4)
  - ComboBox (2)
  - CoolBar (1)
  - DBCtrlGrid (1)
  - DBGrid (18)
  - DBImage (2)
  - DrawGrid (1)
  - Edit (3)
  - FileListBox (1)
  - form (29)
  - image (12)
  - ImageList (3)
  - Label (1)
  - ListBox (9)
  - ListView (2)
  - MediaPlayer (6)
  - Memo (8)
  - Menu (5)
  - PageControl (1)
  - ProgressBar (2)
  - Query (1)
  - RadioButton (1)
  - RadioGroup (1)
  - RichEdit (4)
  - ScrollBox (3)
  - ShellListView (2)
  - SpeedButton (1)
  - StatusBar (1)
  - StringGrid (4)
  - TabbedNoteBook (1)
  - Timer (2)
  - TrackBar (1)
  - TreeView (15)
  - WebBrowser (6)
- Операционная система (183)
  - Help (3)
  - Диалоги (25)
  - Процессы (26)
  - Реестр (5)
  - Сети, интернет (36)
  - Сообщения (7)
  - Файловая система (37)
  - Экран (13)
  - Ярлыки (5)
- Разное (79)
Кейворды

форум программистов