Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2003.11.27;
Скачать: [xml.tar.bz2];

Вниз

Выключение компьютера   Найти похожие ветки 

 
Romka   (2003-09-17 17:15) [0]

Как выключить компьютер по нажатию Button,с сохранением данных


 
AlexandrN   (2003-09-17 17:39) [1]

Смотрим на верх страницы и видим:
"UBPFD - бесплатная база готовых решений для Delphi"
нажимаем на LINK.
Далее лезем в раздел "Управление ОС"
и там читаем и смотрим "Подробности"


 
Romka   (2003-09-17 17:54) [2]

ExitWindowsEx(EWX_POWEROFF or ewx_force,0); не работает


 
ZEE   (2003-09-17 17:57) [3]

надо еще привелегии установить...

procedure ShutdownComputer;
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);
ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF,0);
end;


 
Romka   (2003-09-18 12:20) [4]

ZEE нифига не получается выдает ошибку о 3 переменных:
Illegal character in input file:""($A0)


 
Song   (2003-09-18 12:30) [5]

:)
А ты не ленись, ручками набери!


 
Лёша   (2003-09-18 13:09) [6]

см.
http://www.delphimaster.ru/cgi-bin/forum.pl?&id=1057473386&n=2&p=1


 
Romka   (2003-09-18 13:10) [7]

Процедура работает но комп все равно не выключает. Завершает все процессы а питание не обрубает.


 
ZEE   (2003-09-18 16:15) [8]

>Romka © (18.09.03 13:10) [7]
а корпус ATX? а комп с ACPI? Пуск\Завершение работы - питание вырубает нормально? ...



Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2003.11.27;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.009 c
1-89845
WCM
2003-11-16 18:51
2003.11.27
Создание объектов


1-89888
Alexx
2003-11-15 16:39
2003.11.27
Как в компоненте DateTimePicker поменять шаг


1-89831
Goorus
2003-11-17 03:09
2003.11.27
Graphics


3-89770
AndDem
2003-10-31 14:31
2003.11.27
Scroll DBGrid


1-89830
romeo
2003-11-18 15:35
2003.11.27
Все время черно-белая картинка!!! Блин...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский