Eder

Oba...Micheus...deu certo.consegui montar o código pra COMPACTAR e DESCOMPACTAR Como você mesmo disse a Metodologia é a mesma do Winzip, só muda as Letrinhas -a -rps Fica assim com FilZip: Compactar: procedure TForm1.Button3Click(Sender: TObject); begin WinExec(PChar('c:\arquivos de programas\filzip\filzip.exe' + ' -a -rps "'+ 'c:\tio1\bk\220109.zip' + '" ' + 'c:\tio1\*.*'),sw_ShowNormal); end; Descompactarprocedure TForm1.Button4Click(Sender: TObject); begin WinExec(PChar('c:\arquivos de programas\filzip\filzip.exe' + ' -e -rps "'+ 'c:\tio1\bk\220109.zip' + '" ' + 'c:\tio1\des\'),sw_ShowNormal); end; Abaixo colei as dicas do FilZip: valeu..Grato ;)

Ok...isto mesmo ...peguei uma maquina que não tinha a associação e nem feito teste e funcionou certinho.. valeu...Micheus Obrigado também JOnas.. Grato o todos Grande Abraço :)

Ola..Pessoal testei este codigo aqui pra compactar com winzip E funcionou certinho: procedure TForm1.Button3Click(Sender: TObject); begin WinExec(PChar('c:\arquivos de programas\winzip\winzip32.exe' + ' -min -a -r "'+ 'T:\BK\210108.zip' + '" ' + 'C:\TESTE\*.*'),sw_ShowNormal); end; Porem como não uso o WinZip e sim o Filzip gostaria de saber se é possível compactar com ele....já que o proprio FilZip é feito em Delphi.. Tentei troca a linha: por esta do Filzip: mas o programa pisca e nada acontece... Grato

Oba...Micheus....beleza? R. : perdão faltou atenção carinha eu coloquei assim na procedure...acredito que só aqui que muda. procedure RegistrarExtensaoQRP; begin RegistrarExtensao('QRP', 'Arquivo de visualização de relatório', 'programa', 'C:\pasta\programa.exe'); end; ai testei.....mas não funcionou ...o icone dos qrp até mudou....ficou certtinho com icone do programa a ser usado..porem quando clicko nele...abre um outro programa.... Será porque eu já tinha associado na mão pra outro programa(testando) e agora ele não altera...e sim só inclui??porque o ícone ele mudou certinho.. valeu...grato

Jonas.....Beleza?? Bdia... Carinha...testei...realmente funcionou...mas não era exatamente o que imaginava.... neste caso a manipulação é feito no delphi, no aplicativo, em cima do aplicativo. vou explicar desta forma.... vamos supor que você abra o seu windows explorer...e la encontre arquivos com extensão *.qrp e estes arquivos você sabe pela cor dos icones que estes arquivos não estão associados no windows.... ai o que você faz?? você clicka com o lado direito do mouse em cima de um deles e faz a associação no braço......pois é....eu só queria fazer este pequeno processo num simples click....ou no Onshow de um aplicativo algo parecido...mas sem intervensão do usuario...ele nem iria perceber tal associação..e quando fecharia o aplicativo delphi..esta associação ficaria pronta pra qualquer operação. eu só queria fazer automatizada sem ter que o usuario fazer a associação. se o aplicativo que lê qrp´s fosse meu(com codigos fontes) ai eu faria este processo que você me explicou..e aquele que achei na net...mas como não é meu tenho que fazer desta maneira. talvez esta função que você me passou tenha alguma coisa parecida...... o que você acha?? Abraços...t+ :) ;) Grato

