Forum ViSiBLe

Bem Vindo
Se registrares neste fórum, podes fazer parte da nossa comunidade.Prezamos aqui pela participação ACTIVA de cada membro.


Atençao: Nao precisa Confirma a sua conta no hotmail (Basta Registrar e Começar a participar do forum.)

WWW.FORUMVISIBLE.COM

Temos vagas na STAFF !! Clique Aqui!

[ Delphi ]alguns Codigos Bons

Compartilhe
avatar
MrViSiBLe
Administrador
Administrador

Número de Mensagens : 3778
Idade : 24
Localização : Cuiaba
Agradecimentos Agradecimentos : 864
Data de inscrição : 10/12/2008

[ Delphi ]alguns Codigos Bons

Mensagem por MrViSiBLe em 7/21/2010, 06:49

Esconder icones do desktop:

Uses(nao lembro qual dos dois que precisava):
ScktComp, MMSystem
Esconde:
ShowWindow(FindWindow(nil,'Program Manager'),SW_HIDE)
Aparecer:
ShowWindow(FindWindow(nil,'Program Manager'),SW_SHOW);
----------------
Verificar se existe uma Pasta ou um arquivo:
Pasta:
if DirectoryExists('C:\Temp') then
ShowMessage('O diretório existe !!')
else
ShowMessage('O diretório não existe !!');
Arquivo:
if FileExists('c:\temp\teste.doc') then
ShowMessage('O arquivo existe !!')
else
ShowMessage('O arquivo não existe !!');
-------------------------------------
Pedir Senha ao Usuario:
coloca no OnCreate do form:
var
senha: string;
begin
senha := inputbox('Senha','Digite a Senha','');
if (senha='liorial') then begin //em 'liorial' coloca a senha(ente aspas('senha')).
SHOWMESSAGE('SENHA INCORRETA');
halt;
end;
end;
------------------------------------
Data e Hora, Coloque 2 Labels e um Timer(intervalo 1) e coloca o codigo no timer:
label1.Caption := ' ' + FormatDateTime('hh:nn:ss',now);
label2.Caption := ' ' + FormatDateTime ('dddd", "dd" de "mmmm" de "yyyy',now);
------------------------------------

Tremer a tela, tipo o MSn quando alguem chama sua atençao:
Declare no uses:
Math
//Declare a procedure:
procedure TForm1.Tremer(frm: HWND);
var
r: TRect;
i, n1,n2: integer;
begin
GetWindowRect(frm,r);
for i:=0 to 50 do
begin
n1:=RandomRange(-5,5);
n2:=RandomRange(-5,5);
SetWindowPos(frm,0,r.Left + n1,r.Top + n2,r.Right - r.Left,r.Bottom - r.Top,0);
sleep(20);
end;
SetWindowPos(frm,0,r.Left,r.Top,r.Right - r.Left,r.Bottom - r.Top,0);
end;
//E chame:
Tremer(handle);
------------------------------------
Esse é louco, Windows FALA!!!
sim, é um recurso do windows nada conhecido,ta ai:
Adicione nos Uses:
ComObj
Coloque um TEdit e um TButton:
coloque no button:
var
texto : string;
voz: OLEVariant;
begin
texto := edit1.Text;
voz := CreateOLEObject ('SAPI.SpVoice');
voz.Speak (texto, 10);
end;
Entao coloque algo no edit, pode ser bem maluco , tipo ddyWGEQHOWGFUY27dey
e clika no botao, o windows falara
Obs:Funciona so no windows xp +
Lembrando - O Sotaque é ingles,uma vantagem é que ele fala os numeros e palavras certinho em ingles(da pra aprende ingles...).
------------------------------------

Tabela ASCII, mas Afinal o que é?É uma tabela onde contem todos os numeros das teclas(Exemplo: ENTER=13);
Montar uma tabela ASSII em um programa?
fasil, vamos la:
Abre um novo Aplicativo e vai no evento OnKeyDown do Form, coloque la:
Label1.Caption := inttostr(key); //Lembre de coloca um label(kkk...)
Pronto Agora é so Abri e apertar qualquer tecla que o label mostrara o numero da tecla.
------------------------------------
Esse eu consifero importante:
Mandar o Cmd(ou Command ou Dos(MS-DOS)) executa um comando sem ser visto:
é muito simples apenas adicione esse codigo:
WinExec(PChar('command.com /c COMANDO'),SW_hide);//Sendo que o COMANDO
//você muda para o seu
//Ex.:'command.com /c mem
Caso queira que apareça:
WinExec(PChar('command.com /c COMANDO'),SW_Normal);
So pra complementa ja que tamo falando de DOs:
Desativar e Ativar Firewall via Dos:
Desativa:
@netsh firewall set opmode mode = Disable
Ativa:
@netsh firewall set opmode mode = Enable
------------------------------------
Ver a Data de um arquivo:
function PegarData(Arquivo: String): String;
var
FHandle: integer;
begin
FHandle := FileOpen(Arquivo, 0);
try
Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHand le)));
finally
FileClose(FHandle);
end;
end;
//Lembrando que quando for chamar faz assim:

PegarData(Arquivo)//Ex:PegarData('C:\LOL.txt)
------------------------------------------------------------------------
Copiando arquivo de um lugar pro outro:
CopyFile(Pchar(Local1), Pchar(Local2);
//Local1-Coloque aqui o Local onde ta o arquivo a ser copiado
//Local2-Coloque aqui o local onde ira o arquivo podendo muda seu nome
Exemplo:
CopyFile(Pchar('C:\arquivo.txt'), Pchar('C:\Arquivos de Programas\Lol.bat');
No exemplo acima eu copiei o Arquivo.txt colocando ele em C:arquivos de programacom o nome de Lol.bat(mudo a extençao e o nome);
------------------------------------




=D


Creditos = Sr.Lenda~
Tutorial = Sr.Lenda~

    Data/hora atual: 9/21/2017, 04:41