Você está aqui: Delphi ::: Classes, Controles e Componentes ::: TRegistry (Registro do Windows)

Como gravar e ler datas e horas no registro do Windows usando Delphi

Quantidade de visualizações: 12662 vezes

Em algumas situações gostaríamos de gravar ou ler datas e horas (TDateTime) no registro do Windows. Para isso podemos usar os métodos WriteDate(), WriteDateTime(), WriteTime(), ReadDate(), ReadDateTime() e ReadTime(). Todos estes métodos aceitam ou retornam objetos do tipo TDateTime.

Vamos começar gravando a data e hora atual em uma chave no registro do Windows ao clicar em um botão. Em seguida, no click de outro botão nós vamos recuperar a data e hora que gravamos anteriormente.

Veja o código usado para gravar a data e hora atual em uma sub-chave chamada "Data e Hora":

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm3.Button4Click(Sender: TObject);
var
  reg: TRegistry;
  data_hora: TDateTime;
begin
  // uses Registry

  // vamos obter a data e hora atual
  data_hora := Now;

  // vamos criar uma instância da classe TRegistry
  reg := TRegistry.Create;

  // a chave padrão é HKEY_CURRENT_USER mas, por via das dúvidas
  // vamos reafirmar isso
  reg.RootKey := HKEY_CURRENT_USER;

  // vamos abrir ou criar um nova chave
  if reg.OpenKey('Arquivo de Códigos', True) then
    begin
      // vamos atualizar ou criar uma chave contendo a data
      // e hora atual
      reg.WriteDateTime('Data e Hora', data_hora);
      reg.CloseKey; // grava a chave e a fecha
    end
  else
    begin
      ShowMessage('Não consegui abrir ou criar a chave informada');
    end;

  // vamos liberar o registro 
  reg.Free;
end;

Veja agora o código que obtém a data e hora gravada anteriormente na chave e sub-chave informadas no trecho de código anterior:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm3.Button5Click(Sender: TObject);
var
  reg: TRegistry;
  data_hora: TDateTime;
begin
  // uses Registry

  // vamos criar uma instância da classe TRegistry
  reg := TRegistry.Create;

  // a chave padrão é HKEY_CURRENT_USER mas, por via das dúvidas
  // vamos reafirmar isso
  reg.RootKey := HKEY_CURRENT_USER;

  // vamos abrir a chave criada anteriormente
  if reg.OpenKey('Arquivo de Códigos', False) then
    begin
      // vamos obter a data e hora gravada anteriormente
      try
        begin
          data_hora := reg.ReadDateTime('Data e Hora');
          ShowMessage('A data e hora armazenada é: ' + DateTimeToStr(data_hora));
        end
      except
        ShowMessage('A sub-chave não foi encontrada ou não ' +
          'possui um valor do tipo TDateTime');
      end;

      reg.CloseKey; // fecha a chave
    end
  else
    begin
      ShowMessage('Não consegui abrir a chave informada');
    end;

  // vamos liberar o registro 
  reg.Free;
end;

Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009.

Link para compartilhar na Internet ou com seus amigos:

Delphi ::: Data Controls (Controles de Dados) ::: TDBGrid

Como adicionar um botão ellipsis (...) nas células de uma determinada coluna do TDBGrid do Delphi e tratar seu evento OnEditButtonClick

Quantidade de visualizações: 11896 vezes

Em algumas situações gostaríamos de exibir um botão do tipo ellipsis (...) nas células de uma determinada coluna do TDBGrid. Este botão é exibido à direita da célula de edição do DBGrid e seu evento OnEditButtonClick pode ser disparado por meio da combinação Ctrl+Enter ou um click do mouse.

Um dos usos mais frequentes do botão ellipsis é quando queremos chamar um formulário de pesquisa ou mais detalhes sobre o conteúdo atual da célula que está sendo editada.

Siga os passos abaixo para adicionar um botão ellipsis (...) nas células de uma determinada coluna do TDBGrid:

a) Selecione a coluna desejada na lista Columns;

b) Defina o valor cbsEllipsis para sua propriedade ButtonStyle;

c) Escreva um gerenciador de eventos para o evento OnEditButtonClick do DBGrid. Veja no trecho de código a seguir como clicar no botão e exibir o conteúdo da célula (note que coloquei o botão ellipsis em uma coluna cujos células exibiam o valor do campo id de uma tabela livros):

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm3.DBGrid1EditButtonClick(Sender: TObject);
begin
  ShowMessage('O valor da célula que contém o botão é: ' +
    DBGrid1.SelectedField.AsString);
end;