Ola..JOnas...dei uma analizada no linck que você me passou..mas como deu um erro...ai desisti.. procurando na net achei esta dica: procedure TForm1.XiButton1Click(Sender: TObject); var Reg: TRegistry; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_CLASSES_ROOT; Reg.LazyWrite := false; { Define o nome interno (ArquivoQRP) e uma legenda que aparecerá no Windows Explorer (Arquivos QRP) } Reg.OpenKey('ArquivoQRP', true); Reg.WriteString('', 'Arquivos QRP'); Reg.CloseKey; { Define o comando a ser executado quando abrir um arquivo pelo Windows Explorer (NomeDoExe %1). O símbolo %1 indica que o arquivo a ser aberto será passado como primeiro parâmetro para o aplicativo - ParamStr(1). } Reg.OpenKey('ArquivoQRP\shell\open\command', true); Reg.WriteString('', ParamStr(0) + ' %1'); { NomedoExe %1 } Reg.CloseKey; { Define o ícone a ser usado no Windows Explorer: 0 - primeiro ícone do EXE 1 - segundo ícone do EXE, etc } Reg.OpenKey('ArquivoQRP\DefaultIcon', true); Reg.WriteString('', ParamStr(0) + ',0'); { 0 = primeiro ícone } Reg.CloseKey; { Define as extensões de arquivos que serão abertos pelo meu aplicativo } { *.qrp } Reg.OpenKey('.qrp', true); Reg.WriteString('', 'ArquivoQRP'); Reg.CloseKey; {{ *.dan } {Reg.OpenKey('.dan', true); Reg.WriteString('', 'ArquivoQRP'); Reg.CloseKey; } finally Reg.Free; end; end; procedure TForm1.FormShow(Sender: TObject); begin { Se o primeiro parâmetro for um nome de arquivo existente... } if FileExists(ParamStr(1)) then { Carrega o conteúdo do arquivo no memo } Memo1.Lines.LoadFromFile(ParamStr(1)); end; Porem pelo que entendi no exemplo que montei ele monta a associação do arquivo em cima do proprio aplicativo..ou seja, vamos supor que este aplicativo se chama TESTE ....então eu associei o *.qrp ao aplicativo TESTE. Beleza..funcionou certinho... porem como eu to usando um aplicativo de terceiro e ai eu não tenho acesso ao fonte e consequentemente não posso utilizar este codigo... eu precisaria de algo tipo assim num botão: arquivo *.qrp aberto pelo programa c:\teste\teste.exe compreendeu?? Grato abraço

Ola.... eu uso um aplicativo de terceiro pra visualizar arquivos QRP. Ele funciona perfeitamente, mas ele quando é instalado não associa a extensão QRP a ele....e ai quando o usuario click em cima de um arquivo QRP não abre..... Neste caso teria que associar na mão. Teria algum codigo aonde eu pudesse associar, tipo o usuario clicaria em um botão e o botão associaria os *.qrp a este aplicativo? Grato

Oba...JOnas.....eu tava com um pouco de pressa e precisava arrumar uma solução rápida, então acabei usando uma impressora virtual que exporta pra pdf, ou seja o programa PdfCreator. Mas valeu.... :blush:

Oba...Micheus testei mas infelizmente...não funca direito... cada vez que o usuario seleciona no ComboLayout ele insere a linha ComboOrdem.Items.Append('CIDADES/PRAÇAS/ESTADOS'); ai fica duplicando a mesma linha... a solução melhor que funciona legal é esta que postei...... procedure TFormRelCidades.ComboLayOutChange(Sender: TObject); begin IF COMBOLAYOUT.TEXT = 'LAYOUT-1' THEN BEGIN LInforma.Caption:='SEM Separação de Praças e Estados'; ComBoOrdem.Clear; ComboOrdem.Items[0]:='ESTADOS/PRAÇAS/CIDADES'; ComboOrdem.Items[1]:='PRAÇAS/CIDADES'; end else begin LInforma.Caption:='COM Separação de Praças e Estados'; ComboOrdem.Items[0]:='CIDADES/PRAÇAS/ESTADOS'; ComboOrdem.Items[1]:='ESTADOS/PRAÇAS/CIDADES'; ComboOrdem.Items[2]:='PRAÇAS/CIDADES'; end; end; mas valeu a dica.... Abraços :D

Ola... Pessoal tenho esta dica abaixo pra exportar pra JPG funciona muito bem....mas agora me deparei com um problema......eu usava apenas pra relatorios de uma pagina...agora tirei um relatorio com duas paginas e ai ELE acaba criando um arquivo pra cada pagina gerada.... tipo se for duas paginas...vai criar dois *.jpg exemplo: pagina1.jpg e pagina2.jpg. Alguém poderia me dizer se tem como fazer exportar tudo certinho pra jpg num unico arquivo *.jpg, porem com duas paginas?? segue abaixo a dica: Grato

Oba.. Cara descobri...comecei a remover componentes...e levei sorte o primeiro que removi já acertei na mosca...removi o RxTrayIcon da RxLib.......e ai adicionei pra testar uns 20 botões..e não é que o erro sumiu...... Beleza..valeu. Tks

Oba...Jonas... Testei seu código e dava alguns buguezinhos....ele as vezes acaba limpando no comboOrdem items que não deveria.... Então tive uma idéia...até muito simples que deu certo. Limpei as STrings do ComBoOrdem..e ai coloquei em Run-Time....e deu certinho.. veja como ficou: procedure TFormRelCidades.ComboLayOutChange(Sender: TObject); begin IF COMBOLAYOUT.TEXT = 'LAYOUT-1' THEN BEGIN LInforma.Caption:='SEM Separação de Praças e Estados'; ComBoOrdem.Clear; ComboOrdem.Items[0]:='ESTADOS/PRAÇAS/CIDADES'; ComboOrdem.Items[1]:='PRAÇAS/CIDADES'; end else begin LInforma.Caption:='COM Separação de Praças e Estados'; ComboOrdem.Items[0]:='CIDADES/PRAÇAS/ESTADOS'; ComboOrdem.Items[1]:='ESTADOS/PRAÇAS/CIDADES'; ComboOrdem.Items[2]:='PRAÇAS/CIDADES'; end; end; Beleza...carinha valeu...a força. muito Grato.. t+ :D

Oba..Bom Dia!! Seguinte...eu andei analizando e cheguei a seguinte conclusão.. Como eu havia alterado apenas ..ou melhor incluido um novo form e é claro no formPrincipal acrescentei um botão...... Pois ai tentei primeiro remover o form que inseri e depois removi o botão que chamava este form....pois ai o erro desapareceu.. Testando ainda mais...descobri o motivo por causa do erro No FormPrincipal....o motivo do erro era a inclusão de mais um botão....isto mesmo mais um botão..alias se eu inclui ao invés do botão um label ou panel qualquer um componente da este erro. se retirar não da erro.. Nunca vi isto.....é pra acabar!!! alguém saberia me dizer como resolver este problema? Grato

Ola.. Estou com um erro que não sei mais como resolver.. ele ocorre quando fecho a aplicação alguém poderia me dar uma luz pra resolver este problema... já vasculhei todo o codigo e não acho nada de estranho.... Grato

Oba..Jonas Carinha...eu já havia tentado este comando: ComboOrdem.Clear; mas ai eu acabo limpando tudo ....e ai não posso tenho outras linhas....que não podem ser apagadas, no caso quero teria que apagar somente a linha que tem: 'CIDADES/PRAÇAS/ESTADOS' em duplicidade. este comando aqui eu também já havia tentando.....não funca: ComboOrdem.Items.Delete('CIDADES/PRAÇAS/ESTADOS'); erro: [Error] Unit1.pas(36): Incompatible types: 'Integer' and 'String' :blush:

Ola..Jonas...seguinte.... eu não expliquei direito... o que eu queria era o seguinte...... fazer um if procedure TFormRelCidades.ComboLayOutChange(Sender: TObject); begin IF COMBOLAYOUT.TEXT = 'LAYOUT-1' THEN BEGIN ComboOrdem.Items.Append('CIDADES/PRAÇAS/ESTADOS'); end else begin ComboOrdem.Items.Delete('CIDADES/PRAÇAS/ESTADOS'); end; end; Caso eu escolha no ComboLayOut = LAYOUT-1 ele adicionada no combo 'CIDADES/PRAÇAS/ESTADOS' senão limpa ou adiciona. Neste caso acima...o codigo: ComboOrdem.Items.Append('CIDADES/PRAÇAS/ESTADOS'); ele fica duplicando cada vez que o usuario selecionar no ComboLayOut eu precisaria de algo que não duplicasse....e sim colocasse 'CIDADES/PRAÇAS/ESTADOS' ou não dependendo do IF não sei se fui claro.

Beleza..Jonas. Grato Abraço :)

