delphi

  1. XSystemX

    [Utilitário] Alpha Skins

    Aqui vai o link do Alpha skins, no site vc pode baixar referente a versão do seu delphi http://www.alphaskins.com/dwnld.php
  2. XSystemX

    [Tutorial] Esconder e mostrar icones no Desktop

    Adicione 2 buttons ou outros componentes de sua preferencia. Mude o caption de um para "Mostrar" e o outro para "Esconder". No botão de mostrar coloque isso: ShowWindow(FindWindow(nil,'Program Manager'),SW_SHOW); No botão de esconder coloque isso: ShowWindow(FindWindow(nil,'Program...
  3. XSystemX

    [Tutorial] Pegar IP de um site

    Adicione: 1 Edit 1 Memo 2 Buttons Acrecente a seguinte uses: Winsock Adicione as seguintes functions:   Function nibzxd(strIPAddress : String) : String; Var strHost : String ; pszIPAddress : PChar; pReturnedHostEnt : PHostEnt; InternetAddr : u_long; GInitData : TWSADATA; Begin strHost :=...
  4. XSystemX

    [Tutorial - Basico] Efeito Digitação: Letra por Letra

    -O que é? Efeito comum no Flash, no qual o texto vai aparecendo letra por letra. -Nível de dificuldade? Iniciante. -O código é difícil de entender? Não. -"comofas/" 1º - Crie um timer e um label. 2º - Embaixo de: var   Form1: TForm1; Declare:   texto : String;   i : integer; 3º - No evento...
  5. XSystemX

    [Tutorial - Basicão] Criando um Gerador de Nick

    Adicione 2 Edit e 1 Button Declare a função:   function nibzxd(nibz: string; clube: integer; programacao: integer): string; begin Result := Copy(nibz, clube, programacao); end; No evento onchange do Edit1 coloque:   var nibz: String; begin nibz :=...
  6. XSystemX

    [Tutorial - Intermediário] Correção Ortográfica No Delphi

    Olá pessoal, Sou participante de outros fóruns de Delphi e encontrei esta dica e achei válido postar aqui pra todos nós. ***************************************************************************************** Em sistemas onde o usuário precisar digitar textos como observações, emails um...
  7. XSystemX

    [Tutorial - Básicão] Converter Decimal em Horas

    function decimalHoras(valorDecimal: real): real; var a, b, c, d: real; begin a := valorDecimal / 60; b := Int(a); c := a - b; d := c * 60; Result := StrToFloat(FormatFloat('0', a) + ',' + FormatFloat('00', d)); end;
  8. XSystemX

    [Tutorial - Básico] Ouvir radio online pelo delphi

    Vamos montar uma aplicação em delphi para ouvir varias radios online Em um Form coloque os seguintes componentes 1 - ListBox // para colocar a lista de radios 1 - Edit // para montar o caminho para uma determinada radio 1 - TrackBar // para servir como controle de volume da radio ... mude o...
  9. XSystemX

    [Tutorial - Basicão] Software para identificar quando o sistema é 32 ou 64bits

    CODE unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public...
  10. XSystemX

    [Delphi Basico] Renomeando e Deletando Arquivos

    Meu POVO tome cuidado com o arquivo que vc for usar neste código Deletando: Deletefile('C:Nibz xD['); ~ Onde esta escrito Nibz xD vc muda para o nome do arquivo que vc deseja excluir Renomeando: var clube,programacao : string; begin clube := 'C:Nibz.exe'; programacao := 'C:NibzxD.exe'...
  11. XSystemX

    [Tutorial Basicao] Digitar somente Números

    Digitar somente Números   No evento onkeypress declare: procedure TForm.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Not (key in ['0'..'9',#8]) then key := #0; end; Créditos : Victor_xp
  12. XSystemX

    [Tutorial Basicão] Fazendo um Auto Clique

    Vamos lá Adicione os seguintes componentes em seu form: 2 Button (Aba Standard); 2 Timers (Aba System); 1 Edit (Aba Standard). Agora posicione-os como quiser em seu form. Ao posicionar, pode mudar a propriedade Caption dos buttons para: Button1 - Iniciar (F1) Button2 - Parar (F2) Ao...
  13. XSystemX

    [Tutorial Básico] Video Play com RMVB

    Primeiro: Intalando o componente RealAudio Abra seu Delphi e vá em Component>Import ActiveX control...   Procure por Real Player ActiveX Control Library (version 1.0) E em palette page escolha em qual paleta irá instalar..eu instalei na System. Então, clique em Install Após isso, aparecerá...
  14. XSystemX

    [Tutorial - Basicão] Criando Gerador de senhas aleatórias (Simples)

    Hoje Vo Ensinar A Como Criar Um Programa que irá Gerar Senhas Aleatórias. Nivel =Iniciante(Basicão) 1º Passo - No form, insira 1 Edit e 1 Button. 2º Passo - Dps De 2 cliques No Button 1 e Adicione Esse Código: OBS: Não esqueça de declarar as variáveis:   var i: integer; const str =...
  15. XSystemX

    [Tutorial - Basicão] Explicação De Alguns Dos Comandos Mais Usados

    Olá meu povo me chamo System , vou postar um tutorial bem basicão sobre alguns comandos do delphi: como condições (se, se não, enquanto e etc.) Explicação de alguns dos comandos mais usados - If, Then e Else - Case, Of, Else - While, Do Por enquanto é só logo vou adicionar mais. Mas...
  16. XSystemX

    [Tutorial - Básico] Cálculo de Idades

    //Essa dica é um demostrativo de como se calcular a idade de uma pessoa em anos, meses e/ou dias //1º Declare na uses a unit DateUtils //2º Insira um Button e um Maskedit no Form //3º Na propriedade EditMask do Maskedit insira o formato Date e modifique //no campo Input Mask esse formato para 4...
  17. XSystemX

    [Tutorial] Interação entre Delphi e servidor de e-mail

    Primeiramente é necessário que o usuário tenha uma conta de e-mail cadastrada em algum servidor de e-mails. Em seguida o programador deve obter alguns dados com relação à sua conta de e-mail, listados abaixo: - host SMTP (para envio de mensagens) - port utilizado pelo servidor de e-mails -...
  18. XSystemX

    [Tutorial - Delphi] Primeiro contato com o Delphi

    Tutorial Iniciante Objetivo: Primeiro contato com Delphi. Entrando no delphi o próprio programa criará um projeto para você, chamando-o de Project1. E juntamente com o projeto tem um form(Form1) que também foi criado. Finalmente todo form tem uma unidade correspondente que é mostrada no editor...
  19. XSystemX

    [Tutorial - Delphi 7] Utilizando Skins

    Irei ensinar como utilizar as skins do Alpha Controls, um componente profissional e que possui uma versão Lite gratuita para uso livre. As skins do Alpha são de excelente qualidade e garantem um excelente visual ao seu aplicativo. Ex: Material necessário: Alpha Controls Scan O arquivo...