Самый маленький шаблон в Delphi будет весить 14 – 15 кб (Меньше не возможно на Delphi)…
Умысел кода в том чтобы прога запускалась и делала действие через sleep(second)… program Project1;
uses
Windows;
Var
MSG:TMSG;
Procedure ProcessingMessages(Message,LParam,WParam : Cardinal);
Begin
//Exit windows
End;
begin
While GetMessage(MSG,GetModuleHandle(Nil),0,0) Do
Begin
sleep(1); // время сработки
ProcessingMessages(MSG.message,MSG.lParam,MSG.wParam);
TranslateMessage(MSG);
DispatchMessage(MSG);
End;
end.
