Вверх ↑
Разработчик
Ответов: 26061
Рейтинг: 2120
#1: 2008-12-16 15:19:22 ЛС | профиль | цитата
udavos, вот так попробуй



Add(InlineCode,3929185,154,154)
{
WorkPoints=#12:doMonitorOFF|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses Windows,Kol,Share,Debug,Messages;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|57: procedure doMonitorOFF(var _Data:TData; Index:word);|0:|5: end;|0:|14:implementation|0:|35:procedure THiAsmClass.doMonitorOFF;|3:var|14: scm:integer;|5:begin|25: if ReadBool(_Data) then|12: scm := 1|6: else|13: scm := 0;|65: SendMessage(Applet.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, scm)|4:end;|0:|4:end.|
}

карма: 22

0