|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.05.2007, 00:14 | #1 |
Регистрация: 03.05.2007
Сообщений: 4
|
Системные вызовы...
... или как они там называются... Вообщем не могли бы вы , многоуважаемые программеры, вкраце рассказать, а еще лучше кинуть ссылочку, о процедурах или функциях которые, например, выключают комок или отрывают сидюшник...
Начинашка... и этим все сказано
|
03.05.2007, 00:17 | #2 |
Александр
Администратор
Регистрация: 28.10.2006
Сообщений: 17,596
|
http://www.programmersclub.ru/simply-art-windows
http://pblog.ru - постоянно обновляемый сборник статей. |
03.05.2007, 02:48 | #3 |
Форумчанин
Регистрация: 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. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Delphi. Программа, которая использует системные функции для получения информации о файловой системе | metamfetamin | Помощь студентам | 16 | 08.11.2007 13:24 |
Системные пути | Lonix | Общие вопросы Delphi | 8 | 14.09.2007 17:10 |
СИСТЕМНЫЕ ОШИБКИ | HAMMAN | Свободное общение | 2 | 29.05.2007 20:26 |