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

Как купить рекламу на форуме


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

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


Ответ
 
Опции темы Поиск в этой теме
Старый 02.05.2007, 23:14   #1
bek@rt
 
Аватар для bek@rt
 
Регистрация: 02.05.2007
Сообщений: 4
Смех Системные вызовы...

... или как они там называются... Вообщем не могли бы вы , многоуважаемые программеры, вкраце рассказать, а еще лучше кинуть ссылочку, о процедурах или функциях которые, например, выключают комок или отрывают сидюшник...
Начинашка... и этим все сказано
bek@rt вне форума Ответить с цитированием
Старый 02.05.2007, 23:17   #2
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Сообщений: 16,677
По умолчанию

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

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

Выключить Винду:
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 в 01:51.
Shuraken вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме 20000 рублей в месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


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


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS