Погасить монитор

[Korsar]

Может проходила эта тама, но все же... Нужно программно погасить монитор. Полазив по разным сайтам посвещенным Delphi я нашел кое-что, точнее, не важно на какое событие пишем
SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 0) // гасит монитор
SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, -1) // включает монитор

В 98-й работат, но как-то криво, экран черный, мигает курсор. В 2000 и ХР вообще этот номер не прокатывает.
Что еще добавить? А может что другое нужно? Заранее всем спасибо.

[Molchun]

Скопировал себе из какой-то рассылки, может пригодится:
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->
Монитор ПК можно перевести в одно из следующих состояний: ON,OFF,STANDBY,SUSPEND,REDUCED.
Делается это следующим образом:
- Проверка версии VBE:
mov ax, 4f10h
xor bx, bx
xor di, di
mov es, bx
int 10h
Теперь, если AL=4fh и AH=00h, то Power Manegement поддерживается.
- Установка режима:
mov ax, 4f10h
mov bx, 0xx01h
int 10h
Где, xx = 0x00(ON), 0x04(OFF),
0x01(STANDBY), 0x02(SUSPEND), 0x08(REDUCED).
Прошу прощения за краткость.
<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
Сам никогда не пробовал, да и asm в Delphi использовать не приходилось. Если удастся сделать что-нибудь рабочее - запость код тут

[Korsar]

<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Сам никогда не пробовал, да и asm в Delphi использовать не приходилось.<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
Спасибо. Обязательно попробую и сообщу результат. А может кто еще что-нибудь подскажет.