Controlar Alguel de Sistema
Alguem tem uma rotina para CONTROLE DE ALUGUEL DE SISTEMAS que pudesse me passar?
Grato,
Mardônio
Grato,
Mardônio
Mardônio
Curtidas 0
Respostas
Mardônio
11/11/2003
???
GOSTEI 0
Mardônio
11/11/2003
???
GOSTEI 0
Mardônio
11/11/2003
???
GOSTEI 0
Dgsfilho
11/11/2003
Você pode trocar o .exe periodicamente, se não conseguir fazer nenhuma rotina onde peça uma senha diferente a cada período.
Colocar no evento OnCreate, OnActivate ou OnShow do form.
var DataExp, DataIni : TDateTime;
begin
DataIni := Now;
DataExp := 37940; //37940 = 15/11/2003
if DataExp >= DataIni then
ShowMessage(´O prazo de validade será vencido em ´+ DateToStr(DataExp)+#13+ ´Após esse prazo entre em contato com o Desenvolvedor.´)
else
Application.Terminate;
end;
É um exemplo bem simples espero que ajude :!:
Colocar no evento OnCreate, OnActivate ou OnShow do form.
var DataExp, DataIni : TDateTime;
begin
DataIni := Now;
DataExp := 37940; //37940 = 15/11/2003
if DataExp >= DataIni then
ShowMessage(´O prazo de validade será vencido em ´+ DateToStr(DataExp)+#13+ ´Após esse prazo entre em contato com o Desenvolvedor.´)
else
Application.Terminate;
end;
É um exemplo bem simples espero que ajude :!:
GOSTEI 0