Bom pessoal neste
artigo irei passar algumas dicas úteis para ser utilizadas no Delphi.
Vamos lá! Para começar irei demonstrar como tocar um som no formato WAV sem
utilizar o media player, como Clonar o
Formulário e como diminuir o tamanho do nosso EXE.
Tocando som WAV sem o media Player
Para que nossa aplicação toque um som WAV
sem utilizar o media player devemos
adicionar a Uses MMSystem.
Devemos criar uma nova aplicação no Delphi. Seguindo o menu File
-> New -> VCL Project.
Após nossa aplicação criada devemos incluir 2 buttons e renomea –
los para btnparar e bnttocar. Iremos utilizar a API
SndPlaySound();
No evento onclick do nosso bntTocar devemos inserir o seguinte
código:
procedure
TForm1.btnTocarClick(Sender: TObject);
begin
SndPlaySound('c:\tete.wav',
snd_ASync);
end;
Depois no evento onclick do nosso btnParar devemos
inserir o seguinte código:
procedure TForm1.btnPararClick(Sender:
TObject);
begin
PlaySound(nil,0,0);
end;
PS: snd_Loop serve para repetir continuamente o
som.
Depois que seguir todos os passos anteriores pressione
a tecla F9 para rodar nossa aplicação e teste os botões que verás o resultado.
Espero que tenham gostado!
Diminuir o Tamanho do nosso EXE
Como podemos fazer para que possamos reduzir o tamanho
do nosso EXE?
Devemos ir até o menu Project -> OPtions -> Packages e marque "Build with runtime packages".
Desta forma seu aplicativo não incluirá os pacotes do Delphi.
Isto rodará 100% em sua máquina, mas na máquina do cliente
implicará em
copia dos Delphi Packages para o diretório \System daquele
Windows.
São eles:
Vcl50;Vclx50;VclSmp50;Vcldb50;vclado50;ibevnt50;Vclbde50;vcldbx50;Qrpt50;
TeeUI50;TeeDB50;Tee50;Dss50;
TeeQR50;VCLIB50;Vclmid50;vclie50;Inetdb50;
Inet50;NMFast50;webmid50;dclocx50;dclaxserver50)
Seu aplicativo irá reduzir para algo entre 70Kb a 200Kb.
Clonando um Formulário
Como podemos fazer para clonar um formulário?
É muito simples basta incluirmos o seguinte código em
um determinado evento. No nosso exemplo irei utilizar no evento onclick de um
botão.
No evento onclick do nosso Button devemos incluir o
seguinte código:
procedure
TForm1.Button1Click(Sender: TObject);
var
Ms
: TMemoryStream;
NewForm
: TForm1;
begin
Ms
:= TMemoryStream.Create;
Try
Ms.WriteComponent(Form1);
NewForm
:= TForm1.CreateNew(Application);
Ms.Position
:= 0;
Ms.ReadComponent(NewForm);
NewForm.Show;
ShowMessage('Mova o Form de lugar')
Finally
Ms.Free;
end;
end;
Após
mover o formulário verás que existe outro do mesmo jeito atrás!
Espero que tenham gostado dessas dicas de Delphi...
Thiago
Contato:
Thiagodarley@hotmail.com