Usypianie komputera
Aby po kliknięciu przycisku Button1 uśpić komputer wysyłamy odpowiednią wiadomość za pomocą funkcji Windows API SendMessage():
void __fastcall TForm1::Button1Click(TObject *Sender) { SendMessage(Application->Handle, WM_SYSCOMMAND, SC_SCREENSAVE, -1); }