Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

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

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

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

http://pblog.ru - постоянно обновляемый сборник статей.
Alar вне форума Ответить с цитированием
Старый 03.05.2007, 02: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 в 02:51.
Shuraken вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

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


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