Mxtube Turoriais

Exibir data atual

2015-08-03T17:13:00.003-07:00

procedure TForm2.FormCreate(Sender: TObject);
begin
ShowMessage(FormatDateTime('dd/mm/yyyy hh:mm:ss', now));
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
ShowMessage(DateToStr(Date));
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
ShowMessage(DateToStr(Date));
end;

Chave de registro delphi

2015-08-02T14:11:00.001-07:00

para todos tem que declarar registry na uses

uses
registry

Apagar Chave de Registro

procedure TForm2.Button3Click(Sender: TObject);
var
registro : TRegistry;
begin
registro := TRegistry.Create;
registro.RootKey := HKEY_CURRENT_USER;
registro.DeleteKey('Software\Microsoft\Windows\CurrentVersion\Explorer\sua_chave');
end;

Criar Chave de Registro

procedure TForm2.Button2Click(Sender: TObject);
const
raiz : string = 'Software\Microsoft\Windows\CurrentVersion\Explorer\sua_chave';
var
registro : TRegistry;
begin
registro := TRegistry.Create;
registro.RootKey := HKEY_CURRENT_USER;
registro.OpenKey(raiz, true);
end;

Verificar se Chave de Registro Existe

procedure TForm2.Button1Click(Sender: TObject);
var
registro : TRegistry;
begin
registro := TRegistry.Create;
registro.RootKey := HKEY_CURRENT_USER;

if registro.KeyExists ('Software\Microsoft\Windows\CurrentVersion\Explorer\sua_chave') then
ShowMessage('existe')
else
ShowMessage('não existe');

end;

criar um arquivo com delphi

2015-08-02T07:24:00.003-07:00

procedure TForm2.Button1Click(Sender: TObject);
var
diretorioDll : string;
begin
diretorioDll := ExtractFilePath(ParamStr(0));
FileCreate(diretorioDll + 'validar.dll');
end;

caminho do exe

2015-08-02T06:18:00.004-07:00

type
procedure conectaDb(); //CTRL + SHIFT + C (cria a procedure)

procedure form1.conectaDb;
var
deretorioDb : string;

begin
deretorioDb := ExtractFilePath(ParamStr(0)); // (local do exe)
end;

para testar cria um showmessage (diretorioDb);
e no oncreat chama o conectaDb

https://www.youtube.com/watch?v=gmqqZBszW3Y

Criptografia

2015-08-01T15:59:00.004-07:00

Esta dica é para lhe ensinar como fazer para se assegurar que ninguém vá descobrir um password (ou qualquer string). Ela é bem simples e bastante útil, pode ser usada também para se usar em uma conversa privada ou em qualquer coisa que lhe seja útil.

Primeiramente inicie o Delphi e crie uma nova aplicação. Coloque no formulário dois Tbutton, um Tedit e dois Tlabel. Coloque na propriedade caption do button1 para Encriptar e a do button2 para Desencriptar

Insira duas variáveis globais, na sessão implementation veja abaixo:

implementation

var

s: string[255];

c: array[0..255] of Byte absolute s;

{$R *.DFM}

Agora no evento Onclick do botão Encriptar coloque o código abaixo:

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
{encode}
S := edit1.text;
For i:=1 to ord(s[0]) do
c[i] := 23 Xor c[i];
Label1.Caption := s;
end;

E no evento Onclick do botão Desencriptar coloque o código abaixo:

procedure TForm1.Button2Click(Sender: TObject);

var
i:Integer;
begin
{Decode}
S := Label1.Caption;
For i:=1 to Length(s) do
c[i] := 23 Xor c[i];
Label2.Caption:=s;
end;

Explicando

Primeiro, inserimos dois vetores globais (que podem ser "enchergados" por todo o código). No Onclick do primeiro botão ele encripitará o texto contido no edit1 e mostrará no label1 (eu fiz isso para que voces possam ver o texto encriptado, mas na prática seria melhor apenas guarda-lo em uma variável, para que ninguém o veja). No botão Desencriptar ele pega o texto do label1 (ou de uma váriavel), desencripta, e ai o mostra no label2. Espero que esta dica seja de grande utilidade para vocês.

veja mais em http://www.devmedia.com.br/dicas-criptografia-e-encriptografia-de-senhas/862

Chamar arquivo externo ao delphi

2015-07-30T11:30:00.001-07:00

declara a biblioteca
ShellApi em uses

uses
ShellApi

procedure TForm2.Button1Click(Sender: TObject);
begin
ShellExecute (0, Nil, Pchar('C:\Users\MDPC\Desktop\delphi\AJUDA\ajuda.chm'), Nil, Nil, SW_SHOW);
end;

criar help com html help workshop

2015-07-30T07:51:00.003-07:00

Com dito anteriormente o HTML Help Workshop é um aplicativo que compilar arquivos de ajuda, no formato .chm.

O HTML Help Workshop em utiliza em sua base, arquivos em formato .html, para a composição do conteúdo do seu arquivo.

Ele foi criado para substituir os arquivos de ajuda no padrão Windows (.hlp), sendo descomplicado e dando mais flexibilidade para trabalhar com o conteúdo.

Nesse tópico, vamos demonstrar as configurações básicas para a criação do seu arquivo de ajuda. Configurações avançadas, serão abordados em tópicos posteriores.

A estrutura do seu arquivo de ajuda é composto basicamente por:

Sumário: o sumário é uma relação de tópicos ordenados, que permite a visualização setorizada do conteúdo
Indices: permite relacionar todo o seu conteúdo em um índice com opção de busca
ContextId: Identificação do contexto de ajuda. São códigos numéricos associados as páginas do arquivo de ajuda, que permite o direcionamento a uma pagina especifica, dentro do arquivo de ajuda.

Consideramos que nessa etapa você já realizou as seguintes tarefas

Capturou todas as telas necessárias da aplicação
Todo o manual foi criado em formato .html e devidamente configurado

É recomendavel que no seu conteúdo tenha um arquivo .html que seja um índice de conteúdo, contendo o link para os demais arquivos html. Ele será necessário caso deseja que um arquivo principal seja carregado com seu projeto e permita acesso aos demais.

Vamos colocar a mão na passa.

Primeiro crie a pasta help em c:\, para armazenar nosso projeto.

Execute o HTML Help Workshop através do Iniciar do Windows

Na jenela da aplicação, clique em 'Novo', como demonstra o ícone da imagem abaixo.

Será iniciado o assistente, qual iniciará a criação do seu projeto. Clique na opção 'Project' e clique em 'OK'.

Na próxima janela, clique em 'Next'.

O próximo passo é determina a rota em que seu projeto será gravado. Informe a rota e o nome do arquivo. Não informa sua extensão (como mostra a imagem abaixo), e clique em 'Avançar'.

Exemplo: c:\help\tudo

onde

c:\help corresponde a pasta em que o projeto será gravado

tuto, o nome do arquivo.

Selecione os arquivos que serão criados para o seu projeto.

hhc: arquivo que conterá as informações sobre seu sumário
hhk: arquivo que conterá as informações sobre o seu índice
htm: arquivos html que farão parte do seu projeto
hhp: arquivo do projeto .chm (ele não é exibido nesse formulário)

Informe a pasta aonde o arquio contendo o 'sumário' do seu arquivo de ajuda será armazenado e clique em "Avançar'. Recomendamos utilizar a mesma pasta com os demais arquivos da aplicação

Informe agora o local para o armazenamento do arquivo contendo o índice. Recomendamos utilizar a mesma pasta com os demais arquivos da aplicação.

O próximo passo será selecionar todos os arquivos que farão parte do seu projeto. Par isso, clique em 'Add' e selecione todos os arquivos necessários.

Realizada essa operação, clique em 'Avançar'.

Na ultima janela, clique em 'Concluir', e será carregado o seu projeto, como mostra a imagem abaixo:

Uma vez o seu projeto criado, você verá três abas:

Project: são os dados gerais do seu projeto
Contents: são os dados referente ao sumário do arquivo. Esse por sua vez, permite organizar o conteúdo em blocos, funcionando uma relação de tópicos do seu arquivo de ajuda
Index: são os dados referente aos arquivos disponibilizados, permitindo a realização de consultas no conteúdo

Os componentes 'contents' e 'index' não são obrigatórios na criação do seu arquivo de ajuda, mas eles tornam o arquivo de ajuda criado, muito mais profissional.

Uma vez criado o 'Sumário', ele será apresentado como abaixo, no seu arquivo de ajuda.

Uma vez criado o 'Índice', ele será apresentado como abaixo, no seu arquivo de ajuda.

Vamos agora, configurar os parâmetro de inicialização do nosso arquivo de ajuda.a Isso consiste no arquivo principal que será carregado e título do seu projeto.

Clique em 'Projetc' e em seguida em 'Options', como mostra a imagem abaixo:

Será exibida a janela 'Options'. Nela você realizar as seguintes configurações:

Title: nome que será exibido no cabeçalho do seu arquivo de ajuda
Default file: o arquivo que será carregado na inicialização do arquivo de ajuda

Nesse tópico, não vamos entrar em detalhes sobre as outras opções. Vamos nos ater somente as configurações principais.

Apos realizar essa operação, clique em 'OK'.

O próximo passo agora é criar o nosso sumário. Para isso vamos clicar na aba 'Contents'.

Nosso sumários para ficar com a aparência como demonstrado, devemos criar 02 componentes no mesmo:

Heading: heading, corresponde a uma pasta, que irá abrir as paginas do tópico do sumário
Page: são os arquivos que pertencerão a esse tópico

O primeiro passo é adicionar um 'heading' e associar um ou mais arquivos a ele através de 'Page'

Clique em 'insert a heading':

Clique na guia "General' e informe um nome para o seu tópico em 'Entry titlte'.

Um tópico não precisa ter associação direta de um arquivo. Assim, clique em 'OK'

O seu tópico será adicionado como mostra abaixo.

O próximo passo é adicionar as paginas que farão parte do seu tópico.

Para isso, clique em 'Insert Page'

O processo é muito semelhante ao anterior.

Digite um nome para a sua pagina, em 'Entry title', e em seguida clique em 'add', para associar o arquio html, ao tópico desejada.

Selecione o arquivo desejado, clicando sobre o seu nome e clique em 'OK'.

A configuração final deverá ficar como abaixo:

Clique em 'OK', e sua pagina estará associada ao seu tópico.

Você poderá incluir quantos tópicos desejar, e associar quantos paginas desejar ao seu tópico.

Deverá ser utilizado as teclas de movimento, para que os arquivos associados fiquem como na disposição abaixo, pois eles são anexados aleatoriamente.

O próximo passo agora, é associar seus índices.

Clique na aba 'Index' e clique no botão 'keyword'.

Será exibida um formulário muito parecido com o anterior.

Na aba 'General', informe um nome para o seu índice em 'Keyword'. Em seguida clique em 'add' para associar o arquivo ao 'keyword'.

A configuração deverá ficar como mostra a imagem abaixo.

Clique em 'OK' para concluir a operação.

Você poderá utilizar as teclas de movimento, para ordenar os seus índices da forma desejada.

Agora vamos para a última etapa: compilar nosso arquivo de ajuda.

Clique no botão 'Compile HTML File'. Será exibida a janela 'Creat a compiled file'. Clique em 'copile' e aguarde a conclusão.

Uma vez compilado o seu projeto, estará disponível no formato .chm, na pasta de anteriormente configurada.

Processo concluído. Agora, você já tem um arquivo de ajuda para associar a sua aplicação MS Access.

Nos próximos tópicos, ser abordado como associar o arquivo de ajuda a sua aplicação e como criar ContextId.

Para realizar o download do HTML Help Workshop, clique aqui

Criar ajuda / criar help

2015-07-30T05:59:00.001-07:00

Cria um form

adiciona um

tlistbox

align : alLeft

TMemo

align: alClient

ScrollBars: ssVertical

procedure TForm2.FormCreate(Sender: TObject);

begin

ListBox1.ItemIndex := 1;

if ListBox1.ItemIndex = 1 then

Memo1.Visible := true;

end;

procedure TfrmAjuda.ListBox1Click(Sender: TObject);
begin
if ListBox1.ItemIndex = 0 then
mmSomar.Visible := true
else
mmSomar.Visible := false;

if ListBox1.ItemIndex = 1 then
mmDividir.Visible := true
else
mmDividir.Visible := false;

if ListBox1.ItemIndex = 2 then
mmMultiplicar.Visible := true
else
mmMultiplicar.Visible := false;

end;

end;

ou pode criar um ajuda com html help workshop

e chamar ele da seguinte forma

declara a biblioteca em uses
ShellApi

procedure TForm2.Button1Click(Sender: TObject);
begin
ShellExecute (0, Nil, Pchar('C:\Users\MDPC\Desktop\delphi\AJUDA\ajuda.chm'), Nil, Nil, SW_ShowMaximized);
end;

Proteção

2015-07-26T08:11:00.000-07:00

crie um procedimento chamado verificar;//procedimento privado;

PRIVATE

procedure verificar; //depois de criado pressione Ctrl+Shift+C

crie uma variavel chamada sharedata; // varivel global

var
sharedata:Tdatetime;

Procedure Tformpricipal.verificar;
begin
sharedata:=strtodate(''''20/05/211'''');//aqui vc escolha a data de expiração do sisteminha.
if date > sharadata then
begin
showmessage(''''Programa expirou , procure um administrador'''');
application.terminate;
end;

click no timer e coloque o procedimento
verificar;
no Oncrate do formulario coloque tambem o procedimento.

verificar;
pronto! seu sistema de expiração esta apto a modificações fique a vontade.

Leia mais em: Proteção contra pirataria simples -DEMO http://www.devmedia.com.br/protecao-contra-pirataria-simples-demo/21203#ixzz3h0fOxnOY

Tipos Numéricos Ordinais

2015-07-25T16:30:00.000-07:00

Operadores Numéricos

Operadores Ordinais (dev iniciante - 20 9:28)

Tipos de Dados

2015-07-25T15:44:00.001-07:00

Numéricos
Caracter
Boolean
Enumerados
Tipos Definidos pelo Usuário
Subtipos
Estruturados
Ponteiros
Variant

Estrutura for in

2015-07-25T15:35:00.000-07:00

é utilizado para varrer lista, então ele vai do primeiro até o ultimo, então não precisa saber quantos itens tem na lista, ele vai varrer um por um...

Procedure btn click

var
S: string;
L: char;
I: integer;

begin
S := 'PALAVRA';

for L in S do
begin
showmessage(L);
end;

// é o mesmo que
for I := 1 to Length(s) do
ShowMessage(S(I));

end;

(dev iniciante - 19 13:00)

Função continue

2015-07-25T14:28:00.002-07:00

Procedure btn click

var
x : integer;

begin
for x := 0 to 3 do
begin
ShowMessage (IntToStr(x));

//Inc(x); ele já não pode ter essa função de incrementar, pois ele já auto incrementa

if x mod 2 = then continue; //se x dividido por 2 for 0 então... quer dizer que x é par e o continue faz saltar para o inicio do laço e não executa a mensagem inferior.

ShowMessage ('Número Impar'); // se o if for falso não da o continue e exibe esta mensagem.

end;
end:

Função break

2015-07-25T14:21:00.000-07:00

Estrutura for

2015-07-25T13:43:00.001-07:00

//para incrementar

Procedure btn click

var
x : integer;

begin
//digita for e preciona tab que preenche as condições
for x := 0 to 3 do
begin
ShowMessage ('Contador = ' +IntToStr(x));
//Inc(x); ele já não pode ter essa função de incrementar, pois ele já auto incrementa
end;
end:

//para regredir

Procedure btn click

var
x : integer;

begin
//digita for e preciona tab que preenche as condições
for x := 3 downto 0 do
begin
ShowMessage ('Contador = ' +IntToStr(x));
//Inc(x); ele já não pode ter essa função de incrementar, pois ele já auto incrementa
end;
end:

(dev iniciante - 19 5:45)

Procedure btn click

var
x : integer;

begin
for x := 0 to 3 do
begin
ShowMessage (IntToStr(x));

//Inc(x); ele já não pode ter essa função de incrementar, pois ele já auto incrementa

if x mod 2 = then continue; //se x dividido por 2 for 0 então... quer dizer que x é par e o continue faz saltar para o inicio do laço e não executa a mensagem inferior.

ShowMessage ('Número Impar'); // se o if for falso não da o continue e exibe esta mensagem.

end;
end:

(dev iniciante - 19 9:00)

Procedure btn click

var
x : integer;

begin
for x := 0 to 3 do
begin
ShowMessage (IntToStr(x));

//Inc(x); ele já não pode ter essa função de incrementar, pois ele já auto incrementa

if x mod 2 = then continue; //se x dividido por 2 for 0 então... quer dizer que x é par e o continue faz saltar para o inicio do laço e não executa a mensagem inferior.

ShowMessage ('Número Impar'); // se o if for falso não da o continue e exibe esta mensagem.

if x > 5 then break; // break sai do loop
end;

ShowMessage (Fim);

end:

Estrutura while

2015-07-25T11:41:00.000-07:00

Procedure btn click

var
x : integer;

begin
x:=0;
while x < 3 do
begin
ShowMessage ('Contador = ' +IntToStr(x));
Inc(x);
end;
end;

(dev iniciante - 19 4:22)

Estrutura Repeat

2015-07-25T10:51:00.001-07:00

procedure btn click

var
x : integer;

begin

x := 0;

Repeat //faça isso
showmessage('contador = ' + IntToStr (x));
inc (x); //incrementa x
Until (x = 3); // até que x =3
end;

(dev iniciante - 19 primeira)

Estrutura de repetição

2015-07-25T10:31:00.003-07:00

Repeat Until

O teste é realizado no final de cada iteração
A sequência é executada ao menos uma vez

While Do

O teste é realizado no antes de cada iteração
Se a primeira avaliação for falsa a sequência nunca será executada

For Do

O número de iteração é conhecido e determinado
Pode ser executado incrementado e decrementado o contador

Break e Continue

Break finaliza o loop
Continue volta o topo loop (para o inicio)

For In

É utilizado para varrer lista, então ele vai do primeiro item de uma lista até o ultimo.

estrutura de decisão

2015-07-25T10:28:00.002-07:00

if
case

Comando case

2015-07-25T10:24:00.000-07:00

o comando Case substitui um monte de comando repetitivo de if true them else

estrutura do case

begin
case true of
end;
end;

exemplo

procedure button click

var
x : integer;
begin
x := 5; //por exemplo
Case x of
1: showmessage ('x é 1');
2: showmessage ('x é 2');
3: showmessage ('x é 3');
4..6: begin //aqui diz que 4, 5 ou 6
showmessage ('x é 4');
showmessage ('ou x é 5');
showmessage ('ou x é 6');
end
else
showmessage ('não sei o valor de x');
end;
end;

(dev iniciante - 18 12:35)

comando if

2015-07-25T04:45:00.002-07:00

sempre que tiver mais de 1 comando em if ou else os comandos tem que estar dentro de um bloco begin end;

begin
if true then
begin
showmessage ('linha 1 verdade');
showmessage ('linha 2 verdade');
end
else
begin
showmessage ('linha 1 mentira');
showmessage ('linha 2 mentira');
end;
end;

executa só as linhas da verdade

begin
if false then
begin
showmessage ('linha 1 verdade');
showmessage ('linha 2 verdade');
end
else
begin
showmessage ('linha 1 mentira');
showmessage ('linha 2 mentira');
end;
end;

executa só as linhas da mentira

(dev iniciante 18 9:00)

Diminuir linha de código with

2015-07-25T04:29:00.003-07:00

ex

procedure btn click
begin
edit1.left := 20;
edit1.width := 200;
edit1.top := 20
edit1.color := clblue;
end;

é igual a:

procedure btn click
begin
with edit1 do
begin
left := 20;
width := 200;
top := 20
color := clblue;
end;
end;

pode também colocar mais de um nome

begin
with edit, button1 do
begin
left := 20;
width := 200;
top := 20
color := clblue;
end;
end;

neste caso ele pega primeiro o do lado direito se tiver propriedade comum, e se não tiver a atribuição vai para o outro.

(dev iniciante 18 primeiro)

Escolher Botão a ser clicado

2015-07-25T04:19:00.000-07:00

defaut := true;

chamar metodo

2015-07-25T04:16:00.000-07:00

(dev iniciante 17 3:00)

chamada de método consiste em:

nome do procedimento com ou sem qualificador, seguida de uma lista de parâmetros se necessário.

função

com tipos de parâmetros

parâmetro de valor

parâmetro por referencia (var)

parâmetro de constante (const)

(dev iniciante 17 12:00)

Operadores

2015-07-24T06:55:00.000-07:00

+ soma
- subtrai
/ divide
* multiplica
div dá o inteiro da divisão
mod dá o resto da divisão

OPERADORES BOLEANOS

Not negação
And os dois tem que ser verdadeiros
Or apenas um pode ser verdadeiros
Xor só pode ter um verdadeiro

OPERADORES RELACIONAIS
= igual a...
<> diferente de...
> maior que...
< menor que...
<= menor igual a...
>= maior igual a...