Выключение компа, открытие CD-ROM

[бодяга]

Подскажите пож-ста, какой код поставить на button чтоб 1-я выкл.компа была 2-я вкл caps lock а 3-я открытие сидюка

[_SERGEYX_]

1. ExitWindowsEx(EWX_LOGOFF or ewx_force,0);
2. if GetKeyState(VK_CAPITAL) and 1 = 0 then .....
3.
uses
MMSystem;

procedure TForm1.OpenBtnClick(Sender: TObject);
begin
mciSendString('открыта', nil, 0, handle);
end;

procedure TForm1.CloseBtnClick(Sender: TObject);
begin
mciSendString('закрыта', nil, 0, handle);
end;

[=LeonZone=]

3) В Uses добавить MMSystem

mciSendString('Set cdaudio door open wait', nil, 0, handle); //Открыть
mciSendString('Set cdaudio door closed wait', nil, 0, handle); //Закрыть