Delphi Brasil
Seja bem-vindo (a) ao Delphi Brasil,aqui você encontrará dicas,tutoriais e etc.
Por favor,registre-se para obter o maior proveito possivel do fórum.
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Conectar-se

Esqueci minha senha

Parceiros

Beep.exe - Open source

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Beep.exe - Open source

Mensagem por leandrohackerx em Qui Abr 07, 2011 6:01 pm

É um software que emite bips do pc speaker com frequência e duração.
Programa para usar o PC Speaker
Criado por leandrohackerx ( Leandro Junior )
Copyright © 2011 leandrohackerx
Este programa deve ser compilado no Delphi.

Source:

Código:

{
Beep criado por leandrohackerx ( Leandro Júnior )
Copyright © 2011 leandrohackerx

ATENÇÃO:
Este programa deve ser distribuido gratuitamente.
Se você pagou por ele então você foi (um idiota xD [Brincadeira]) enganado.

Visite:
http:\\www.delphibrasil.forumeiros.com
}

program Beep;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;

var
pstr1: Integer;
pstr2: Integer;
Parametro: String;

procedure Erro;
begin
  Windows.Beep(1800,100);
  Windows.Beep(1450,100);
  Windows.Beep(1800,100);
  Windows.Beep(1450,250);
end;

procedure Ok;
begin
  Windows.Beep(8000,30);
  Windows.Beep(8200,30);
end;

procedure Pergunta;
begin
  Windows.Beep(2450,120);
  Windows.Beep(2800,140);
end;

procedure Info;
begin
  Writeln('Programa para usar o PC Speaker');
  Writeln('Criado por leandrohackerx ( Leandro Junior )');
  Writeln('Copyright © 2011 leandrohackerx');
  Writeln('');
  Writeln('Como usar');
  Writeln('Digite:');
  Writeln(ParamStr(0)+' -b [frequencia do beep] [duracao do beep]');
  Writeln(ParamStr(0)+' [chave] - E uma funcao extra com tres beeps prontos.');
  Writeln('Chaves: /berror /bok /bquestion');
  Writeln('Exemplo:');
  Writeln(ParamStr(0)+' -b 1247 2000');
  Writeln(ParamStr(0)+' /berror');
  Writeln(ParamStr(0)+' /bok');
  Writeln(ParamStr(0)+' /bquestion');
end;

begin
  Parametro:=LowerCase(ParamStr(1)); //Faz o ParamStr(1) te os caracteres minusculos

  if (Parametro='-b') then begin
  pstr1:=StrToInt(ParamStr(2));
  pstr2:=StrToInt(ParamStr(3));
  Windows.Beep(pstr1,pstr2);
  end else
  if (Parametro='/berror') then begin
  Erro;
  end else
  if (Parametro='/bok') then begin
  Ok;
  end else
  if (Parametro='/bquestion') then begin
  Pergunta;
  end else
  if (Parametro='/?') then begin
  Info;
  end else
  Info;

end.

_________________
Quer distribuir aqueles programinhas de 500Kb sem precisar fazer upload deles?
Use o Alien Hex,com ele você distribuie os seus arquivos em forma de texto hexadecimal.
O Alien Hex é um ótimo software que converte qualquer arquivo em hexadecimal e qualquer codigo hexadecimal em arquivo.
Link: http://delphibrasil.forumeiros.com/t7-alien-hex-distribua-os-seus-arquivos-em-hexadecimal-sem-problemas#34
avatar
leandrohackerx
Administrador
Administrador

Mensagens : 19
Data de inscrição : 17/12/2010
Idade : 21
Localização : Na frente do PC

Ver perfil do usuário http://delphibrasil.forumeiros.com

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum