8/03/2015

Exibir data atual

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;

8/02/2015

Chave de registro delphi

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

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

caminho do exe


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

8/01/2015

Criptografia

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

7/30/2015

Chamar arquivo externo ao delphi

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

Com dito anteriormente o HTML Help Workshop é um aplicativo que compilar arquivos de ajuda, no formato .chm.
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.