[Dissonance]

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

[The Shadow]

А че сделать то?
Сверять дату? Или всплывающее сообщение создать? Или все вместе?

[Dissonance]

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

[The Shadow]

А какая БД?

[Dissonance]

Аксес если правильно тебя понял

[Dissonance]

А тема Каталог компьютерных программ

[The Shadow]

Ну я с БД не очень хорошо знаком, но думаю что так:

Код:

ADOConnection1.ConnectionString:='Provider = Microsoft.Jet.OLEDB.4.0;Data Source = ' + ExtractFilePath(Application.ExeName) + '\Programms.mdb';
ADOConnection1.Connected:=True;
ADOQuery1.SQL.Text:='select * from Table';
ADOQuery1.Open;
while not ADOQuery1.Eof do
begin
if ADOQuery1ProgrammName.AsString = Application.Title then //Если это наша программа
begin
LicenseDate:=ADOQuery1LicenseDate.AsDate;
if MonthBetween(Date, LicenseDate) < 1 then
//Показываешь диалог
Break;
end;
ADOQuery1.Next;
end;
ADOQuery1.Close;

P.S. Вполне возможно что я ошибаюсь.

[Dissonance]

А можно поконкретнее. Я просто не очень силён в этом. Какие компоненты надо ставить на форму???
//Если это наша программа
Что это значит??

//Показываешь диалог.
Какой диалог?? Можеш пример кинуть.

[Dissonance]

Мне сказали что можно через MessageBox сделать что думаеш?

[lmikle]

ShowMessage(Format('У программы %s через месяц закончится триал-период.',[ProgramName]));

Так?

[The Shadow]

Ты же сказал, что это типа сборника, в БД значит информация о нескольких программах. Ищем нужную и получаем дату лицензии. Если осталось меньше месяца, то показываешь сообщение.
Какое? Какое захочется. Можно ShowMessage, Application.MessageBox или даже отдельную форму создать.

[Dissonance]

Типо того. не триал. Например есть установленный антивирусник касперского. Всё работает им пользуются. Заходят в программу а она высвечивает сообщение что у этого касперского срок действия лицензионного ключа кончится через 1месяц. Так должно быть у всех прог в базе данных. Суть в этом чтобы прога сверяла дату окончания лицензии и сама выводила сообщение о том что лицензионный ключ заканчивается. И должна начать предупреждать за 1 месяц

[Dissonance]

прога должна автоматом выводить это сообщение без всяких запросов. Тока остался 1мес. или ещё меньше всё она сразу без всяких действий говорит об этом

[lmikle]

Мужик, строку ты сам напиши ту, которая тебе нужна.
Если у тебя лежит в БД инфа, то список таких программ можно получиь запросом и уже по его результатам формировать сообщение.

Твое дело при старте проги сделать запрос в БД и вывести результат. Дл пользака это будет выглядеть, как будто это сделано автоматом.
Можно проге "сесть" в авторан и периодически делать такой запросик и из трея выбразывать сообщение. Все в твоих руках - как придумаешь и напишешь - так и будет.

А у тебя получается примарно "хочу так, не заню как и при этом ничего не хочу делать, а что бы само все сделалось".

[Dissonance]

ДАк я и прошу помочь. Не знаю как написать помогите. Мысль твою понел