Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Низкоуровневое программирование > Win Api
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 03.05.2007, 00:14   #1
bek@rt
 
Аватар для bek@rt
 
Регистрация: 03.05.2007
Адрес: Дагавпилс, Латвия
Сообщений: 4
Репутация: 10

skype: bekartik
Смех Системные вызовы...

... или как они там называются... Вообщем не могли бы вы , многоуважаемые программеры, вкраце рассказать, а еще лучше кинуть ссылочку, о процедурах или функциях которые, например, выключают комок или отрывают сидюшник...
bek@rt вне форума   Ответить с цитированием
Старый 03.05.2007, 00:17   #2
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Адрес: Химки
Сообщений: 12,907
Репутация: 2675
По умолчанию

http://www.programmersclub.ru/simply-art-windows

http://pblog.ru - постоянно обновляемый сборник статей.
Alar вне форума   Ответить с цитированием
Старый 03.05.2007, 02:48   #3
Shuraken
Форумчанин
 
Аватар для Shuraken
 
Регистрация: 16.04.2007
Сообщений: 298
Репутация: 285
По умолчанию

Выключить Винду:
procedure TForm1.Button1Click(Sender: TObject);
var
hproc, htoken: THandle;
ht: cardinal;
luid: int64;
luidattr: LUID_AND_ATTRIBUTES;
priv: Token_Privileges;
r: DWORD;
res: BOOL;
dal: LongBool;
buf: PChar;
begin
hProc:=GetCurrentProcess;
hToken:=0;
OpenProcessToken(hProc, TOKEN_ADJUST_PRIVILEGES, hToken);
LookupPrivilegeValue(nil, 'SeShutDownPrivilege', luid);
luidattr.Luid := luid;
luidattr.Attributes:=SE_PRIVILEGE_E NABLED;
priv.PrivilegeCount:=1;
priv.Privileges[0]:=luidattr;
r:=0;
res:=AdjustTokenPrivileges(hToken, false, priv, 0, nil, r);
ExitWindowsEx(EWX_Shutdown+EWX_POWE ROFF,0);
end;

Открыть, закрыть сидюк (код рабочий, не мой, взято с drkb)

mciSendString('Set cdaudio Door Open Wait', nil, 0, handle);
mciSendCommand(mp.DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);
__________________
Не надо ничего усложнять. Все достаточно тривиально.

Последний раз редактировалось Shuraken; 03.05.2007 в 02:51.
Shuraken вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Delphi. Программа, которая использует системные функции для получения информации о файловой системе metamfetamin Помощь студентам 16 08.11.2007 14:24
Системные пути Lonix Общие вопросы Delphi 8 14.09.2007 17:10
СИСТЕМНЫЕ ОШИБКИ HAMMAN Свободное общение 2 29.05.2007 20:26


17:48.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru