Решил показать несколько "маленьких хитростей" для новичков, возможно кому то они понадобятся

Итак начнем...

Узнать все о тойота rav4 можно на сайте toyota-rav-4.ru!

1) Как сделать так чтобы кнопка пуск больше не работала?

Код

EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil), false);

EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil), true);

2) Как выключить монитор?

Код
SendMessage(Application.Handle, wm_SysCommand, SC_MonitorPower, 1);

SendMessage(Application.Handle, wm_SysCommand, SC_MonitorPower, 0);

3) Как скрыть пуск?

Код
procedure HideStartButton(visi:boolean);
var
Tray, Child : hWnd;
Cerbo : Array[0..127] of Char;
Serio : String;
begin
Tray := FindWindow('Shell_TrayWnd', nil);
Child := GetWindow(Tray, GW_CHILD);
while Child <> 0 do
begin
If GetClassName(Child, Cerbo, SizeOf(Cerbo)) > 0 then
begin
Serio := StrPAS(Cerbo);
If UpperCase(Serio) = 'BUTTON' then
begin
IsWindowVisible(Child);
If Visi then
ShowWindow(Child, 1)
else
ShowWindow(Child, 0);
end;
end;
Child := GetWindow(Child, GW_HWNDNEXT);
end;
end;

4) Как сменить позиции курсора?

Код

Setcursorpos(random(500),random(800));

5) Как сделать так, чтобы пропали часы?

Код
ShowWindow(FindWindowEx( FindWindowEx( FindWindow('shell_traywnd', nil), 0, 'TrayNotifyWnd', nil), 0, 'TrayClockWClass', nil), 0);

ShowWindow( FindWindowEx( FindWindowEx( FindWindow('shell_traywnd', nil), 0, 'TrayNotifyWnd', nil), 0, 'TrayClockWClass', nil), 1);