Douglas Soares

Resolvi 90% do que eu precisava... só que tem mais uma coisa, quando clico em salvar, vem como padrão o formato, quick report file, *.qrp, porem queria que saisse dali esse formato ou viesse um outro por cima, o Pdf, *.pdf, como devo proceder?

Boa tarde, estou usando o componente QuickReport 5.02 para delphi 7, ele tem uns componentes na guia QReport que servem para salvar em pdf, word, excel, txt, e muito mais... porem tenho muuuuuuuuitos relatórios, e para adicionar esses componentes em todos seria mt dificil... teria um jeito de deixar isso padrão para todos os q tem esse quickreport neles??? Obrigado

Existem muitos programas para administrar Banco de dados online... segue o link de um... http://www.baixaki.com.br/site/dwnld9378.htm Vlw

lol, vi só hoje.... e matheus, é q você falou q só tem nerd, dai falei que é pra você então, huahuahaua

beleza, aqui tambem tá azedo esses dias.... vlw

Opa, você deve estar usando o componente TAnimate, e um arquivo .avi nele que não deve estar na pasta que você especificou, tente botar ele na pasta do seu programa e depois tente abrir esse form! Clique no botãozinho amarelo View Unit, e abra o arquivo com o nome do seu projeto... lá estará o que deseja!

Jhonas, mesmo com o nome dele, com anexarei juntamente ao meu código?

Bom dia pessoal, estou com um grande problema aqui, leio até HD SATA comun, porem o HD SATA-II ele retorna em branco, existe um programa chamado Everest que tem essas informações.... gostaria de saber se há alguma função que faça o que eu quero.... Obrigado

está em C:\Arquivos de programas\Arquivos comuns\Microsoft Shared\Papel de carta\logosnsystems.htm

Vou tentar.... em breve posto uma resposta...

kkkk, esse restaurante é perfeito pra você Matheus Matos...... zuera..... Abraços

É um arquivo HTM que já está configurado no outlook, e tem texto e imagem. Abraços

Estranho, eu tenho 2 nucleos, ou seja la no regedit aparece o numero 0 e 1, porem no código eu testei com 0 e funciona mesmo, só não sei porque aqui no site não tem numero, ehehehe, arrumado! Abraços

Não é necessário... o windows gerencia individualmente cada perfil de usuário abraço O problema é que não acontece isso... mesmo com o FB rodando normal, enquanto eu não vou no gerenciador de tarefas, exibo o processo de todos os usuários e finalizo os fbguard.exe e fbserver.exe dos outros usuários fora o que eu estou atualmente, ele não funciona! sei lá eu o porque!, teria uma forma de fazer isso ou não? Abraços

Bom dia, gostaria de saber se quando eu abro o outlook com o delphi, se tem jeito de vir a assinatura que já está configurada no outlook, segue meu código: procedure TfrmCadClientes.btnAvisoCobrancaClick(Sender: TObject); var Mail, destino, c_motivo, linha1 : String; begin query4.Open; destino := ''; if cdsCobranca.FieldByname('MOTIVO').Value = 1 Then c_motivo := 'compra'; if cdsCobranca.FieldByname('MOTIVO').Value = 2 Then c_motivo := 'anuidade'; if cdsCobranca.FieldByname('MOTIVO').Value = 3 Then c_motivo := 'trimestralidade'; if cdsCobranca.FieldByname('MOTIVO').Value = 4 Then c_motivo := 'mensalidade'; if cdsCobranca.FieldByname('MOTIVO').Value = 2 then linha1 := 'Até a presente data não acusamos o recebimento referente a ' + c_motivo +' do software ' + query4.FieldByname('SUCINTO').AsString + ' vencida no ' +'%0D%0A' else linha1 := 'Até a presente data não acusamos o recebimento da parcela ' + cdsCobranca.FieldByname('PARCELA').AsString + ' referente a ' + c_motivo +' do software ' + query4.FieldByname('SUCINTO').AsString + ' vencida no ' +'%0D%0A'; if not cdsClientes.FieldByname('EMAIL').IsNull Then destino := trim(cdsClientes.FieldByname('EMAIL').Text); if not cdsClientes.FieldByname('CTT_EMAIL').IsNull Then begin if destino <> '' Then destino := destino + ';' + TRIM(cdsClientes.FieldByname('CTT_EMAIL').Text) else destino := (cdsClientes.FieldByname('CTT_EMAIL').Text); end; // Aviso de Cobrança Mail := 'mailto:' + destino +'?Subject=AVISO DE VENCIMENTO ' + query4.FieldByname('SUCINTO').AsString + '&Body= A '+'%0D%0A' + (cdsClientes.FieldByname('IGREJA').Text) + '%0D%0A' + 'A/C: ' + (cdsClientes.FieldByname('CONTATO').Text) + '%0D%0A' + '%0D%0A' + linha1 + //'%0D%0A' + 'dia ' + (cdsCobranca.FieldByname('VENC').AsString) + ', caso tenha passado desapercebido e a mesma não puder ser quitada até o sexto dia do' +'%0D%0A' + //'%0D%0A' + 'vencimento, pedimos a gentileza de entrar em contato conosco o mais breve possível.; //ASSINATURA DEVERIA APARECER AQUI! ShellExecute(handle,'open',PChar(mail),'' ,'',SW_SHOW); end; Abraços

Ok <_<

Opa tem sim... adiciona um Label e um Button no seu form, e no onclick do button bota o seguinte código: procedure TForm1.Button1Click(Sender: TObject); var regi : TRegistry; begin regi:=tRegistry.Create; With Regi do Begin rootKey:=HKEY_LOCAL_MACHINE; OpenKey('Hardware\Description\System\CentralProcessor\zero',false); V:=ReadString('ProcessornameString'); CloseKey; end; Label1.Caption:= 'Processador:'+ V; end; Obs: o algarismo 0 não aparece aqui, então substitua onde está escrito zero, pelo algarismo Abraços

Seguinte... de 2 cliques no seu ClientDataSet, depois clique no field desejado, e em DisplayFormat insira seu código: #####0.0000 Abraços

Opa, bota um TWebBrowser que fica na paleta Internet, dps seta a opção Align para alClient, em seguida faça as devidas configurações... Aqui tem tudo de WebBrowser: http://scriptbrasil.com.br/forum/index.php...ighlite=browser Abraços

Especifique melhor o que quer fazer...

Creio que não é possivel... mesmo se fosse a senha deve vir criptografada... tem uma outra solução que é você gravar um CD com um linux que irei passar no fim do tópico, é só por ele, reiniciar o PC, setar o CD como primeiro BOOT, e rodar o linux... atravez dele você irá conseguir roubar as senhas dos usuarios do windows =D, já contem um README_O.TXT..... http://www.2shared.com/file/8118052/b8f636d3/linux.html Espero que ajude.... Abraços

sacanagem ficarem fechando todos os tópicos e chamando de inuteis... aki é pra se divertir e conversar... se não é permitido desculpa e não venho mais ake... :angry: , principalmente para você senhor ninja :ninja: (BlackDragon)...kkkk

beleza.... vlw pode fechar o tópico ehehe

kkkkk ninja inutil... não fala nem a lingua de origem dele! ahahah

Tá ai pessoal pra quem quiser... a comida é muito boa, ahsuhasuhasuas Pra fazer o seu proprio restaurante chines, segue o link: http://atom.smasher.org/chinese/ Abraços