-
Total de itens
9.657 -
Registro em
Posts postados por Jhonas
-
-
Como faço para verificar todos arquivos mp3 de um diretorio com o delphi?
voce pode usar estes 4 componentes do delphi
DirectoryListBox1: TDirectoryListBox;
FileListBox1: TFileListBox;
DriveComboBox1: TDriveComboBox;
FilterComboBox1: TFilterComboBox;
no componente FilterComboBox1 na propriedade Filter coloque
All files (*.*)|*.*|*.mp3|*.mp3
OBS: Link o FileListBox1 ao DirectoryListBox1 pela propriedade FileList
Link o DriveComboBox1 ao DirectoryListBox1 pela propriedade DirList
Link o FilterComboBox1 ao FileListBox1 pela propriedade FileList
abraço
-
existir não existe, mas voce pode criar este codigomas existe algum codigo que por exemplo ... eu coloco a palavra "orkut" e ele completa a palavra com de acordo com as janelas que estao aberta
tpow se tiver la "orkut - lalala" e "orkut xxxxx" fecha as 2 janelas ...
existe ??
primeiro voce deve listar todas as janelas abertas no windows quando o seu programa estiver sendo executado
The EnumWindowsProc function is an application-defined callback function that receives top-level window handles as a result of a call to the EnumWindows or EnumDesktopWindows function.
nesta lista vão aparecer todas as janelas abertas do windows inclusive as do programa
voce deverá então buscar nesta lista parte do nome que deseja ( se tiver la "orkut - lalala" e "orkut xxxxx" )The EnumWindows function enumerates all top-level windows on the screen by passing the handle of each window, in turn, to an application-defined callback function. EnumWindows continues until the last top-level window is enumerated or the callback function returns FALSE.
function Pos(Substr: string; S: string): Integer;
Description
Pos searches for a substring, Substr, in a string, S. Substr and S are string-type expressions.
Pos searches for Substr within S and returns an integer value that is the index of the first character of Substr within S. Pos is case-sensitive. If Substr is not found, Pos returns zero.
uma vez encontrado o(s) nome(s) , então voce pode fechar a(s) janela(s) finalizando o processo
creio que com estas 3 funções ou + é possivel fazer o que voce esta querendo.
se eu tiver tempo monto alguma coisa, ou voce pode tentar montar o codigo
abraço
-
Alguém sabe como posso fazer isso???
veja se é isto que está procurando
http://www.swissdelphicenter.ch/torry/showcode.php?id=2440
abraço
-
crp_Rel_Oficio.ParamFields[9].Value:= matr_global;
crp_Rel_Oficio.ParamFields[11].Value:=MemoText.Text;
crp_Rel_Oficio.ParamFields[12].Value:=MemoAssinatura.Text; // Esse campo que esta dando problema
crp_Rel_Oficio.ParamFields[13].Value:=identificador.Text;
crp_Rel_Oficio.ParamFields[14].Value:=MemoComplemento.Text;
crp_Rel_Oficio.execute;
Verifique se o DataType do parametro é
ftFmtMemo - Campo memorando de texto formatado
ou
ftMemo - Campo memorando de texto
OBS: possivelmente esta definido como string
abraço
-
Eu fiz um editor de texto e estou passando o texto escrito por paramentro para o Crystal mas quando passa mais de 256 caracteres o crystal corta a linha ou seja só exibe os 256 caracteres.
como voce esta passando este parametro ? coloca a parte do codigo que esta fazendo isto, para poder te ajudar
abraço
-
existe uma forma abrir programa com banco de dados paradox em um pc que não tem database desktop instalado?
o database desktop é apenas um editor de tabelas paradox, o programa rodaria independente de ter ou não instalado ele.
o programa precisaria apenas do BDE ou não ( o que já foi respondido para voce em outro post )
http://scriptbrasil.com.br/forum/index.php...st&p=437919
abraço
-
o que quero e nada mais que criar um login em uma rede
Abra o Painel de controle, e vá em Contas de Usuário, depois clique em "criar uma nova conta" , digite o nome da sua conta, clique em avanças, escolha se quer que seja' administrador ou limitado', clique em 'Criar Conta'.
uma vez criada a conta, volte para Contas de Usuários e selecione 'Alterar a maneira como os usuários fazem logon ou logoff'. selecione a opção e clique em 'Aplicar Opções'
abraço
-
Como fazer para que no momento do foco no componete fique evidente para o usuário que o curso esta setado nele(radio group) ?
exemplo: o foco sai do edit e vai para o radioGroup (deixa a primeira opção selecionada sem estar checada)
procedure TForm1.Edit1Exit(Sender: TObject); begin RadioGroup1.setfocus; TRadioButton(RadioGroup1.controls[0]).Setfocus; RadioGroup1.ItemIndex := -1; end;
abraço
-
é um notebook
Não tem nada instalado.......quero dar um boot apartir do cd do xp,
então entre no Setup da BIOS e modifique para dar o boot pelo CDROM
http://www.guiadohardware.net/tutoriais/configuracao-cmos/
como preprar um cd de boot
http://www.clubedohardware.com.br/artigos/646
caso não tenha a opção de dar boot pelo CDROM tente esta dica
http://www.vivaolinux.com.br/dicas/verDica.php?codigo=6618
OBS: voce pode usar um disco (disquete) de boot do windows 98
abraço
-
O computador estabelece a conexão pelo speedy normalmente....
Ao abrir o internet explore, ele aparece com "a página não pode ser exibida"
Típico problema de "conecta mas não navega"
pode ser problema com o firewall.. pode estar bloqueando a sua navegação
http://www.baboo.com.br/absolutenm/templat...=24&resumo=
http://www.babooforum.com.br/forum/index.p...howtopic=220271
abraço
-
dicasnão cosigo priorizar o boot pelo cd
Seu registro pode ser configurado para desativar autorunning CD's. The following information is provided only for people who are experienced with editing their Registry. As seguintes informações são fornecidas apenas para as pessoas que têm experiência com a sua edição Registry. In all cases please backup your Registry before trying the following. Em todos os casos, por favor backup de seu registro antes de tentar o seguinte. Use at your own risk. Use a seu próprio risco.
Para ativar AutoRun no Windows XP (Home ou Pro)
1. Clique em Iniciar, depois em Executar. Digite regedit e clique em OK.
2. Localize a seguinte chave / Dados nome:
HKEY_LOCAL_MACHINESOFTWARE\MicrosoftWindowsCurrentVersion\policies\NoDriveTypeAutoRun HKEY_LOCAL_MACHINESOFTWARE \ MicrosoftWindowsCurrentVersion \ políticas \ NoDriveTypeAutoRun
3. Clicar com o botão direito NoDriveTypeAutoRun na coluna Nome da direita e escolha Apagar.
4. Reinicie o seu computador.
Autorun agora será ativado.
Outras dicas
http://www.babooforum.com.br/forum/index.php?showtopic=34805
http://www.babooforum.com.br/forum/index.php?showtopic=38713
http://www.codigofonte.net/dicas-152/auto-run---
http://ryan.com.br/autorun-testar.htm
http://info.abril.com.br/forum/forum.php?tópico=63757
abraço
-
UM PROGRAMA PRA SIMULAR REDE
O Network Simulator (NS) é um software de simulação de redes. Ele trabalha na simulação de protocolos como o TCP, protocolos de multicast em redes com ou sem fio e simulando até mesmo roteamento de pacotes, entre outras coisas. Este trabalha como um excelente simulador de redes locais (LANs) e WANs.
http://www.redes.unb.br/Projetos_grad/ns2/oquee.html
abraço
-
Usando a estrutura de repetição (enquanto...faça) elabore um algoritmo que leia o salário dos 50 funcionários de uma Empresa e aplique um aumento salarial a todos os funcionários, usando a seguinte regra: Pressupõem-se que nenhum salário seja menor que zero.
A cada reajuste concedido, mostre o funcionário que recebeu reajuste, o salário antigo e novo salário.
a) 35% de aumento para os funcionários com salário menor que 1.500,00 reais;
15% de aumento para os funcionários com salário entre 1.500,00 e 3.000,00 reais;
c) 5% de aumento para os funcionários com salários acima de 3.0000,00 reais;
não é tão dificil resolver
programa Remuneracao; uses crt; var func :array[1..50] of string; salario :array[1..50] of real; salarioatual :array[1..50] of real; i : integer; Begin // clrscr; writeln(' Digite o nome do funcionario e salario'); while i <= 50 do begin readln(func[i]); readln(salario[i]); i:=i+1; end; while i <= 50 do begin if salario[i] <= 1500 then salarioatual[i] := salarioatual[i] * 1.35; if (salario[i] > 1500) and (salario[i] <= 3000) then salarioatual[i] := salarioatual[i] * 1.15; if salario[i] > 3000 then salarioatual[i] := salarioatual[i] * 1.05; writeln('Funcionario ', i,' = ', func[i]); writeln('Salario Anterior ', i,' = ', salario[i]); writeln('Salario Atual ', i,' = ', salarioatual[i]); i:=i+1; end; End.
abraço
-
-
qual melhor tipo de impressora e papel para estampar camisas
Estampe tecidos em sua impressora jato de tinta
http://www.atelievirtualbrasil.com.br/patc...prestecido.html
abraço
-
onde eu posso arrumar uma lista com os maiores provedores do Brasil?
alguém já te respondeu em outro forum
http://br.answers.yahoo.com/question/index...18062810AAQgXNk
provedores gratuitos
http://bancodosoftware.blogspot.com/2007/0...os-eou-que.html
provedores pagos
http://paginas.terra.com.br/informatica/pr.../provedores.htm
abraço
-
Quero fazer uma animação em flash, só que animação tem que ter som
voce vai encontrar resposta à sua duvida neste guia passo a passo
http://www.micropic.com.br/noronha/Informa...sso%20Flash.pdf
abraço
-
sim.. para Linux e Macbem mais o programa de reconhecimento não seria para o MAC ?
http://macmagazine.com.br/blog/2007/11/23/...lucao-da-apple/
http://www.leechvideo.com/tag/multitouch/
nunca mexi com script
que tal alguns exemplos faceis paa aprender a mexer
http://www.galizaweb.net/html4/interact/scripts.html
http://www.romybrb.com.br/cad20.htm
http://www.mco2.com.br/suporte_scripts_contadores.asp
http://www.hoteldaweb.com.br/centralajuda.html
acho mais eu queria um que service para esseproposito q eu citei das tres cores
acho que não vai encontrar nada por enquanto
abraço
-
E o Caso do TTreeView Como è Organizado os tantos Objetos que é adicionado em Cada Item!!! /?/
Sem Acumular tudo/...
Exemplo:
http://www.beensoft.nl/sdp/cttreeview.htm
http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=429
Tutorial em ingles
http://users.iafrica.com/d/da/dart/Delphi/...w/TreeView.html
quanto ao resto dos seus quetionamentos, sugiro voce conseguir a biblia do delphi, vai sanar muitas das suas dúvidas
abraço
-
ok ... então tenta estesRapaz no link indicado não existe mais a apostila sobre quickreports
http://www.univel.br/pamplona/quickreport.zip
http://www.inf.ufsc.br/~prass/apostilas/quickreport.zip
Eu consegui fazer a pesquisa e mostrar os dados no Relatório, mas só exibi a primeira linha...
Na propriedade DataSet do QuickReport coloque o nome do ClientDataset ou o nome da Query
abraço
-
-
e vi um projeto de um Multitouch pad baratim
http://blog.medallia.com/2007/06/dyesight.html
tentei de tudo para encontrar o software para windows mais não encontrei
faltou somente voce dar uma lida mais a fundo
Entre em
depois clique em
va para a area de download
abraço
-
program operacao; uses crt; var A,B:array[1..12]of integer; C:array[1..12,1..2]of integer; I,J:integer; begin clrscr; for I:=1 to 12 do begin Write('Escreva 12 números ');readln(A[I]); end; for I:=1 to 12 do begin Write('Escreva mais 12 números ');readln(B[I]); end; begin For I:=1 to 12 do C[I,1]:=A[I]*2 C[I,2]:=B[I]-5; end; writeln('Os primeiros 12 números serão multiplicados por 2, e os últimos 12 números subtraidos por 5 '); for I:=1 to 12 do write(C[I,1]) + ' ' + write(C[I,2]); end.
OBS: não me lembro se o comando é assim ... (write(C[i,1]) + ' ' + write(C[i,2]);
) mas o resultado é este:
2 -4
4 -3
6 -2
8 -1
10 0
12 1
14 2
16 3
18 4
20 5
22 6
24 7
abraço
-
gostaria de dicas de voces sobre qual linguagem usar, qual programa de gráficos e etc, espero ter sido claro.
enquanto isso voce pode dar uma olhada neste endereço
http://www.tudodownloads.com.br/subcategoria.php?id=259
abraço
abrir programa em PC sem DatabaseDesktop
em Delphi, Kylix
Postado
esse erro significa que a tabela esta fechada... verifique o seu codigo
dica sobre como usar o BDE
http://www.linhadecodigo.com.br/Dica.aspx?id=143
posts sobre BDE
http://scriptbrasil.com.br/forum/index.php...st&p=470689
http://scriptbrasil.com.br/forum/index.php...st&p=462556
http://scriptbrasil.com.br/forum/index.php...st&p=445177
abraço