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

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

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

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

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

←   Апрель 2004   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Автор
Сергей

Статистика

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

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHIMASTER.ru

Выпуск от 07.04.04 09:05

Лучшее из нашего FAQ   |x|
Как программно выключить компьютер (даже если к нему подключены другие пользователи или работает DOS-программа)?
Проверено по Вин95 (M.Scheduler M_Scheduler@Yahoo.com)

if not ExitWindowsEx(EWX_Force or
                     EWX_PowerOff or
                     EWX_ShutDown, 0) then
  MessageBox(0, 'An application refused to terminate', 'Win32', MB_OK);


Комментарий от "Макса" (halyavshik@mailru.com)
небольшое дополнение как выключить компутер с NT корректно компилируется в Delphi5 в 4 какие-то проблемы с описанием констант привиллегий в других версиях Delphi не проверял:

program NTShutdown;
uses windows;
var
    hToken: THandle;
    tkp: TTokenPrivileges;
    ReturnLength: Cardinal;

begin
    if OpenProcessToken(GetCurrentProcess(),
TOKEN_ADJUST_PRIVILEGES or
TOKEN_QUERY, hToken) then begin
   &n
 bsp;    LookupPrivilegeValue(nil, 'SeShutdownPrivilege',
tkp.Privileges[0].Luid);

        tkp.PrivilegeCount:=1; // one privelege to set
        tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;

        if AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength)
then
            ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF, 0);
    end;
end.

»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
  • XML & RPC
    В одной документашке по программе нашел следующее: "XML испольуется для платформонезависимого удаленного вызова ...
  • неснимаемое приложение
    Возможно ли как-то сделать так, чтобы приложение нельзя было закрыть через Диспетчер задач?
  • Поддержка транзакций
    Используется база данных в сети через Socket`ы все работает нормально но при вставки новой записи кодом: ClientDataSet1....
  • Вызов модальной формы в DLL из DLL...
    Привет Мастера... Ситуация такая: Вызываю модально форму в DLL из другой DLL, форма вызывается, но при этом она также ...
  • To: Владимиром Кладовым
    To: Владимиром Кладовым. Zdravstvuite Edinstvenii shans chto vi ptochtote moio soobshenie zdes, ia napisal komponent ...
  • ActiveX control
    Подскажите пожалуста, как разместить на форме ActiveXcontrol зная его GUID?
  • ScreenSaver
    Привет всем! Надо сделать собственный ScreenSaver, кто подскажет как, или где про это можно почитать. Спасибо.
У нас большой выбор статей   |x|
Победитель конкурса Вывод графики на рабочий стол Windows с использованием оверлеев DirectX
Рисование на рабочем столе "под значками" с большой скоростью и без всяких
визуальных конфликтов с GDI - "то-что-делает-WinAmp'овский-AVS-если-включить-overlay-mode-и-set-desktop-to-color". Как оно работает, как сделать подобное и для чего ещё можно использовать.
Новинки книжного рынка   |x|
DirectX. Графика в проектах Delphi (с CD-ROM)
Книга посвящена использованию модулей DirectX в приложениях, разрабатываемых в Delphi. Начиная с простых примеров, последовательно и подробно рассматривается создание объектов двумерной и трехмерной графики, визуальные и цветовые эффекты, а также обсуждаются дополнительные темы, такие как быстрая работа с устройствами ввода. Большое внимание уделяется вопросам оптимизации и ускорения работы приложений. Книга содержит практические решения проблем, возникающих при программировании игр и других приложений, нуждающихся в высокой скорости вывода графики в среде Windows. Прилагается компакт-диск с инструментальными средствами, кодами и демонстрационными версиями рассматриваемых примеров.
Автор: Краснов
Другие сайты о DELPHI   |x|
Векторная графика для Delphi и не только
На сайте представлены VCL библиотека для визуализации, импорта и экспорта в векторные графические форматы DWG/DXF/HPGL2, компоненты для предварительного просмотра и печати, перевода приложений на ...
» Оценка сайта: 3
Опрос населения :)
Стоит ли устраивать встречи программистов в реале? (пирушки :)
»»» Обязательно!
»»» Иногда можно
»»» Я туда не пойду
»»» Категорически нет
Для души

Хокку дня
О, как печально звучат под окном
Три ненастоенных сямисэна
Пьяные гейши достали...

Афоризмы
Образование ума не добавляет.... ( thank you RITA )

Фраза дня
Больше всего жертв требует военное искусство

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В городе Зайон в Иллонойсе (США) запрещается давать зажженые сигары кошкам, собакам и другим домашним животным.
В Кармеле в штате Нью Йорк (США), мужчине грозит штраф, если он выйдет на улицу в штанах, которые не подходят к пиджаку.

И на закуску коротенький анекдот
Пассажир поезда:
- Проводник,у вас можно курить?
- Нет!
- Тогда откуда взялись эти окурки?
- От тех, кто не задаёт вопросов.

Фотоприколы.
Начните день с хорошего настроения!
http://www.delphimaster.ru/cgi-bin/prikol.pl?id=83

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (merlin@delphimaster.ru)

Добро пожаловать на сайт -= Мастера DELPHI =- 

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

В избранное