Seguindo a idéia do nosso colega Silva, voce pode colocar o codigo dentro do timer procedure TForm1.Timer1Timer(Sender: TObject);
var
I: Integer;
fAlertaMsn: TForm;
BarraIniciar: HWND; {Barra Iniciar}
tmAltura: Integer;
tmRect: TRect;
xTop : Integer;
xIniTop : Integer;
begin
//localiza o Handle da janela iniciar
BarraIniciar := FindWindow('Shell_TrayWnd', nil);
//Pega o "retângulo" que envolve a barra e sua altura
GetWindowRect(BarraIniciar, tmRect);
tmAltura := tmRect.Bottom - tmRect.Top;
fAlertaMsn := TForm1.Create(Self);
with fAlertaMsn do
begin
Left := Screen.Width - ClientWidth;
if tmRect.Top = -2 then
tmAltura := 30;
//Pega o top final
xTop := Screen.Height - ClientHeight - tmAltura;
//Pega o top inicial
xIniTop := Screen.Height + ClientHeight + tmAltura;
Top := xIniTop;
for I := xIniTop downto xTop do
begin
Top := Top - 1;
Show;
Update;
Application.ProcessMessages;
Sleep(1);
end;
Sleep(3000);
Close;
FreeAndNil(fAlertaMsn);
end;
end; Neste sentido, voce deve complementar o codigo fazendo a pesquisa em sua tabela e mostrando o recado Na propriedade interval do timer coloque 60000 = a 1 minuto. abraço E aonde eu passo as informações nesse procedimento, no caso as informações que desejo que apareça na janelinha?
