Вывести сообщение при загрузке 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]

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

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

← →
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]

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

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