Системные вызовы...

[bek@rt]

... или как они там называются... Вообщем не могли бы вы , многоуважаемые программеры, вкраце рассказать, а еще лучше кинуть ссылочку, о процедурах или функциях которые, например, выключают комок или отрывают сидюшник...

[Alar]

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

http://pblog.ru - постоянно обновляемый сборник статей.

[Shuraken]

Выключить Винду:
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);