Pages

terça-feira, 24 de maio de 2011

Source - Buscar itens em uma ListBox

Para buscar itens em uma ListBox é bem fácil baixe a source e confira.


Source:

sábado, 21 de maio de 2011

Code - Form fechar com ESC

No evento onKeyDown do Form coloque:

if  key = VK_ESCAPE then
begin
     close;
end;

sexta-feira, 20 de maio de 2011

Code - Mudar cor do progressbar

Para utilizar este comando é preciso declarar no Uses CommCtrl

SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, rgb(155,100,255));

O resultado é esse:
Se você quiser mais cores basta procurar sua cor favorita no link abaixo:

Para mudar é só alterar: rgb(CODIGO DE RGB)

Code - Desligar ou reniciar o Windows

Para desligar ou reniciar o windows é simples apenas coloque o seguinte código:

Reniciar:
ExitWindowsEx(EWX_REBOOT, 0);

Desligar:
ExitWindowsEx(EWX_SHUTDOWN, 0);

quinta-feira, 19 de maio de 2011

Code - Executar um arquivo exe

Para executar um arquivo exe é simples:
WinExec('C:\Windows\Explorer.exe',1);
Para utilizar esse comando declare:
Uses ShellApi;
1 - Exibe janela em estado normal.
2 - Exibe janela em estado minimizado.
3 - Exibe janela em estado maximizado.

quarta-feira, 18 de maio de 2011

(CODE) Função para piscar a janela

Sabe no MSN quando você recebe uma mensagem que fica piscando na barra do iniciar?
Para piscar é fácil:

FlashWindow(Application.Handle, True);

Essa função faz a janela ficar acesa (laranja), para ela ficar piscando coloque esta função dentro de um TTimer.

sábado, 7 de maio de 2011

Source - Gerador de Senhas

Este é um exemplo de um gerador de senhas seguras, ele é bem simples.

Links de download:

sexta-feira, 6 de maio de 2011

Source - You Tube Player

Este é um pequeno reprodutor de vídeos do youtube que você pode baixar e estudar e até criar um se baseando nele.

OBS.: Está não é a completa ainda falta corrigir alguns bugs.


Download: http://rotavirtual.com.br/sourcedelphi/player_youtube.rar

Atualizado: 06/05/2011