[Tutorial] Fazer janela piscar na barra de tarefas (Igual à MSN)

[Puncker 201]

{Fazer janela piscar na barra de tarefas (Igual à MSN)}

Não tenho muito o que falar, é igual quando uma pessoa te chama no MSN e o seu msn fica piscando na barra de tarefas.

Dê dois cliques no form do seu projeto para ir para os códigos.

Após:

implementation


{$R *.dfm}

Adicione isto:

procedure flash;

var FWInfo: FLASHWINFO;

begin

   with FWInfo do

    begin

     cbSize:=SizeOf(FWInfo); //Tamanho do struct em bytes

     hWnd:=Application.Handle; //Handle da janela

     dwFlags:=FLASHW_TRAY; //Piscar na barra de tarefas

     uCount:=5; //Piscar cinco vezes

     dwTimeOut:=200; //Tempo de duração de cada piscada em milisegundos

    end;

   FlashWindowEx(FWInfo);

   Sleep(300);

  end;

Agora para usar a função flash (coloque em algum botão ou outro componente) chame a função usando este código:

flash;

Pronto, a função foi adicionada e você pode usa-la no componente que quizer que suporte chamar uma função.

[Renato 659]

Não sabe faze isso em VB ?

Queria saber *-*

Valeu, rep+