Ao executar este código bastará entrar na célula e colocá-la em modo de edição. Automaticamente o botão ellipsis (...) será exibido. Clique no mesmo e verá uma mensagem parecida com:

"O valor da célula que contém o botão é: 5."

Caso queira que o botão ellipsis seja visível nas células o tempo todo, basta alterar o valor da opção dgAlwaysShowEditor para True. Esta opção é parte da propriedade Options do DBGrid.

Esta dica foi escrita e testada no Delphi 2009.

Delphi ::: VCL - Visual Component Library ::: TEdit

Como obter o conteúdo de um TEdit do Delphi em tempo de execução usando a função SendMessage() da API do Windows e a mensagem WM_GETTEXT

Quantidade de visualizações: 11793 vezes

Embora o Delphi já nos forneça as ferramentas necessárias para obter o conteúdo de um TEdit em tempo de execução, é importante saber como realizar esta tarefa usando a API do Windows. Para isso, podemos usar a função SendMessage() em combinação com a mensagem WM_GETTEXT.

A função SendMessage() da API do Windows possui a seguinte assinatura em C/C++:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

LRESULT SendMessage(          
  HWND hWnd,
  UINT Msg,
  WPARAM wParam,
  LPARAM lParam
);

No arquivo Windows.pas podemos encontrar o protótipo e corpo desta função convertidos para Object Pascal:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

// Protótipo
{$EXTERNALSYM SendMessage}
function SendMessage(hWnd: HWND; Msg: UINT; wParam: WPARAM; 
  lParam: LPARAM): LRESULT; stdcall;

// Implementação
function SendMessage; external user32 name 'SendMessageW';

Note que precisamos de um HWND (parâmetro hWnd) para a caixa de texto. Temos que fornecer também a quantidade de caracteres que serão lidos (parâmetro wParam) e um buffer no qual os caracteres lidos a partir da caixa de texto serão colocados (parâmetro lParam). Veja:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
  buffer: String;
  tamanho: Integer;
begin
  // vamos obter a quantidade de caracteres na caixa de texto
  tamanho := SendMessage(Edit1.Handle, WM_GETTEXTLENGTH, 0, 0);

  // vamos ajustar o tamanho do buffer
  SetLength(buffer, tamanho);

  // vamos usar a mensagem WM_GETTEXT para obter o conteúdo
  // da caixa de texto
  SendMessage(Edit1.Handle, WM_GETTEXT, tamanho + 1, lParam(@buffer[1]));

  // vamos exibir o resultado
  ShowMessage('O conteúdo do edit é: ' + buffer);
end;

Veja que usei também a mensagem WM_GETTEXTLENGTH para obter a quantidade de caracteres na caixa de texto. Isso foi necessário para redimensionarmos o buffer de caracteres para um tamanho capaz de acomododar todo o conteúdo do edit.

Delphi ::: VCL - Visual Component Library ::: TEdit

Como definir o conteúdo de um TEdit do Delphi em tempo de execução usando a função SendMessage() da API do Windows e a mensagem WM_SETTEXT

Quantidade de visualizações: 11157 vezes

Embora o Delphi já nos forneça as ferramentas necessárias para definir o conteúdo de um TEdit em tempo de execução, é importante saber como realizar esta tarefa usando a API do Windows. Para isso, podemos usar a função SendMessage() em combinação com a mensagem WM_SETTEXT.

A função SendMessage() da API do Windows possui a seguinte assinatura em C/C++:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

LRESULT SendMessage(          
  HWND hWnd,
  UINT Msg,
  WPARAM wParam,
  LPARAM lParam
);

No arquivo Windows.pas podemos encontrar o protótipo e corpo desta função convertidos para Object Pascal:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

// Protótipo
{$EXTERNALSYM SendMessage}
function SendMessage(hWnd: HWND; Msg: UINT; wParam: WPARAM; 
  lParam: LPARAM): LRESULT; stdcall;

// Implementação
function SendMessage; external user32 name 'SendMessageW';

Note que precisamos de um HWND (Handle) para a caixa de texto. Feito isso só precisamos enviar a mensagem WM_SETTEXT juntamente com o conteúdo a ser exibido no controle. Veja:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
  texto: String;
begin
  // conteúdo a ser definido para a caixa de texto
  texto := 'Veja isso';

  // vamos definir o conteúdo usando a função SendMessage
  // fornecendo a mensagem WM_SETTEXT
  SendMessage(Edit1.Handle, WM_SETTEXT, 0, Integer(PChar(texto)));
end;

Veja que o parâmetro wParam da função SendMessage não é usado quando a mensagem é WM_SETTEXT. Desta forma só precisamos fornecer o valor 0.

