Varias dicas para delphi

[liorial2 0]

bem,resolvi faze esse topico colocando varias dicas de delphi:

Primeramente varios que fizeram um WebBrowser(navegador) ja devem ter percebido que ele nao Copia texto(Ctrl+C e Ctrl+v), entao para abilitar vc coloca o seguinte codigo:

coloque nos uses:

ActiveX

e no oncreate do form:

OleInitialize(nil);

-----------------------------------

Para descobrir o diretorio do proprio programa (nao importando onde esteja):

Application.ExeName

-------------------------------------

Esconder icones do descktop:

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);

------------------------------------

Esse codigo nao é meu mas nao sei o autor tenho ele guardado faz tempo:

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

//vc 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(FHandle)));

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);

------------------------------------

Outros:

Downloads:

Tabela ASCII (Programa):

MediaFire

 

Creditos:LIORIAL

Se for copia coloca os creditos

 

Flw galera!

[shenow 7]

Otimo ...muito boas essas dicas liorial

Flw

[liorial2 0]

Vlw cara,

achei que ninguem ia agradece...

Flw

[gman1 0]

Nossa, to começando mesmoooo so um noob em delphi mas isso ai da uma ajudinha vlw ;)

[jhoy_source 0]

Valeu cara boas dicas, apenas a de copiar arquivo está faltando um parâmetro.

Mas tá blz.:D

[Dribit 0]

jhoy_source, avisado por ressucitar tópicos.

 

Closed.