Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вывести сообщение при загрузке Windows [D5, XP]

Semen © (2010-05-23 21:51:00)
Есть программа напоминаний событий, которые произойдут сегодня и завтра. Узнать о них можно только при открытии формы:

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?

Semen (2010-05-24 09:48:00) [1]
Спасибо всем за участие - всё решил.

Semen (2010-05-24 09:43:00) [2]
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;
не получается?

sniknik (2010-05-24 09:27:00) [3]
> Можно ли её инактивировать програмно?
ну, лично я не против... инактивируй.

Anatoly Podgoretsky (2010-05-24 09:09:00) [4]
> Semen (24.05.2010 08:59:04) [4]

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

Semen (2010-05-24 08:59:00) [5]
Спасибо большое всем. Всё получилось, но теперь программа висит в процессах Windows после закрытия просмотра сообщения.
Можно ли её инактивировать програмно?

[true]TRIx (2010-05-23 22:48:00) [6]
Удалено модератором
Примечание: п. 10 правил

[true]TRIx (2010-05-23 22:47:00) [7]
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

Anatoly Podgoretsky (2010-05-23 22:07:00) [8]
> Semen (23.05.2010 21:51:00) [0]

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »