[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 сделать что думаеш?