Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
 Perfil  Explorar Conteúdo

  • Total de itens

    9.657

  • Registro em

 Tipo de Conteúdo 

Posts postados por Jhonas

  1. abrir programa em PC sem DatabaseDesktop

    em Delphi, Kylix

    Postado

    Tabela:Cannot perform this operation on a closed dataset

    tradução

    Tabela: não executa esta operação em um dataset fechado

    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

  2. Como verificar todos arquivos mp3 do diretorio

    em Delphi, Kylix

    Postado

    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

  3. Finalizar programa pelo delphi

    em Delphi, Kylix

    Postado

    mas 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 ??

    existir não existe, mas voce pode criar este codigo

    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

    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.

    voce deverá então buscar nesta lista parte do nome que deseja ( se tiver la "orkut - lalala" e "orkut xxxxx" )

    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

  5. Passgem de paramentro no Crystal 8.5

    em Crystal Reports

    Postado

    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

  8. criando loguin em rede empresarial

    em Redes

    Postado

    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

  9. (Resolvido) Foco em Componente TRadiogroup

    em Delphi, Kylix

    Postado

    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

  10. priorizar boot pelo cd

    em Hardware

    Postado

    é 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

  12. priorizar boot pelo cd

    em Hardware

    Postado

    não cosigo priorizar o boot pelo cd

    dicas

    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

  14. (Resolvido) Não sei por onde começar!

    em Lógica de Programação

    Postado

    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

  19. Multi-Touch Pad software identificar cor

    em Outros Assuntos

    Postado

    bem mais o programa de reconhecimento não seria para o MAC ?

    sim.. para Linux e 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 esse

    proposito q eu citei das tres cores

    acho que não vai encontrar nada por enquanto

    abraço

  20. (Resolvido) Usando o TabSet

    em Delphi, Kylix

    Postado

    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

  24. Pascal Resolvido!

    em Outras Linguagens de Programação

    Postado 

    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

×
×
  • Criar Novo...