hencker

Tem a forma simplificada de fazer isso! procedure TForm1.FormCreate(Sender: TObject); Var Serial:DWord; DirLen,Flags: DWord; DLabel : Array[0..11] of Char; begin Try GetVolumeInformation(PChar('C:\'),dLabel,12,@Serial,DirLen,Flags,nil,0); label1.Caption:= IntToStr(Serial); Except label1.Caption:= 'Não foi possível executar a operação!'; end; end; Outra dica importante é fazer com que o sistema trave todo o mes, e peça uma nova atualização, issto também dá um controle maior sobre as ações do software. Tem um componente chamado TimeStop que faz isso e na data especificada ele trava o sistema!

Num entedi lazarodm

Como mostrar figuras num DBGrid ou StringGrid? Preciso de um componente específico?

Nos meus sistemas eu faço o seguinte: Na primeira utilização do sistema ele mostra uma tela de desbloqueio, com dois numeros, a hora atual e um edit: O primeiro numero é o nº de série do HD / Memória RAM / velocidade do pocessador O segundo é um resultado de um algoritimos qeu eu criei baseado no nº do HD e na hora da tentativa de abertura do sistema A hora é a do sistema mesmo, normalz: Eu forneço um telefone para que meus clientes liguem, eu cadastro os dados : nº de série do HD / Memória RAM / velocidade do pocessador, e mesmo que os dados sempre batam, eu pergunto "Houve alguma alteração no HardWare?". Eles sempre respondem que não... se mudarem de computador vai mudar, provavelmente, a velocidade do processador ou a quantidade de memória, ai eles me ligam para ativar o produto e eu saberei que não é o mesmo computador... Depois do produto ativado eu gravo no registro do sistema q o software foi registrado, e toda vez que o sistema é aberto ele faz a verificação do registro pra evitar q depois do destravamento seja feita uma cópia fiel e enviada para outro comp.!!! Depois dessa notícia estou pensando em adquirir mais dados do computador do cliente para dificulte ainda mais esse tipo de trapaça!

Consegui, em partes: Troquei: = '+#39+EditPesquisa.Text+#39''); Por: LIKE '+#39+Trim(EditPesquisa.Text)+'%'+#39); Porém assim, utilizando do exemplo acima, somente se eu digitar Tiago, porém se eu digitar Baroni ele num localiza... alguém sabe como fazer funcionar plz... Quanto a selecionar em quanto digita resolvi colocando isso no evento onKeyPress do Edit: procedure TMasterPesqClientes.EditPesquisaKeyPress(Sender: TObject; var Key: Char); begin inherited; btnLocalizaClick(Self); end;

Estou usando o seguinte código para fazer pesquisas no meu Banco de Dados: case RGOpcoes.ItemIndex of 1 : try with DMGeral.ZQClientes do begin Close; SQL.Clear; SQL.Add('SELECT * FROM CLIENTES WHERE NOME = '+#39+EditPesquisa.Text+#39''); Open; end; except Erro('Não foi possível realizar a pesquisa, verifique os parâmetros!'); end; Porém dessa forma ele localiza somente pela string inteira, por exemplo: Entenderam? Teria como fazer isso em quanto digito, tipo, ir digitando e ele ir filtrando?

VLW VELHO ME AJUDOU PACAS... ERA ISSO MESMO Podem Fechar!!!

Como todo autodidata, algumas coisas me passaram batido, não sei usar SelectCase ... alguém pode me ensinar plz??? Sei que é um tópico estúpido mas é uma duvida que eu tenho... Sei que com o Select vou economizar linhas de código do meu programa e deixalo (um pouco) mais rapido...

alguém sabe de alguma rotina que configure automaticamente o BDE para um banco FireBird? Tipo meu instalador instala automaticamente o BDE e o driver do FireBird Client, ai quando eu entro no programa ele configura o nome, username, diretorio raiz e driver do meu banco...

Uso D7 mas tenho tb o D5 e meu D8 deve chegar essa semana, todos originais (graças a Deus...)... Me decidi, li um artigo no site do CAPABLANCA.::Capablanca - A Delphi Point::. e decidi usar o FireBird... quando for implementar para rede eu posto aki... Tenho uma dúvida agora: Existe algum componente além do ZeosDBO para acessar o Fire, e onde eu consigo o Fire mais atual para download? A propósito: nesse projeto vou usar o D7 até me acostumar e aprender o D8...

O que vocês acham do ACCESS??? A unica coisa q me deixa receoso com ele é que, pelo que me disseram ele não cria novas tabelas em tempo de execução. Meu prob. com o FireBird e com o Interbase é que nunca consigo configurar eles pra rede... (fora que o Interbase é Share). Quanto ao FireBird tb. num consigo acessar ele, se pelo menos eu tivesse os compnentes necessário para acessa-lo...

Galera na opinião de vocês qual o melhor banco de dados??? Levando em consigeração que ele vai ser usado em aplicações pequenas, raramente excedendo 15.000 itens no banco...

O problema é que alguns componentes não funcionam, nem tm versões para o D7... Teria alguma forma de "forçar" a funcionar???

Como tudo na vida evolui, eu tb to evouindo, finalmente comprei meu D7, tenho vários códigos fontes em D5. Vários componentes do D5 não são instaláveis no D7, será que existe uma forma de trasnportar??? Meus códigos fontes apresentam uns erros loucos, é normal???

Ai Progr'amador ,li todo o mal entendido, putz q rolo, você realmente não teve culpa. Você é um ótimo Moderador, e não merecia isso, mas infelizmente... Força e fica sussa q você vai voltar lá pra cima!!!

Link sobre BDE em redes Esse tópico é perfeito fala tudo sobre o BDE...

Na verdade diferença deve existir, mas até hoje não notei (Tb. uso essa versão a 4.2.7...)

Claro que eu te ajudo... Aliás eu não esse link vai ajudá-lo: Apostila de Inno Setup... Ele vai redirecioná-lo pra a página de download da melhor apostila de Inno Setup que eu já vi... Nela vai mostrar como você baixa o ISTool , esse ISTool vai fazer o que você precisa... Qualquer dúvida posta ai... Boa Sorte e Bom Trabalho!!!

Quer um conselho??? Use o Inno Setup, além de ser freeware eu possuo uma apostila ótima... e tem umas ferramentas muito interessamtes em português, o que o torna bem mais fácil de compreender.... Se precisar, me procure...

O que é mal para você??? Antes de mais nada deve-se entrar no meio ético. O que é certo para uns é errado para outros... NetSky era certo para quemn estava infectado, porém infectava o computador do usuário de uma outra forma... O que fica como dica para quem deseja se aprofundar é: ESTUDEM!!!

Ufs... consegui "contornar" o problema... Importante frisar contronar porque não resolvi porém encontrei uma solução... A solução: Abri o Delphi 5 e o Delphi 7 ao mesmo tempo e fui transcrevendo o código... Agora ta dando um outro erro: Detalhe: O programa DBAdmin.exe funciona perfeito, esse erro aparece a hora q eu fecho o programa...

Ai galera estou com o seguinte problema: [Fatal Error] S_Gerente.dpr(10): Unit StdActns was compiled with a different version of StrUtils.TStringSearchOptions Isso aparece a cada vez que tento compilar meu programa, ele foi originalmente feito em D5, estou tentando mudar seus fontes agora para D7 e aparece essa msg de erro, tentei fazer uma coisa q já tinha sido postada aki no forum mais não deu certo...

Mas não existe nenhuma outra função ou rotina que assuma o papel da UndoLastChange()??? Quanto ao ApplyUpdates os parâmetros estão todos certos... Não sei o porque do erro, se alguém souber de alguma rotina ou função q eu possa usar no lugar para poder assumir essa função eu agradeço muito!!!

Surgiram pra mim novas dificuldades quanto minha migração para o componente TQuery... No TClientDataSet eu fazia o segunte procedimento para verificar se tinha sido possível realizar uma alteração no banco... procedure TMasterCad.TBApagarClick(Sender: TObject); var Codigo_Retornar: Integer; begin inherited; if Confirma('Excluir ?') then begin with TabelaMaster do begin Codigo_Retornar := TabelaMaster.FieldByName(Chave).AsInteger; Delete; if ApplyUpdates (-1) <> 0 then begin Aviso('Exclusão não efetuada!'); UndoLastChange(True); end else Devolver_Codigo(Tb_Banco, Chave, Codigo_Retornar); end; case Resetar_Tabela of stResetar : Reseta_Tabela; end; end; end; ... funcionava perfeitamente. Com o componente TQuery ele até reconhece a funcão ApplyUpdates porém dá a seguinte mensagem de erro: Acho q ele não está reconhecendo o (-1)... ( if ApplyUpdates (-1) <> 0)... Outro problema que acontece é que, com o TClientDataSet, a função UndoLastChange(True); fazia com que a última ação no componente fosse desfeita (no caso a exclusão do registro do banco de dados), existe alguma função semelhante para o TQuery???

Consegui!!! Fiz o seguinte galera: No lugar de: Coloquei: if Valor_Chave <> '' then SQLp := SQLp + (' FROM '+ Tab_Banco + ' WHERE '+ Chave + '= "'+ Valor_Chave +'"') else SQLp := SQLp + (' FROM '+ Tab_Banco + ' WHERE '+ Chave + ' IS NULL '); with DMCadastros.QGeral do begin Close; SQL.Clear; SQL.Add(SQLp); Open; Detalhe importante no primeiro código SQL era uma variável e não a função, no segundo caso tive que mudar o nome da variável para não haver conflito!!! ...podem fechar!!!