Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Вывести сообщение при загрузке Windows   Найти похожие ветки 

 
Semen   (2010-05-23 21:51) [0]

Есть программа напоминаний событий, которые произойдут сегодня и завтра. Узнать о них можно только при открытии формы:

procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
   tmp: string;
   tmpBd1,tmpBd2: string;
   YYY,MMM,DDD,MMM1,DDD1: Word;
   CDate: TDateTime;
   Thr: MyThr;
begin
Thr:=MyThr.Create(true);
Thr.Priority:=tpLowest;
Thr.Resume;

tmpBd1:="Сегодня родился:"+#13;
tmpBD2:="Завтра родится:"+#13;
CDate:=Date;
DecodeDate(CDate,YYY,MMM,DDD);
DecodeDate(CDate+1,YYY,MMM1,DDD1);
for i:= 0 to MainData.DataCount-1 do
......................................................
end;
Form1.Show;  
Application.ProcessMessages;
tmp:="";
if Length(tmpBD1)>20 then tmp:=tmpBD1;
if Length(tmpBD2)>20 then tmp:=tmp+tmpBD1;
if tmp<>"" then
MessageBox(Handle,PChar(tmpBd1+tmpBD2),PChar(DateToStr(CDate)),mb_OK+mb_IconAsterisk);
end;

Вопрос: как сделать так, что бы сообщение появлялось при загрузке компьютера и без Form1?


 
Anatoly Podgoretsky ©   (2010-05-23 22:07) [1]

> Semen  (23.05.2010 21:51:00)  [0]

Повесить на планировщик, или в крайнем случае на автозагрузку.
А вот почему боишься использования форм не понятно.


 
[true]TRIx ©   (2010-05-23 22:47) [2]

http://www.google.ru/search?client=opera&rls=ru&q=delphi+%D1%81%D0%BA%D1%80%D1%8B%D1%82%D1%8C+%D1%84%D0%BE%D1%80%D0%BC%D1%83+%D0%BF%D1%80%D0%B8+%D0%B7%D0%B0%D0%BF%D1%83%D1%81%D0%BA%D0%B5&sourceid=opera&ie=utf-8&oe=utf-8


 
[true]TRIx ©   (2010-05-23 22:48) [3]

Удалено модератором
Примечание: п. 10 правил


 
Semen   (2010-05-24 08:59) [4]

Спасибо большое всем. Всё получилось, но теперь программа висит в процессах Windows после закрытия просмотра сообщения.
Можно ли её инактивировать програмно?


 
Anatoly Podgoretsky ©   (2010-05-24 09:09) [5]

> Semen  (24.05.2010 08:59:04)  [4]

Видимо ты ее не закрываешь.


 
sniknik ©   (2010-05-24 09:27) [6]

> Можно ли её инактивировать програмно?
ну, лично я не против... инактивируй.


 
Semen   (2010-05-24 09:43) [7]

Application.ShowMainForm:= False;
Application.ProcessMessages;
tmp:="";
if Length(tmpBD1)>20 then tmp:=tmpBD1;
if Length(tmpBD2)>20 then tmp:=tmp+tmpBD1;
if tmp<>"" then
MessageBox(Handle,PChar(tmpBd1+tmpBD2),PChar(DateToStr(CDate)),mb_OK+mb_IconAsterisk);
end;
пробовал Form1:=Close;
не получается?


 
Semen   (2010-05-24 09:48) [8]

Спасибо всем за участие - всё решил.



Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.051 c
15-1272054585
@!!ex
2010-04-24 00:29
2010.08.27
Вопрос по Inno Setup. Как обновить файл?


4-1226996099
Сергей
2008-11-18 11:14
2010.08.27
Как вывести Диалог свойств Windows К оприделённому файлу ?


15-1267881499
test
2010-03-06 16:18
2010.08.27
у подвыпившего сисадмина


15-1275009183
wl
2010-05-28 05:13
2010.08.27
Путешествие из Петербурга в Москву (точнее наоборот)


15-1270289462
Урсулапов_
2010-04-03 14:11
2010.08.27
Symantec и Mail.ru агент