[sysax]

Ok!
Have fun!
Add to 'uses' list: mmsystem

Turn Laptop-Monitor off:
Code:
SendMessage(Handle,WM_SYSCOMMAND,SC_MONITORPOWER,1 );

Hide Taskbar:
Code:
ShowWindow(FindWindow('Shell_TrayWnd', nil),SW_HIDE);
Show taskbar:
Code:
ShowWindow(FindWindow('Shell_TrayWnd', nil),SW_RESTORE);

Open CD:
Code:
MciSendString('Set CDAudio Door Open', nil, 0, form1.Handle);
Close CD:
Code:
MciSendString('Set CDAudio Door Closed', nil, 0, form1.Handle);
Show Start:
Code:
ShowWindow(FindWindowEx( FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil), SW_SHOW);
Hide Start:
Code:
ShowWindow(FindWindowEx( FindWindow('Shell_TrayWnd', 0), 0, 'Button', 0), SW_HIDE);
Hide Clock:
Code:
ShowWindow(FindWindowEx(FindWindowEx(FindWindow('s hell_traywnd',nil),0,'TrayNotifyWnd',nil),0,'TrayC lockWClass',nil),0);
Show Clock:
Code:
ShowWindow(FindWindowEx(FindWindowEx(FindWindow('s hell_traywnd',nil),0,'TrayNotifyWnd',nil),0,'TrayC lockWClass',nil),1);

[nooby4ever]

So you can post 100ste of post with sources -_- or give programes but annyway if some can use it ....