VPF::Управление компьютером!!! - Форум программистов

Sergey89

Дата 10.9.2004, 12:26 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Как через Delphi выключать, перезагружать компьютер и как его перевести в спящий/ждущий режим?

dm9

Дата 10.9.2004, 13:11 (ссылка)

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

Загрузка ...

Дмитрий Копытин

Профиль
Группа: Vingrad developer
Сообщений: 3876
Регистрация: 22.7.2002
Где: Москва

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

Скачать Delphi Russian Knowledge Base (прикреплённый топик в этом форуме), открыть глаза... продолжать?

decoder

Дата 10.9.2004, 16:08 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 204
Регистрация: 18.5.2004
Где: Харьков(хохол, к сожалению)

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

Вот статейка

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

Молчать, я вас спрашиваю!

Pakshin A. S.

Дата 11.9.2004, 22:53 (ссылка)

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

Загрузка ...

Эксперт

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

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

Delphi Russian Knowledge Base - это лучше всего, но можно и сейчас написать кое-что...
Есть несколько решений:
1)

Код


ExitWindows(EW_REBOOTSYSTEM, 0);
// или
ExitWindows(EW_RESTARTWINDOWS, 0);

Код


procedure RebootSystem;
var 
handle, ph:THandle;
pid: DWord;
luid:TlargeInteger;
dummy, priv: TOKEN_PRIVILEGES;
ver: TOSVERIONINFO;
begin
ver.dwOSVersionInfoSize:=Sizeof(ver;
GetVersionEx(ver);
if ver.dwPlatformId = VER_PlATFORM_WIN32_NT 
then
begin
pid:=GetCurrentProcessId;
ph:=OpenProcess(PROCESSALL_ACCESS, false, pid);
if OpenProcessToken(ph, TOKEN_ADJUST_PRIVILEGES, handle) and
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;
ExitWndowsEX(EWX_REBOOT, 0);
end;

Код


procedure Shutdown(name:string; // имя машины (\\SERVER)
Message:string; // сообщение
Dalay:integer; // задержка перед рестартом
restart, CloseAll:boolean);
var
 ph:THandle;
tp, prevst: TTokenPrivileges;
rl:DWord;
begin
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, ph);
LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tp.Privileges[0].luid);
tp.PrivilegeCount:=1; tp.Privileges[0].Attributes:=2;
AdjustTokenPrivileges(ph, false, tp, SizeOf(prevst), prevst, rl);
InitiateSystemShutdown(PChar(name), PChar(Message), Delay, Restart, CloseAll);
end;

Код


Win32Check(ExitWindows(0, 0)); // Eixt System;
Win32Check(ExitWindowsEx(EWX_REBOOT, 0)); // Restart
Win32Check(ExitWindowsEx(EWX_SHUTDOWN, 0)); // Exit
Win32Check(ExitWindowsEx(EWX_LOGOFF, 0)); // Change user

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