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) thenbegin &!
nbsp; 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.
Delphi 7 ToolsAPI
С примерами и пояснениями рассмотрены таки вопросы интеграции с IDE: создание pop-up меню своего компонента, создание редакторов свойств, написание простейшего эксперта, расположение эксперта внутри dll библиотеки
Delphi 6 в подлиннике
Delphi 6 - новая версия популярной системы быстрой разработки приложений. В книге описываются инструментальные средства среды Delphi 6, приводятся основы языка программирования Object Pascal и рассматриваются компоненты, свойства, методы и события, необходимые для разработки широкого спектра программ. Особое внимание уделяется работе с базами данных. Показывается использование как локальных, так и удаленных баз данных, включая создание многоуровневых информационных систем и публикацию результатов запросов через Интернет. Благодаря большому количеству затронутых тем, подробному изложению и многочисленным примерам книга будет полезна как начинающим, так и опытным программистам.
Автор: Гофман В.
.::Elite Coding Group::. Elite Coding Group - Молодая, быстро развивающаяся группа программистов, присоединяйся к нам! На сайте выложенно огромное количество статей. На сайте собранны статьи по CSS, HTML, DELPHI, PHP, WIN98 ...
» Оценка сайта: 3
Опрос населения :)
Новый журнал для программистов "RSDN Magazine". Ваше мнение, нужен ли он вообще?
Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!
На сайте выложен анонс пилотного выпуска журнала, вступительное слово от редакции.
Для души
Хокку дня
Соевым соусом морду намажу Сяду в кусты у дороги Чем я не нинзя?
Афоризмы
Интуиция, как правило, человека подводит. Доказательством этому может служить рентабельность казино....
Фраза дня
Большой пpогpамме - большие глюки.
Дурацкие законы (информация предоставлена сайтом kurilka.com)
В Хартфорде в Коннектикуте (США) супругам запрещено целоваться по воскресеньям.
В городе Нью Бритэн (США) пожарные машины не могут ездить быстрее, чем со скоростью в 25 миль в час, даже если они едут на пожар.
И на закуску коротенький анекдот
- Как ты приучила своего мужа раньше возвращаться домой? - Очень просто. Приходит он в очередной раз за полночь, а я и окликаю из комнаты: "Вася, это ты?" - А он? - А он Коля.