Отправляет email-рассылки с помощью сервиса Sendsay

Delphi для профессионалов

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Ноябрь 2002   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
13.11.2002
04:48:29
05:05:04
14
14.11.2002
01:29:03
16:05:03
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Автор
Ведущий

Статистика

8.943 подписчиков
-22 за неделю
←   Все выпуски   →

Delphi для профессионалов - Завершение работы Windows


Информационный Канал Subscribe.Ru
eServer.ru :: Хостинг без ограничений!
Рассылка: Delphi для профессионалов

Количество подписчиков: 73
Рассылка 'Delphi для профессионалов'

Выберите действие:
Заглавие (одной строкой) :
Содержание :

От кого :
Не показывать мой e-mail другим пользователям

Завершение работы Windows

Ниже корректно работающий код для Win9x и WinNT. Проверено под D4. 

uses Windows;

procedure RebootSystem;
var
  handle, ph  : THandle;
  pid         : DWORD;
  luid        : TLargeInteger;
  dummy, priv : TOKEN_PRIVILEGES;
  ver         : TOSVERSIONINFO;
begin
  ver.dwOSVersionInfoSize:=Sizeof(ver);
  GetVersionEx(ver);
  if ver.dwPlatformId=VER_PLATFORM_WIN32_NT then begin
    pid:=GetCurrentProcessId;
    ph:=OpenProcess(PROCESS_ALL_ACCESS, False, pid);
    if OpenProcessToken(ph,TOKEN_ADJUST_PRIVILEGES, handle) then
      if LookupPrivilegeValue(nil,'SeShutdownPrivilege', luid) then begin
        priv.PrivilegeCount:=1;
        priv.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
        priv.Privileges[0].Luid:=luid;
        AdjustTokenPrivileges(handle,False,priv,0,dummy,pid);
    end;
  end;
  ExitWindowsEx(EWX_REBOOT,0);
end;

Автор: Дмитрий Слабко.

Все вопросы присылайте по адресу: delphi-ask@igp.org.ua
Все ответы присылайте по адресу: delphi-reply@igp.org.ua
Все подсказки присылайте по адресу: delphi-hint@igp.org.ua
Со всем списком советов можно познакомиться по адресу: http://igp.org.ua/delphine/.
Наш проект Delphine можно найти по следующей ссылке: http://igp.org.ua/products/delphine/.

Заходите в наш форум: Форум Delphi-профессионалов. Адрес: http://igp.org.ua/cgi-bin/yabb/yabb.pl.
Здесь Вы найдете ответы на все Ваши вопросы!

Выберите действие:
Заглавие (одной строкой) :
Содержание :

От кого :
Не показывать мой e-mail другим пользователям

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное