Как сделать всплывающее сообщение от программы на экране

[Dissonance]

Добрый день. Подскажите как осуществить в Delphi 7 всплывающее сообщение. По конкретнее: Мне нужно чтобы Delphi выводил сообщение о том что лицензия проги закончится через месяц. Форма сообщения: Название проги, срок окончания прог. Помогите нужно срочно. Надо чтобы он сверял дату всех прог в БД и выводил сообщение если у какой то проги через месяц кончится лицензия.

[Stilet]

В принципе поиск по форуму даст тебе ответы, уже такое обсуждалось.
Ну в целом скажу так: Совсем не обязательно делать всплывающие сообщения, обычного MessageBox вполне достаточно, и гемору с ним меньше.

[Dissonance]

А ссылки кто нибуть может кинуть?? По подробнее о MessageBox расскажите??

[Stilet]

А чего рассказывать?

procedure TForm1.FormCreate(Sender: TObject);
begin
ShowMessage('Лицензия истекла');
end;

[Dissonance]

Не меня не так поняли. Надо чтобы он сверял дату всех прог в БД и выводил сообщение если у какой то проги через месяц кончится лицензия.

[MaTBeu]

Ну запомни название проги в строку. А потом выводи вот так

ShowMessage('У программы '+AnsiString(prgName)+' через месяц заканчивается лицензия');

Сор если код нерабочий. Просто в Билдере так делается.

[Dissonance]

Хорошо. А как это сообщение узнает когда выскакивать. Допустим срок действия проги 1 год. а сообщение будет постоянно выскакивать. как оно узнает что остался только 1 месяц? Как всё это связать меня это интересует

[MaTBeu]

Ну допустим у тебя есть переменная, в которой хранится разница между текущей датой и датой окончания лицензии. Так вот если эта переменная меньше или равна 1 месяцу (я думаю ты найдешь как посчитать), то выводить сообщение, а иначе, не выводить. Проверку в начале программы делай.

[Stilet]

А как это сообщение узнает когда выскакивать.

Никак, это ты должен ей сказать. Например смотриш дату создания файла программы, которую проверяешь и сравниваешь более года она или менее.

Только не актуально это...