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.
Pergunta
sem ideia p/ nick
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
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 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 opor 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
Link para o comentário
Compartilhar em outros sites
10 respostass a esta questão
Posts Recomendados