И ещё проблема с DLL

[Altera]

Привет всем!
Эх, не везёт мне...
Та-же прога, что описанна тут: http://programmersforum.ru/showthread.php?t=22245
Когда сворачиваю главную форму (form1, EXE) всё ОК. Но если нажимаю на иконку приложения в таск баре, что бы развернуть главную форму, вылетает следующая ошибка:

utilsDll.dll - это моя dll-ка.
Если отключаю DLL, то всё ОК. Даже не знаю, в чём проблема. form1.onShow нет никаких событий. В библиотеку передаються некотрые указатели, но не на form1. Если кто-то с этим сталкивался, помогите плз.

[Ring0Sn]

что в событиях onActivation и onShow формы которая в длл?

[Altera]

onFormShow пустой;
onActivate:

time_out.onRefresh := time_outRefresh;

Компоненту назначаеться процедура; Я сделал так, потому, что в этой процедуре идёт вызов функций, которые в dll;

procedure{ создание формы }Tmain_form.FormCreate(Sender: TObject);
begin
   load_settings;

   dll_handle := loadLibrary(pCHar(extractFilePath(application.ExeName)+'utilsdll.dll'));
   @dll_creating := getProcAddress(dll_handle, 'creating');
   @dll_free := getProcAddress(dll_handle, 'free');
   @dll_formShow := getProcAddress(dll_handle, 'formShow');

   dll_creating(application.handle, @time_out, @trayIcon);
end;

[Altera]

procedure creating(const h: tHandle; td_pointer, to_pointer: pointer); stdCall;
begin 
   application.Handle := h;

   utils_form := tUtils_form.Create(application);
   ats_addedit_form := tAts_addedit_form.Create(application);

   alarm := tAlarm.create;
   timer := tTimer.create;
   secMer := tSecMer.create;
   mplayer := tPlayer.create;
   
   alarm.listView := utils_form.alarm_List;
   timer.listView := utils_form.timer_list;
   secMer.listView := utils_form.secMer_list;
   mplayer.player := utils_form.Player;
   mplayer.player.OnNotify := mplayer.mPlayerNotify;

   timeDate := tTimeDateLabel.Create(application);
   timeDate := tTimeDateLabel(td_pointer^);

   time_out_icon := TCoolTrayIcon.Create(application);
   time_out_icon := TCoolTrayIcon(to_pointer^);

   load_settings;
end;

Проблема возникает после вызова этого кода...

[Altera]

Кажись разобрался. Мне надо было, чтоб при ... событиях в трее выводилось сообщение (ballonHint). Для ээтого дела я использовал TCoolTrayIcon.

time_out_icon := TCoolTrayIcon.Create(application);
   time_out_icon := TCoolTrayIcon(to_pointer^);

Сам компонент, как и tTimeDateLabel находиться в exe а нередовал на него указатель. С tTimeDateLabel всё ок (это мой компонент, полезный, могу дать). Буду передовать не указатель на TCoolTrayIcon а указатель на ghjwtlehe в exe, которая будит выводить сообщение.

[Altera]

Вот, всё исправил.

[Alter]

tTimeDateLabel - это который в себе выводит текущее время и дуту?
его несложно написать, внедрить в лейбл таймер, а также создать свойство активации режима времени.

[Altera]

Да, правильно Alter. Но он чуть навороченный.