Ir para conteúdo
Fórum Script Brasil
  • 0

[Ajuda] Expiração do Programa


~ThiagoO

Pergunta

Olá galera,

queria um codigo que expirasse o programa em tal dia..

eu encontrei esse codigo:

var

diaexpira:string;

begin

diaexpira:=datetostr(now);

if (diaexpira='5/5/2009') then

begin

showmessage('O programa expirou!');

form1.enabled:= false;

+ ele so mostra ' o programa expirou' é so clicar em OK que o programa abre..

queria um codigo simples para expirar em tal dia..

agradeço ;)

Link para o comentário
Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

  • 0

Olá, para expirar programa eu uso um componente que achei fuçando na net, o TimeStop..

Você adiciona o componente no código fonte do programa..

Funciona bacana, você põe o dia, mês, ano, e a mensagem que você quer apareça quando a pessoa clicar no executável do programa..

Tá aqui o link do componente: http://www.4shared.com/file/112450445/d8d5f1d5/TimeStop.html

Link para o comentário
Compartilhar em outros sites

  • 0

então, quanto a instalação do componente, clique em Pesquisar na barra lá emcima do fórum e coloque "instalar componente" na busca, terá vários tópicos referente a como instalar componentes em várias versões do Delphi...

Quanto ao uso do OnGuard, há uma pasta Demos nele que contém vários modelos demonstrando como usar os componentes!!

qualquer dúvida poste ai

abrxxx ;)

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...