Вверх ↑
Ответов: 20
Рейтинг: 1
#1: 2008-12-16 15:16:00 ЛС | профиль | цитата
помогите оптимизировать код для Inline Code
code_10964.txt

------------ Дoбавленo:

Помогите пожалуйста оптимизировать код для InlineCode

#pas
unit hiMonitor;

interface

uses Windows,Kol,Share,Debug,Messages;

type
THIMonitor = class(TDebug)
procedure _work_doMonitorOFF(var _Data:TData; Index:word);
end;

implementation

procedure THIMonitor._work_doMonitorOFF;
var
scm:integer;
begin
if ReadBool(_Data) then
scm := 1
else scm := 0;
SendMessage(Applet.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, scm)
end;
end.
карма: 0

0
файлы: 1code_10964.txt [423B] [670]