Vamos testar seus conhecimentos em Fenômeno de Transportes e Hidráulica

Número de Reynolds

O número de Reynolds (abreviado como Re) é utilizado para o cálculo do regime de escoamento de um fluido no interior de um tubo ou de um duto. Considere que um sistema hidráulico opera com óleo SAE 10W, de densidade igual a 920kg/m³ e viscosidade dinâmica de 0,018kg/(m.s), à temperatura de 55°C. Sabendo que o fluido escoa a uma velocidade média de 0,147m/s, e que o tubo tem 1m de diâmetro, qual é o número de Reynolds para o escoamento?

A) 7.513,33.

B) 2.300.

C) 112,65.

D) 715,33.

E) 1.126,50.

Verificar Resposta Estudar Cards Todas as Questões

Vamos testar seus conhecimentos em AutoCAD Civil 3D

Survey Points e COGO Points

Survey points não podem ser movidos ou editados sem acessar a base de dados do levantamento e sem usar comandos especializados para a edição de pontos de levantamento.

A) Verdadeiro

B) Falso

Verificar Resposta Estudar Cards Todas as Questões

Vamos testar seus conhecimentos em JavaScript

Analise o seguinte trecho de um documento HTML

<p id="elem">Veja esse texto.</p>

Qual é a sintáxe JavaScript correta para alterar o conteúdo desse elemento HTML?

A) document.getElement("p").innerHTML = "texto";

B) document.getElementById("elem").innerHTML = "texto";

C) #elem.innerHTML = "texto";

D) document.getElementByName("p").innerHTML = "texto";

Verificar Resposta Estudar Cards Todas as Questões

Vamos testar seus conhecimentos em Fenômeno de Transportes e Hidráulica

Fórmula de Hazen-Williams

A fórmula de Hazen-Williams (1903) é resultado de um estudo estatístico com grande número de dados experimentais, recomendada para escoamento turbulento de transição, água a 20ºC e diâmetro maior ou igual a 50mm.

Calcule o diâmetro de uma tubulação de aço (C=90), com 1.000m de comprimento e perda de carga de 51m, cuja vazão é de 200l/s.

A) Aproximadamente 0,3m de diâmetro.

B) Aproximadamente 0,4m de diâmetro.

C) Aproximadamente 0,1m de diâmetro.

D) Aproximadamente 0,5m de diâmetro.

E) Aproximadamente 0,2m de diâmetro.

Verificar Resposta Estudar Cards Todas as Questões

Vamos testar seus conhecimentos em Engenharia Civil - Instalações Hidráulicas Prediais

Água Fria: Reservatórios

O consumo diário de uma edificação pode variar de acordo com diversos fatores. Sobre as considerações relacionadas ao consumo diário e capacidade de reservatório de uma edificação é correto afirmar:

A) O consumo per capita é o consumo da edificação a ser considerado no dimensionamento do reservatório.

B) A capacidade de um reservatório deve ser calculada pelo tamanho da edificação, independentemente da taxa de ocupação.

C) A NBR 5.626 orienta que a capacidade do reservatório deve ficar entre 1 e 3 o consumo diário da edificação.

D) O consumo per capita não varia com as condições socioeconômicas, mas sim com o clima do local.

E) As reservas extras já estão incluídas no consumo total da edificação quando calculada em função do consumo per capita e da taxa de ocupação.

Verificar Resposta Estudar Cards Todas as Questões

Desafios, Exercícios e Algoritmos Resolvidos de Delphi

Um programa Delphi que lê dois números e mostra a soma, subtração, multiplicação e a divisão dos números lidos - Exercício Resolvido de Delphi

Ler uma temperatura em graus Celsius e apresentá-la convertida em graus Fahrenheit - Exercício Resolvido de Delphi

Como calcular média ponderada em Delphi - Ler o nome de um aluno e as notas de três provas - Exercícios Resolvidos de Delphi

Veja mais Dicas e truques de Delphi

Como excluir diretórios em Delphi usando a função RemoveDir()

Como converter o caminho relativo de um arquivo em caminho absoluto

Tutorial Delphi para iniciantes: Como usar o laço while do Delphi

Exercícios Resolvidos de Delphi - Como calcular média ponderada em Delphi - Ler o nome de um aluno e as notas de três provas

Como retornar o diretório atual em Delphi usando a função GetDir()

Como usar ponteiros na linguagem Delphi - Aprenda a usar ponteiros em Delphi

Como obter o índice da linha da célula atual em um TDBGrid do Delphi

