quarta-feira, 21 de abril de 2010

Alguns codigos DELPHI (Para iniciantes)

Esconder icones da Desktop:

Adicione ScktComp, MMSystem na Uses.

Obs: "Uses" fica no inicio do seu codigo fonte!

Crie um botão e adicione o codigo para esconder:

ShowWindow(FindWindow(nil,'Program Manager'),SW_HIDE);


Para aparecer os icones crie outro botao com o codigo:

ShowWindow(FindWindow(nil,'Program Manager'),SW_SHOW);


Criar um aplicativo para mostrar DATA & HORA:

Adicione 2 Labels da aba Standart no seu formulario.
Adicione tambem um Timer na aba System.

Dê 2 cliques rapido no Timer e adicione o codigo:

label1.Caption := ' ' + FormatDateTime('hh:nn:ss',now);
label2.Caption := ' ' + FormatDateTime ('dddd, d mmmm - yyyy',now);

Depois vá na no Object Inspector do seu Timer e verifique se o Interval está 1000.

Por texto pra falar:

Adicione nos Uses:
ComObj

Coloque no seu formulario um Edit e um Button:

Codigo do Button:

texto := edit1.Text;
voz := CreateOLEObject ('SAPI.SpVoice');
voz.Speak (texto, 10);


Tremer a tela (tipo MSN quando chamam atenção):

Vá ate a aba Standart e coloca um Button no seu formulario.

Coloque o seguinte codigo no Button:

var
T, L, I : integer;
begin

T := Self.Top;
L := Self.Left;
I := 0;
while I <> 100 do
begin
Self.Top := T + random(40);
Self.Left := L + random(20);
inc(I);
end;
Self.Top := T;
Self.Left := L;

Dica: Sempre que tiver um comando com Var no começo quer dizer que o comando tem variaveis e voce deve tirar o Begin e por o Var no lugar!

Tabela ASCII (Tabelas de numeros das teclas do Windows):

Vá no Object Inspector e depois em Events e dê dois cliques em: OnKeyDown

E adicione o seguinte codigo:

Label1.Caption := inttostr(key);

E não se esqueça de colocar um Label no seu formulario né! kk...

Executar comandos MS-DOS em oculto:

Adicione um Button da aba Standart no seu formulario e adicione o codigo a seguir nele:

WinExec(PChar('command.com /c SEU-COMANDO-AQUI'),SW_hide);

Se voce quiser que mostre a janela do Prompt durante a execução mude o Hide por Normal.

Copiando arquivos de um lugar para o outro:

Coloque o seguinte codigo em um Button:

CopyFile(Pchar('C:\ARQUIVO.txt'), Pchar('C:\Arquivos de Programas\COPIADO.bat');


Como travar a combinação Alt+Tab:

Dê 2 cliques no seu form e ache o comando Var. Estará em cima do Implementation la em cima do seu codigo.

Adicione este codigo depois do var e antes do implementation:

id1: integer;
const
MOD_ALT = 1;


Em seguida coloque um Button no seu form e poe este codigo nele:

id1 := GlobalAddAtom('Hotkey1');
RegisterHotKey(Handle, id1, MOD_ALT, VK_TAB);

Impedir que feche um aplicação delphi pelo X:

Selecione o seu form. Vá no Object Inspector depois em Events e clica duas vezes em seguida em OnCloseQuery e adicione o codigo:

CanClose := False;

Pronto depois de ter feito isso sua aplicação não fechará pelo X mais! Para fechar sua aplicação use este codigo abaixo em um Button:

Fechar := true;
Close;


Codigo para destruir o botão iniciar:

Atençao eu nao sei onde arrumei esse codigo, e tambem nao sei como voltar o botão inicar de volta a nao ser reiniciando a maquina! Repito não sei... Se alguem souber como voltar deixe um comentario!
Adicione um Button e poe esse codigo:

PostMessage(FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,'Button',nil),WM_CLOSE,0,0);


Codigo para ocultar o Windows:

Adicione um Button e poe esse codigo:

ShowWindow(FindWindow('Shell_TrayWnd', nil), sw_hide);


Para mostrar o windows coloque:

ShowWindow(FindWindow('Shell_TrayWnd', nil), sw_shownormal);


Codigo para ocultar barra de tarefas:

Adicione um Button e poe este codigo nele:

ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_HIDE);


Para mostrar poe este:

ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_SHOWNORMAL);


Codigo para travar Gerenciador de tarefas:

Adicione um Button e poe este codigo nele:

RenameFile('C:\WINDOWS\system32\TaskMgr.exe','C:\WINDOWS\system32\thow.exe'); //Para Esconder

Para destravar o Gerenciador de tarefas use:

enameFile('C:\WINDOWS\system32\thow.exe','C:\WINDOWS\system32\TaskMgr.exe'); //Para mostrar



Ai está alguns codigos dephi... depois eu posto mais to com sono agora!

0 Comentários:

Postar um comentário

Você pode utilizar:
<b>NEGRITO</b> | <em>ITÁLICO</em> | <a href="LINK">TEXTO DO LINK</a>