Walter Gazzarrini Neto

Uso Delphi 7 e My Sql 4.1, se puder me ajudar vlw, que programas são esses que você utiliza? Abraços vlw!

Como faço para expirar um programa e pedir uma senha quando expirar e caso esteja correta funcionar normalmente? vlw agradeço desde já!!!...

vou tentar já posto para o resultado, obrigado pelas dicas... Micheus eu que dormi mesmo e não percebi que não estava logado!!! Vlw...

Por mim nem precisa continuar este tópico utilizei o inno setup como instalador e o relatório é simplesmente ligar os campos no query!!!! obrigado pela ajuda até a próxima vlw...

Mas não há nenhuma estrutura de código que me permita tipo declarar uma variável e ela ser lida apenas uma vez?

não não apareça antes do login!!!!,e se eu digitar a senha ai vai pro login,mas só quero que aconteça isso uma unica vez depois não aconteça mais!!! obrigado

É assim eu quero que apareça uma tela antes do logar!!!,mas eu estou usando uma data para isso, só que eu num quero que apareça o dia todo eu quero que depois de ter aparecido essa tela e ter digitado uma senha esse código seja destruido ou apagado ou não mais lido ou sei lá, entendeu? obrigado polo interesse , abraços!!!!

Meu amigo programa em VB e diz que ele cria um módulo para que ocorra o código apenas uma vez e depois é destruido e disse que em VB é muito fácil ,há como fazer isso em delphi tb? agradeço abs.

Copilar? É que geralmente compilar agente usa para sinonimo de rodar o programa que é só apertar F9, mas você deve estar querendo dizer pra tipo instalar seu programa não é?? se for olhe nesse tópico que eu fiz link olha os links do micheus há um programa chamado Inno Setup muito bom e fácil de usar !!!! abs...

tipo: use isso no exit do edit var: t:integer begin t:=Length(Edit.Text); end; espero que ajude.....abs.

Fiquei pensando nesse tópico e tive essa idéia de pegar os registros dos edits do form e jogar no word vê se ajuda..... procedure TForm1.Button1Click(Sender: TObject); var Word : Variant; i : Integer; begin i := 3; //aqui você coloca o número de edits que você tiver no form if Components[i] is TEdit then begin Word := CreateOleObject('Word.Application'); Word.Visible := True; Word.Documents.Add; word.selection.text:=TEdit(Components[2]).Text+' '+ TEdit(Components[3]).Text+' '+TEdit(Components[4]).Text; //Aqui você insere o conteúdo do edit no word, o nº do componente é o valor de seu tab order // Word.ActiveDocument.SaveAs('teste.doc',0); não consegui fazer salvar automaticamente somente quando fecha o word, mas é até melhor // Word.Quit; end; end; Se você quiser limpar o conteudo dos edits TEdit(Components).Text := '';,agora você pode ir inserindo dados com 'word.selection.text:=' e criar tipo uma tabela no word e ir formatando a sua preferencia...