Usypianie komputera

Aby po kliknięciu przycisku Button1 uśpić komputer wysyłamy odpowiednią wiadomość za pomocą funkcji Windows API SendMessage():

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   SendMessage(Application->Handle, WM_SYSCOMMAND, SC_SCREENSAVE, -1);
}