Ola... Eu sempre usei este codigo pra chamar um *.bat WinExec('C:\XXX\HHH.BAT',SW_SHOWNORMAL); mas agora eu tenho este linha de comando do arquivo em um edit. assim: WinExec(FormEMail.Edit4.Text,SW_SHOWNORMAL); mas não funca da erro: [Error] Unit1.pas(642): Incompatible types: 'TCaption' and 'PChar' Neste caso como resolver? Grato

Ola... Como adicionar um TEXTO no Combobox via códido?? e também como deletar um TEXTO no combobox via código??? Grato

Beleza... valeu :D

R.: Ola..Micheus...o arquivo esta corrompido com o exemplo, mas beleza montei um exemplo com a sua explicação, funcionou certinho..ficou fácil agora colocar até mais edit´s(mais de 84), pois é só acrescentar e direcionar os codigos pra eles...e mudar a Procedure atraves do números de edit´s no FOR. Haaa..agora que entendi a funcionalizadade das TAG, nunca havia usado ela pra nada, pelo menos que me lembro. Beleza...valeu muito grato, desta vez não tive dúvidas hehehe.... Se aparecer......dou um toque.. t+abraços. :D

Micheus.....já havia conseguido abrir seu exemplo no D4 e compilei legal....sem nenhum problema... Só to meio perdido no seu código ainda..hehehe....pois achava que era simples o lance de repetir os edit´s...e é bem complicadinho... Eu uso o aplicativo...bem diferente do seu exemplo...tipo eu coloco no OnExit do edit1 assim: Var Valor1, valor2, valor3 : real; begin valor1:=StrToFloat(edit1.text); valor2:=StrToFloat(edit2.text); valor3:=StrToFloat(edit3.text); LabelResultado.Caption:=FloatToStr(Valor1+Valor2+Valor3); e ai eu aponto no Onexit do edit2 e edit3 pra o OnExit do edit1 Resumindo: a medida que vou lançando o valor nos edit´s o resultado vai somando no LabelREsultado... Como vê é diferente do seu exemplo..... valeu...bom final de semana Grato :)

Ola.. Eu costumo usar o ms-dos comandos tipo arj, edit etc....e de uns dias pra cá....estes comandos não funcionam mais..... mensagem: arj não é reconhecido com um comando interno ou externo, um programa operavel ou arquivo de lotes. alguém sabe como resolver isto?? Grato

Oba...valeu....Micheus..agora consegui Grato :)

Oba....Desculpa a demora..estava com problemas no meu D4..... Carinha...baixei o arquivo porem não consegui abrir o arquivo que esta dentro do zip...tentei pelo bloco de notas, pelo proprio delphi...mas só aparece caracteres invalidos dentro dele... poderias verificar?? Grato