Прошу написать программу на любом языке

[Феликс Юрьевич]

Добрый день.
Уважаемые форумчане, я прошу вас написать для меня простенькую программу на любом удобном для вас языке под "Windows XP Professional SP 1" . Суть программы заключается в выводе на экран каждые 15 минут сообщения с текстом: "Работай!!111".

Дело в том, что работаю технологом-конструктором корпусной мебели, а на улице весна все таки — хочется идти бороться с демографическим кризисом, а не заказы считать и все время ухожу в серфинг .

Надеюсь на ваше понимание.

PS. EXEшник в автозапуск затолкаю сам. Текст сообщения не принципиален, но смысл тот же. Счетчик можно сделать каждые 15 минут по часам компьютера.

[GreenWizard]

если интересует, то вот скрипт для AutoHotKey, который реализует систему "помидоре" (25 мин сосредоточенно работаем над одной задачей, 5 мин отдых, следующая "помидорка" на 25 мин)
AutoHotKey только нужен будет (либо мне время на подготовку ехе-шника)... советую всё же с AutoHotKey, чтоб могли сами настраивать скрипты
думаю, что эффективнее напоминалок (сам их практиковал и толку 0)

#SingleInstance, force
#MaxThreads, 1
#NoEnv
CoordMode, ToolTip, screen

Pomidoore := {Time: "", IsRest: false}
SetTimer, WatchTimers, 500
return

WatchTimers:
   s := GetTimerString(Pomidoore)
   ToolTip, %s%, 5, 5
return

GetTimerString(ByRef Timer)
{
	if(Timer.time = "")
		return
	
	Ell := Timer.Time - A_TickCount
	if(Ell <= 0)
	{
		if(Timer.IsRest)
		{
			MsgBox, 4,, Отдых окончен!`nНачать новую помидорку?
			IfMsgBox, Yes
				gosub, #P
			else
				Timer.time := ""
		}
		else
		{
			MsgBox,,, Отдыхай!, 20
			SetMyTimer(5 * 60, true)
		}
	}
	else
	{
		if(Timer.IsRest)
			R := "Осталось отдыхать "
		else
			R := "Помидорка будет сьедена через "
		
		R .= MSecToStr(Ell)
	}
	
	return, R
}

SetMyTimer(T, Rest)
{
	global Pomidoore
	Pomidoore := {Time: (A_TickCount + (T * 1000)), IsRest: Rest}
}

#P::
  SetMyTimer(25 * 60, false)
return


MSecToStr(T)
{
	T //= 1000
	Sec := "" . Mod(T, 60) . ""
	T //= 60
	
	Stringlen, l, Sec
	Loop, % 2 - l
		Sec := "0" . Sec
	
	Min := "" . Mod(T, 60)	
	Stringlen, l, Min
	Loop, % 2 - l
		Min := "0" . Min
	
	R := Min . ":" . Sec
	return, R
}

[whatever]

Интересная просьба

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure start(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.start(Sender: TObject);
begin
  WindowState:=wsMinimized
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  showmessage('Работай!!111');
end;

end.

Интервал поставил 900000 миллисекунд. Сама прога в архиве.

P.S. возможность выхода из приложения не предусматривал, если что грохни процесс в диспечере задач.

[Феликс Юрьевич]

Оперативненько. Спасибо, сейчас посмотрим оба варианта.
GreenWizard, ЕХЕшник делать не надо — поюзаю "AutoHotKey".

[GreenWizard]

совсем забыл! запуск помидоры по win+P, a остановки не делал т.к. в "помидорэ" нет пауз... если прервался - перезапуск таймера