Como adicionar ou subtrair meses de uma data em Delphi usando a função IncMonth()

Como usar a propriedade Bof para verificar se estamos no primeiro registro do TClientDataSet do Delphi

Como retornar a data e hora atual em Delphi usando as funções Now() e DateTimeToStr()

Dicas e truques de outras linguagens

Delphi - Como calcular desvio padrão em Delphi - Delphi para Matemática e Estatística

Java - Java Avançado - Como usar o método getBytes() da classe String para obter uma sequência de valores do tipo byte

Java - Exercícios Resolvidos de Java - Um laço for que solicita ao usuário 10 números inteiros e mostra o menor e o maior valor informado

C# - Como converter um tipo string para um tipo decimal em C# usando o método Parse() da classe Decimal

Java - Como verificar se Num Lock está ativado no seu teclado usando o método getLockingKeyState() da classe Toolkit da linguagem Java

Java - Java Swing - Como usar a classe JComponent em suas aplicações Java Swing

Java - Java Swing para iniciantes - Como usar o método getKeyCode() da classe KeyEvent para detectar qual tecla de direção (setas) foi pressionada

Java - Como verificar se um arquivo ou diretório existe em Java usando o método exists() da classe File

Python - Como criar arrays (vetores e matrizes) usando o objeto ndarray da biblioteca Numpy do Python

JavaScript - Como testar se uma string começa com uma determinada substring em JavaScript usando a função startsWith()

Códigos Fonte

Programa de Gestão Financeira Controle de Contas a Pagar e a Receber com Cadastro de Clientes e Fornecedores

Software de Gestão Financeira com código fonte em PHP, MySQL, Bootstrap, jQuery - Inclui cadastro de clientes, fornecedores e ticket de atendimento
Diga adeus às planilhas do Excel e tenha 100% de controle sobre suas contas a pagar e a receber, gestão de receitas e despesas, cadastro de clientes e fornecedores com fotos e histórico de atendimentos. Código fonte completo e funcional, com instruções para instalação e configuração do banco de dados MySQL. Fácil de modificar e adicionar novas funcionalidades. Clique aqui e saiba mais

Controle de Estoque completo com código fonte em PHP, MySQL, Bootstrap, jQuery - 100% funcional e fácil de modificar e implementar novas funcionalidades
Tenha o seu próprio sistema de controle de estoque web. com cadastro de produtos, categorias, fornecedores, entradas e saídas de produtos, com relatórios por data, margem de lucro e muito mais. Código simples e fácil de modificar. Acompanha instruções para instalação e criação do banco de dados MySQL. Clique aqui e saiba mais

Linguagens Mais Populares

1º lugar: Java
2º lugar: Python
3º lugar: C#
4º lugar: PHP
5º lugar: Delphi
6º lugar: C
7º lugar: JavaScript
8º lugar: C++
9º lugar: VB.NET
10º lugar: Ruby

Você está aqui: Delphi ::: Classes, Controles e Componentes ::: TRegistry (Registro do Windows)

Como gravar e ler datas e horas no registro do Windows usando Delphi

Delphi ::: Data Controls (Controles de Dados) ::: TDBGrid

Como adicionar um botão ellipsis (...) nas células de uma determinada coluna do TDBGrid do Delphi e tratar seu evento OnEditButtonClick

Delphi ::: VCL - Visual Component Library ::: TEdit

Como obter o conteúdo de um TEdit do Delphi em tempo de execução usando a função SendMessage() da API do Windows e a mensagem WM_GETTEXT

Delphi ::: VCL - Visual Component Library ::: TEdit

Como definir o conteúdo de um TEdit do Delphi em tempo de execução usando a função SendMessage() da API do Windows e a mensagem WM_SETTEXT

Vamos testar seus conhecimentos em Fenômeno de Transportes e Hidráulica

Vamos testar seus conhecimentos em AutoCAD Civil 3D

Vamos testar seus conhecimentos em JavaScript

Vamos testar seus conhecimentos em Fenômeno de Transportes e Hidráulica

Vamos testar seus conhecimentos em Engenharia Civil - Instalações Hidráulicas Prediais

Questões de Concurso para Engenharia Civil

Exercícios Resolvidos

Bancos de Dados

Questões de Concurso

Frameworks

Projetos e Códigos Fonte

Especializações

Calculadoras

Ferramentas

Todas as Linguagens, Frameworks, Biliotecas e Bancos de Dados

Compre pelo WhatsApp: +55 (062) 98553-6711

E-Book 650 Dicas e Truques de Python - Com comentários em Português

PDF COM 1.200 PÁGINAS

Apenas R$ 32,90