Consegui .... Agradeço a ajuda de todos ...
Ficou assim ... Em vez de usar o WinExec usei: ShellExecute(Handle, 'open','\cicero\diauni\project1.exe', PChar(chave), nil, SW_SHOWNORMAL); Deu certo o Project.exe manda abrir o project1.exe e localiza a chave do registro que eu estou trabalhando no Project.... Valeu amigos ... Infelismente com o WinExec não consegui fazer com que ele entenda o parâmetro como uma variável .... FIOS E CABOS ENGENHARIA LTDA CÍCERO FERNANDES ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO CREA-SC 27.958-0 0xx(47) 3521-2988 - 0xx(47) 9191.6226 www.fiosecabos.ind.br <http://fiosecabos.ind.br/> - cic...@fiosecabos.ind.br P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO AMBIENTE! De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Fios e Cabos Enviada em: segunda-feira, 5 de outubro de 2009 17:44 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] integrando bases de dados Alguem pode me dar uma ajuda ... To me batendo com isso um monte e não consigo ... procedure TF_Clientes.Button1Click(Sender: TObject); var chave : string; begin chave := f_clientes.RzDBEdit3.text; winexec ('\cicero\diauni\project1.exe' +chave ,sw_normal); end; Não consigo fazer o Delphi 7 entender que a chave é uma variável .... Se eu substituir manualmente o termo +chave pelo numero de algum registro ... tudo funciona perfeitamente .... mas preciso que o sistema capture automaticamente o numero da cada registro..... Help FIOS E CABOS ENGENHARIA LTDA CÍCERO FERNANDES ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO CREA-SC 27.958-0 0xx(47) 3521-2988 - 0xx(47) 9191.6226 www.fiosecabos.ind.br <http://fiosecabos.ind.br/> - cic...@fiosecabos.ind.br <mailto:cicero%40fiosecabos.ind.br> P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO AMBIENTE! De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> [mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> ] Em nome de Fios e Cabos Enviada em: domingo, 4 de outubro de 2009 23:52 Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> Assunto: RES: [delphi-br] integrando bases de dados Olha o código que estou tentando ... procedure TF_Clientes.Button1Click(Sender: TObject); var chave : string; begin chave := f_clientes.RzDBEdit3.text; winexec ('\cicero\diauni\project1.exe' +chave ,sw_normal); end; desde já obrigado pela ajuda FIOS E CABOS ENGENHARIA LTDA CÍCERO FERNANDES ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO CREA-SC 27.958-0 0xx(47) 3521-2988 - 0xx(47) 9191.6226 www.fiosecabos.ind.br <http://fiosecabos.ind.br/> - cic...@fiosecabos.ind.br <mailto:cicero%40fiosecabos.ind.br> <mailto:cicero%40fiosecabos.ind.br> P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO AMBIENTE! De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> <mailto:delphi-br%40yahoogrupos.com.br> [mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> <mailto:delphi-br%40yahoogrupos.com.br> ] Em nome de Claudiney - Listas Enviada em: domingo, 4 de outubro de 2009 00:08 Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> <mailto:delphi-br%40yahoogrupos.com.br> Assunto: RES: [delphi-br] integrando bases de dados Olá Cícero. Neste caso os dois são projetos diferentes, executáveis diferentes, conexões diferentes ao banco de dados. Não vejo uma forma de comunicação direta entre os dois. A única maneira que vejo é você passar na linha de comando, como parâmetro na hora da chamada do Project1, o registro que você selecionou no Project e lá no Project1 você buscar esse registro. Não vejo outra saída. Tipo: No momento da chamada no project você usar: project1.exe chavedoregistro (ex: project1.exe 1534) No Project um quando abrir fazer o select pra buscar o registro, algo como: cdsTabela.CommandText := Select * from tabela where chave = + paramStr(1); ou qryTabela.Sql := Select * from tabela where chave = + paramStr(1); ou posicionar a tabela: Locate('chave', paramStr(1), [loPartialKey]); ParamStr(1) retorna para você o primeiro parâmetro passado na linha de comando. ParamStr(2) retorna o segundo e assim por diante. ParamStr(0) retorna o nome do executável chamado. Pode ser que assim você resolva. Não conheço outra maneira, mas pode ser que alguém da lista conheça. Um abraço _____ Claudiney Cogo N2 Sistemas e Soluções em Informática Av. São Paulo, 172 - 15º Andar - Sala 1505 Fone/Fax: (44) 3029-6053 - Maringá - Paraná <http://www.n2solutions.com.br/> www.n2solutions.com.br <http://www.nfe.n2solutions.com.br/> www.nfe.n2solutions.com.br <http://www.studion2.com.br/> www.studion2.com.br De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> <mailto:delphi-br%40yahoogrupos.com.br> <mailto:delphi-br%40yahoogrupos.com.br> [mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> <mailto:delphi-br%40yahoogrupos.com.br> <mailto:delphi-br%40yahoogrupos.com.br> ] Em nome de Fios e Cabos Enviada em: sábado, 3 de outubro de 2009 22:43 Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> <mailto:delphi-br%40yahoogrupos.com.br> <mailto:delphi-br%40yahoogrupos.com.br> Assunto: [delphi-br] integrando bases de dados Minha duvida é a sgte .... tenho um Project.exe que chama outro modulo projec1.exe ... Como posso fazer para um form do project1 acessar uma base de dados com o ponteiro definido no Project. Ou seja ... kero abrir o form do project1 no registro definido pelo Project .... Tudo está funcionando ... porém qdo abro o sistema 2 ele está no primeiro registro do banco ... Obrigado FIOS E CABOS ENGENHARIA LTDA CÍCERO FERNANDES ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO CREA-SC 27.958-0 0xx(47) 3521-2988 - 0xx(47) 9191.6226 www.fiosecabos.ind.br <http://fiosecabos.ind.br/> - cic...@fiosecabos.ind.br <mailto:cicero%40fiosecabos.ind.br> <mailto:cicero%40fiosecabos.ind.br> <mailto:cicero%40fiosecabos.ind.br> <mailto:cicero%40fiosecabos.ind.br> P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO AMBIENTE! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
