Моя первая программа

[NikLik]

Выкладываю на растерзание первую написанную мною программу.
По сути--выключалка-перезагружалка, работает в пределах 24-х часов
+
Есть возможность запуска файлов по расписанию
Выкладываю еxe-шник(shutdowner.rar)+библиотеку, необходимую для работы(входит в стандартную поставку компилятора дельфи\с++ от борланда)(qtintf70.rar)
P.S. библиотеку залить на форум не смог, ссылка
P.P.S. если кого заинтересуют исходники--могу выложить, пишите в личку

[Air]

Не плохо, молодец. Эффекты сделал это хорошо.
Один вопрос, анимированный значёк сделал как?(через ImageList) или GIF умудрился загрузить?

[NikLik]

ImageList.
------------------------------------
Неужели нет никаких впечатлений?Плохих\хороших

[beegl]

анимированный значёк сделал как?
случайно не так?:

Сначала нужно будет создать каждый кадр потенциального анимационного клипа. Для этого запустим утилиту "Image Editor", которая в ходит в стандартный пакет Delphi. Запустить её можно одноимённой командой из меню Tools[инструменты]. Там создаём несколько bmp-файлов размером 16х16.
После чего возвращаемся в Delphi и выносим на форму компонент класса TImageList, дважды щёлкаем на нём и с помощью кнопки Add последовательно добавляем созданные кадры. В каком порядке изображения будут добавляться, в таком же порядке они затем будут выводится.
Далее выносим таймер[Timer], его свойство Interval устанавливаем в нужное значение[например - 5], и именно через заданное здесь количество миллисекунд будут меняться кадры. По событию OnTimer пишем такой код:
[/CODE]ImageList1.GetIcon(iconindex, Application.Icon);
iconindex := iconindex + 1;
if iconindex > 5 then
iconindex := 0;

В строке [if iconindex>5 then iconindex:=0;] число 5 замените на индекс последней иконки в вашем ImageList'e[это количество иконок -1]
Не забудьте объявить глобальную переменную iconindex, которая должна быть целочисленного типа[integer]
А по созданию окна инициализируйте иконку приложения первым изображением в списке

iconindex := 0;
ImageList1.GetIcon(iconindex, Application.Icon);

[NikLik]

var nidata1 : TNotifyIconData;
begin
inc(s);
s:=(s+1) mod 24;
if q then imagelist2.GetIcon(s,application.icon)
else ImageList1.GetIcon(s, application.icon);
 with nidata1 do
  begin
   cbSize := SizeOf(TNotifyIconData);
   Wnd := Self.Handle;
   uID := 1;
   uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
   uCallBackMessage := WM_MYICONNOTIFY;
   hIcon := Application.Icon.Handle;
   StrPCopy(szTip,pchar(label5.caption));
  end;
shell_notifyicon(NIM_MODIFY,@nidata1);

Кста, вот исходники
Сразу предупреждаю, очень много мусора--писалось давно и на скорую руку(и, честно говоря, для меня исходники уже нечитабельны).