Quick Tips : Clonar Form / Comprimir EXE / WAV sem Media Player

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Nesta Quick veja Como clonar formulário, diminuir EXE, Tocando som WAV sem o media


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


 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?