Duas Dúvidas Quanto Delphi 2005

[hencker]

Tenho duas duvidas quanto o Delphi 2005:

Como eu coloco um programa na Tray? Eu sei que para o Delphi 7 existia um componente que fazia esse serviço mas no D2005 eu não sei como "funciona".

Alguém tem alguma idéia de como eu faço para, de um em um minuto o meu programa faça uma verificação no banco de dados? Pois assim, o programa precisará fazer essa verificação a cada um minuto para saber se há alterações, pois se houver ele realizará uma rotina. Em contrapartida, todos os dias às 17h30m ele fará uma busca nesse banco de dados...

Alguém tem idéia de como fazer???

[hencker]

Galera, essa eu mesmo matei. Mas fica ai para quem tiver dúvidas.

O Problema de executar uma coisa a cada um minuto resolvi com o Objeto TTimer.

O Outro eu resolvi da seguinte forma:

unit UPrincipal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellAPI, Menus, StdCtrls, ExtCtrls, XPMan, DBXpress, DB, SqlExpr,
  FMTBcd;

const
WM_ICONTRAY = WM_USER + 1;

type
  TFPrincipal = class(TForm)
    PMenu: TPopupMenu;
    Fechar1: TMenuItem;
    Abrir1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    XPManifest1: TXPManifest;
    Temp: TTimer;
    Label1: TLabel;
    SQLConexao: TSQLConnection;
    SQLQuery: TSQLQuery;
    DSQuery: TDataSource;
    procedure TempTimer(Sender: TObject);
    procedure Abrir1Click(Sender: TObject);
    procedure Fechar1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    TrayIconData: TNotifyIconData;
    { Private declarations }
  public
    procedure TrayMessage (var Msg: TMessage); message WM_ICONTRAY;
    { Public declarations }
  end;

var
  FPrincipal: TFPrincipal;

implementation

{$R *.dfm}

procedure TFPrincipal.FormCreate(Sender: TObject);
begin
  with TrayIconData do
  begin
    cbSize            :=  SizeOf(TrayIconData);
    Wnd               :=  Handle;
    uID               :=  0;
    uFlags            :=  NIF_MESSAGE + NIF_ICON + NIF_TIP;
    uCallbackMessage  :=  WM_ICONTRAY;
    hIcon             :=  Application.Icon.Handle;
    StrPCopy(szTip, Application.Title);
  end;
  Shell_NotifyIcon(NIM_ADD, @TrayIconData);

end;

procedure TFPrincipal.FormDestroy(Sender: TObject);
begin
  Shell_NotifyIcon(NIM_DELETE, @TrayIconData);
end;

procedure TFPrincipal.TrayMessage(var Msg: TMessage);
var
  Pt: TPoint;
begin
  case Msg.lParam of
    wm_rbuttondown:
                    begin
                      GetCursorPos (Pt);
                      PMenu.Popup (Pt.x, Pt.y);
                    end;
  end;
end;

procedure TFPrincipal.Fechar1Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TFPrincipal.Abrir1Click(Sender: TObject);
begin
  FPrincipal.Show;
end;

procedure TFPrincipal.TempTimer(Sender: TObject);
begin
  Label1.Caption := TimeToStr(Now);
end;

end.

:D :D :D :D :D

[Thales Pontes Martins]

Opa, se eu não me engano o Delphi 2005 tem o componente TTrayIcon, se não me engano na paleta samples.