|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
28.10.2007, 22:38 | #11 |
Пользователь
Регистрация: 13.10.2007
Сообщений: 11
|
Как сделать так чтоб сообщение с обратным отсчетом времени находящееся поверх остальных окон как при shutdown?
|
28.10.2007, 23:02 | #12 |
Форумчанин
Регистрация: 16.04.2007
Сообщений: 298
|
FormStyle := fsStayOnTop;
procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Caption := TimeToStr(StrToTime('23:59') - Time); end;
Не надо ничего усложнять. Все достаточно тривиально.
|
07.12.2007, 23:47 | #13 |
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
Вот код перезагрузки. Он прост и надёжен , чётко работает.
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 ExitWindowsEX(EWX_REBOOT, 0); end; end; Есле захочеш выключить компьютер то измени значение ExitWindowsEX(EWX_REBOOT, 0); на ExitWindowsEX(EWX_POWEROFF, 0); Что бы поставить компьютер в ждущий режи используй команду SetSystemPowerState(True, True); Вот и всё! С уважением Terran!!!
Всегда рад помочь!
|
09.12.2007, 09:15 | #14 | |
Пользователь
Регистрация: 03.11.2007
Сообщений: 25
|
Цитата:
Код:
Последний раз редактировалось zAlexandrz; 09.12.2007 в 17:12. |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перезагрузка компьютера | antoha.by | Паскаль, Turbo Pascal, PascalABC.NET | 13 | 04.08.2008 09:39 |
Перезагрузка Windows | asja | Компьютерное железо | 1 | 11.05.2008 13:22 |
Выключение и перезагрузка | Патрон | Win Api | 8 | 26.03.2008 16:24 |
Перезагрузка компа | Pusher | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 14 | 19.02.2008 20:54 |
Перезагрузка Windows | agatos | Свободное общение | 7 | 21.01.2008 17:45 |