Ir para conteúdo
Fórum Script Brasil
  • 0

Duas Dúvidas Quanto Delphi 2005


hencker

Pergunta

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???

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...