Ir para conteúdo
Fórum Script Brasil

sem ideia p/ nick

Membros
  • Total de itens

    892
  • Registro em

  • Última visita

Tudo que sem ideia p/ nick postou

  1. fala galera eu irei por <vox> ao lado dos topicos que criar sobre o meu programa beleza? --------------------------------------------- dessa vez esta acontecendo uma coisa que eu não estou entendendo. antes de começar a explicar olhem esse codigo program VoxMessenger; uses Forms, Messages, SysUtils, Variants, Classes, Graphics, Controls, Dialogs, StdCtrls, Menus, ExtCtrls, Unit1 in 'Unit1.pas' {frmlogin}, Unit2 in 'Unit2.pas' {frmcadastro}, Unit3 in 'Unit3.pas' {frminicio}, Unit4 in 'Unit4.pas' {frmsobre}, Unit5 in 'Unit5.pas' {frmchat}, Unit6 in 'Unit6.pas' {dm: TDataModule}, Unit72 in 'Unit72.pas' {frmadm}, Unit9 in 'Unit9.pas' {frmconfig}; {$R *.res} begin Application.Initialize; Application.Title := 'Vox Messenger'; Application.CreateForm(Tfrmlogin, frmlogin); Application.CreateForm(Tfrmcadastro, frmcadastro); Application.CreateForm(Tfrminicio, frminicio); Application.CreateForm(Tfrmsobre, frmsobre); Application.CreateForm(Tfrmchat, frmchat); try Application.CreateForm(Tdm, dm); if FileExists('D:\VoxMessenger\db\db.dll') = false then begin dm.Table1.Active := false; dm.Table1.DatabaseName := inputbox('VoxMessenger','digite o caminho do Banco de dados, se clicar em cancelar o valor ao lado sera colocado como padrão.','c:\VoxMessenger\db\'); dm.Table1.Active := true; end else showmessage('db encontrado'); except end; Application.CreateForm(Tfrmadm, frmadm); Application.CreateForm(Tfrmconfig, frmconfig); Application.Run; end. agora o problema e o seguinte eu fiz meu projeto na unidade D:\ da minha maquina então a galera que não tem o DB na unidade D:\ não usa o programa. eu tentei resolver isso fazendo o seguinte olhem ... try Application.CreateForm(Tdm, dm); if FileExists('D:\VoxMessenger\db\db.dll') = false then begin dm.Table1.Active := false; dm.Table1.DatabaseName := inputbox('VoxMessenger','digite o caminho do Banco de dados, se clicar em cancelar o valor ao lado sera colocado como padrão.','c:\VoxMessenger\db\'); dm.Table1.Active := true; end else showmessage('db encontrado'); except end; ... eu tento buscar o DB se não achar ele aparece um INPUTBOX perguntando ao usuario o que ele fez do DB. agora ele nunca mostra o SHOWMESSAGE('DB ENCONTRADO') por mais que o DB esteja no lugar certo aqui na MINHA maquina. alguém sabe corrigir ou me explicar o que pode estar acontecendo!? desde já agradeço, e aguardo resposta. como disse acima eu vou por <VOX> ao lado dos topicos que criar sobre meu programa. meu MSN : pedro_Rj_@hotmail.com
  2. olha eu baixei a versao :: Inno Setup 5.0.3 Preview < la no superdownloads > isso foi assim que eu li aqui no forum pelo hacker que existia esse prog. a versao Inno Setup 5.0.3 Preview e muito diferente da 4.7 então eu peguei a apostila não sai do luga com ela porque tudo e diferente. lembrando que a versao Inno Setup 5.0.3 Preview E HORRIVEL (comparada com a 4.7) resumindo. eu baixei agora a 4.7 estou adorando. respondendo a outra pergunta eu quero o BDE pelo seguinte: eu fiz um programa em delphi que usa BANCO DE DADOS PARADOX (queria saber por isso em rede se alguém souber posta ae ) e o wndows não tem esses drives então la no superdownloads mesmo eu encontrei o BDE FACIL < que pretendo instalar junto ao meu programa isso tudo usando o INNO> entenderam a minha ideia ?
  3. olha valeu mesmo eu vou ler com calma a apostila amanha, a minha versao do inno era outra, que eu tinha buscado la no superdownloads. agora eu estou com a mesma versao que esta na apostila ele vai tudo que eu quero e mais um pouco !!!! ehehehhe MSN : pedro_Rj_@hotmail.com
  4. fala ae eu denovo.... isso não e flood ... seguinte eu encontrei la no superdownloads um BDE facil ele instalou tudo que eu queria mais eu ainda não estou satisfeito e culpa sua hein haahhaahh eu so queria o BDE mais eu me amarrei no Inno Setup. entoa eu queria saber o seguinte. tem como no meio da instalaçao ele instalar o BDE facil ? eu ate criei uma install la mais deu errado ele copiou os arquivos mais eu não consegui definir a pasta padrão que vai aparecer para o usuario nem o destino do atalho que ele cria no menu e no desktop. voce pode me dar uma ajuda nisso ae ?
  5. fala cara beleza? eu estou baixando o Inno Setup como voce falou. mais eu quero um prog que instale tambem o BDE do delphi porque seguinte. meu prog usa banco de dados <paradox> e no windows 98 alias em qualquer winodws que não tenha o delphi instalado meu prog não roda eu quero um instal que copie os arquivos necessarios.... esse Inno Setup faz isso ?
  6. alguém pode me arrumar e me ensinar a usar. eu já ouvi dizer que não tem nem o que ensinar porque e muuito facil mais o meu delphi não tem o install shield, como eu arrumo isso ?
  7. cole acho que nem MIL eu tanho !!! hauahauaha se liga ae -JUNIOR - voce precisa de um banco de dados para armazenar os seus usuarios, e precisa de um laço que verifique tudo isso e faça o prog dar acesso ao usuario.
  8. olha eu tentei isso dia desses tambem não consegui. agora se o form não for MDI vai funcionar direitinho.
  9. olha cara na verdade voce pode por um IF e conforme o usuario que voce quer la tal. voce tira o VISIBLE dos menus e dos botoes assim aquele usuario não conseguirar ver... saco ?! não existe componente para isso (não que eu conheça)
  10. opa desculpa não postar antes estava com probs aqui na maquina. seguinte eu resolvi vendo que o reg : tregistry; tem que ser public e reg := TRegistry.Create; tem que estar nos dois tanto para gravar quanto para ler
  11. jziaaahauahauah 2000 mais seguro que xp. olha o xp veio para corrigir falhas do 2000 claro que a versao home não e tão sinistra assim. a profissinal com sp2 mudou bem. mais o xp não pode ser comparado com o 2000
  12. procedure TForm1.Button1Click(Sender: TObject); var reg : Tregistry; teste : string; begin reg := TRegistry.Create; try reg.RootKey := hkey_local_machine; \\acessa chave reg.OpenKey('\software\VoxMessenger\edit',true); \\cria se não tiver pasta reg.WriteString('edit',Edit1.text); \\grava dados finally end; end; procedure TForm1.Button2Click(Sender: TObject); var reg : tregistry; begin reg.RootKey := hkey_local_machine; reg.OpenKey('\software\VoxMessenger\edit',true); Edit2.Text := reg.ReadString('edit'); \\le os dados end; fala galera eu denovo, eu estou fazendo um prog meio complicado, então conforme vao surgindo as duvidas eu vou postando.... o prog cria chave e grava os dados. agora ele não esta lendo alguém sabe se tem alguma coisa errada ou então se eu esqueci de alguma coisa ? valeu ae desde já !
  13. ih caraca ...desculpa ae... se alguém puder redirecionar isso la para a parte de delphi !!!!!!
  14. procedure TForm1.Button1Click(Sender: TObject); var reg : Tregistry; teste : string; begin reg := TRegistry.Create; try reg.RootKey := hkey_local_machine; \\acessa chave reg.OpenKey('\software\VoxMessenger\edit',true); \\cria se não tiver pasta reg.WriteString('edit',Edit1.text); \\grava dados finally end; end; procedure TForm1.Button2Click(Sender: TObject); var reg : tregistry; begin reg.RootKey := hkey_local_machine; reg.OpenKey('\software\VoxMessenger\edit',true); Edit2.Text := reg.ReadString('edit'); \\le os dados end; fala galera eu denovo, eu estou fazendo um prog meio complicado, então conforme vao surgindo as duvidas eu vou postando.... o prog cria chave e grava os dados. agora ele não esta lendo alguém sabe se tem alguma coisa errada ou então se eu esqueci de alguma coisa ? desde já valeu ae
  15. olha fui eu sem logar que disse que não sabia o que era DHCP. mais já tinha escutado um pouco sobre. eu não sei ao certo se e o que voce procura SPX mais em conex de rede, clica com botao direito na conexao local. vai ter seus protocolos etc. vai no TCP/IP depois em AVANÇADO. la fala sobre DHCP. de uma olhada para ver se e o que procura. beleza?
  16. sem ideia p/ nick

    Ie

    olha isso leva mais jeito de ERRO na PAGINA que tenta abrir. ou então da sua conexao. que pode estar demorando e dando esse erro.
  17. muuuuito obrigado aeeeee...valeu mesmo caraca eu não conhecia esse comando. puxa funcionou perfeitamente.... mais uma vez VAAALEEEU
  18. alguém sabe como usar isso? {-$} {+$} eu queria que meu programa não desce erro ao não encontrar os aquivos que ele tenta carregar. ex: tenho um MEMO que por padrão tem uma msg caso não seja carregado o TXT. então eu quero que o programa inicie sem ERROS caso não tenha o TXT. eu ouvi dizer que poida usar {$} mais não da certo alguém sabe como usar ou o que esta errado? desde já valeu ae. aguardo resposta
  19. olha cara tive muuuuito problemas com isso. eu tentei instalar o xp no C: e o 98 na D: mais deu muito rolos então eu instalei na C: o windows mais antigo no caso o 98 ( no seu o 2000) e depois o xp. sem prob algum quanto ele estar no D: para voce poder ver o boot.ini tem que deixar o windows exibir os items de sistemas e items ocultos
  20. como eu consigo ele ? qual idade minima. escolaridade etc.. etc...
  21. poxa já tem um tópico falando sobre isso. voce podia perguntar la nele. pesquisem antes de criar os topicos !!!!
  22. falo então. eu tava afin disso para não ficar mudando toda hora aqui no trab !
  23. se eu quiser gravar config do meu prog como eu devo fazer para ele gravar la ?
  24. eu queria saber se tem como salvar a resoluçao da tela de um login pro outro. ex: eu logo dai coloco 128x768x32 com 85hrz dai voce loga e poe 800x600x32 com 60hrz. quando eu voltar a logar terei que mudar resoluçao outra vez porque voce mexeu sacaram o ex. o windows 2000 não salva a resoluçao de tela ? como fazer?
  25. conheço um jeito mais simples... la no C:\ tem uma pasta chamada Documents and Settings la dentro dela tem perfil da galera que usa a mesma maquina e so transferir os arquivos de pasta. eu queria saber se tem como salvar a resoluçao da tela de um login pro outro. ex: eu logo dai coloco 128x768x32 com 85hrz dai voce loga e poe 800x600x32 com 60hrz. no perfil la do 2000 ele não salva a resoluçao tem algum macete para isso acontecer ou ele não salva mesmo ?
×
×
  • Criar Novo...