Ir para conteúdo
Fórum Script Brasil

Silva~

Membros
  • Total de itens

    43
  • Registro em

  • Última visita

Sobre Silva~

Silva~'s Achievements

0

Reputação

  1. var Tempo : TTIME; begin Tempo := StrToTime('00:10:00'); while tempo <> STrToTime('00:00:00') do begin Label1.caption := Timetostr(StrToTime('00:10:00') - Tempo); Sleep(1000); Application.ProcessMessages; Tempo := Tempo - StrToTime('00:10:00'); end; Estou com problemas , não esta contando.... ele para a contagem e esta dando uma lerdeza na aplicacao incrivel... Como posso resolver ? O que eu quero e fazer um contador , que conte ate 10 minutos e zere.... e retorne a contar depois....
  2. já consegui resolver Obrigado
  3. Aqui e quando abre ele salva , não se esta correto fiz na pressa , então ele le a entrada , se for = 0 não ira abrir criei um loop , se i = 0 então o x ira fazer com que leia o que esta no ini e acrescente +1 na entrada e verifique se o i = 0 se for = 0 então , ira abrir a form normalmente Acho que esta tudo certo , não sei se errei em algo... procedure nklSalva; var dir : string; x,i : integer; begin dir := ChangeFileext(Application.ExeName,'.nkl'); meuini := Tinifile.Create(dir); x := meuini.writeinteger('Config','Entrada',0) for i:= 0 to x do begin meuini.readInteger('Config',inttostr(i+1),x); form2.ShowModal; end; meuini.free; end; Aqui e a mesma coisa , segue o mesmo principio se for = 1 então não ira abrir a form2 e so ira abrir a form1 Abracos procedure nklCarrega; var dir : string; x,i : integer; begin dir := ChangeFileext(Application.ExeName,'.nkl'); meuini := Tinifile.Create(dir); x := readinteger('Config','Entrada',1); for i:=1 to x do begin dir := meuini.ReadString('Secao',IntToStr(i),''); if FileExists(dir) Then form2.hide; form1.ShowModal; end; meuini.Free; end; end;
  4. Bom , o que eu quero fazer e um sistema que ficara no meusistema.config O que eu quero fazer e ao abrir minha form ira abrir a Form de configuracao , então eu irei na minha form de configuracao , configurar o programa. E apos isso ira abrir minha Form2 que e a form do programa. So que se toda vez que eu abri o programa tiver que configurar ira ficar chato , como eu poderia fazer isso para que eu abra apenas uma vez a form de configuracao e apos isso abrir normalmente e aparecer a form2. Pensei em tentar fazer isso com o INI , so que não sei como irei fazer para verificar se já abri e configurei e apos abrir de novo esteja tudo , correto. Outra duvida e como eu faco para o meu programa , abrir so se estiver na pasta Sistema. Lembrando de que o diretorio pode variar em C , D e que o procedimento indentifique normalmente.... procedure TForm2.FormCreate(Sender: TObject); begin If not fileexists(Edit2.text) then if messagedlg('Voce Precisa por o Programa na pasta sistema', mtError, [mbok], 0) = mrok then Application.Terminate; begin if fileexists(Edit2.text) then Application.Initialize; end; end; Eu tentei fazer assim , porem não tive o resultado que eu quero.... Espero que voces tenham entendido e que possam me ajudar obrigado
  5. MS VC++ 8 alguém teria link para download do MS VC++ 8 ? Obrigado
  6. Silva~

    Duvida Tlistview

    Quero adicionar em ordem , descricao , address , valor , tipo E assim vai .....
  7. Ola , Boa noite xD Bom , minha duvida e a seguinte eu tenho um Tlistview e nesse listview eu tenho 4 colunas separadas. A B C D No caso eu criei um edit para cada coluna e ao adicionar , irei adicionar cada edit a respesctiva coluna exemplo A = Valor b = nome c = endereco = d telefone Evento OnClick Irei adicionar tudo a minha listview mas isso em 1 linha apenas , se eu quiser adicionar outro , ira adicionar na linha de baixo.. Meu problema e quanto a ordenacao da listview em relacao a adicao para que adicione tudo corretamente as 4 colunas e depois adicione na de baixo e assim sucessivamente. Qualquer duvida sobre a minha duvida estarei tentando explicar melhor... Obrigado
  8. E se por acaso eu tenho essa , minha.dll E eu tenho o arquivo meu.exe E esse arquivo abre varias dlls , e no caso eu pus ele para abrir somente a minha.dll e não qualquer outra dll.. Ai surge alguém e renomea outra dll para minha.dll e tenta abrir com meu.exe... Como poderia dar um jeito nisso ? Pegando o width , height , top , left e hash md5 da minha dll e configurando para ele aceitar somente a minha ?
  9. Va no webbrowser1 e procure NewWindow Essa opcao e quando e aberto uma nova janela apartir do webbrowser então partindo disso e so voce por label1.enabled := true; Quando a nova janela e aberta a label ativa.... Simples Obrigado jhonas
  10. Gostaria de poder detectar se minha , minha.dll for alterada para x.dll ou qualquer outro nome. Se for alterada então exibir mensagem de erro e não abrir a dll. So quero protege-la contra renomeacao como posso fazer isso ? A um modo ? Obrigado
  11. Resolvido De um modo muito mais facil , que eu descobri aqui Obrigado
  12. já procurei e não achei o que eu queria No caso eu tentei usar GetAsyncKeyState e MouseMove , pegando o centro do webbrowser , quando e feito o click... Porem não obtive resultado =/ procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin //Coordenadas para pegar o momento do clique no browser.... if (X>0) and (X<200) and (Y>100) and (Y<200) then slabel1.Enabled := true; end; procedure TForm1.ttTimer(Sender: TObject); begin if GetAsyncKeyState(VK_LBUTTON) > 0 then slabel1.enabled := true; end;
  13. não a solucao para a minha duvida eu já procure , eu não quero simular um click , eu so quero que o programa Muda minha label de enabled = false para true Quando eu clicar com meu mouse na url que esta no webbrowser.navigate(''); Vai aparecer o site eu vo clicar e apos clicar quero alterar o enabled da label.... não sei como faria isso se usuario , webbrowser.oledocument.forms('').click; ou algo do genero...
  14. Ola a todos, E o seguiente eu tenho um programa que abre 'http://www.xxx.com/xxxx/anu1.html'); esse html possui uma divulgacao. No caso ao abrir o programa a pessoa tera que clicar nessa divulgacao para a label2 sair de modo enabled = false e ir para true... Porem , como faco essa detectacao de click , e vejo que ao clicar exatamente no .html ira liberar a label.... Aguardo a ajuda , se não entenderam , eu posso explicar novamente.... Obrigado
  15. Bom no caso eu gostaria de fazer um programa que para a pessoa poder entrar no programa precisara clicar 3x no anuncio do googleadsense no caso <script type="text/javascript"><!-- google_ad_client = "pub-1000066807522152"; /* 300x250, criado 21/02/10 */ google_ad_slot = "1283099616"; google_ad_width = 300; google_ad_height = 250; //--> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script> Apos clicar 3x ira liberar o botao para abrir o programa Eu tentei um codigo aqui , porem não tive sucesso na finalizaçao do codigo Usei 1 WebBrowser e 2 botoes Um para clicar e outro como contagem Eu aperto no botao 1 e ira aparecer o anuncio no webbrowser , irei clicar no webbrowser e o botao que esta com a contagem de 3 ira para 2 ate chegar em 0 e liberar o enabled espero que tenha entendido Obrigado e desculpe qualquer coisa :)
×
×
  • Criar Novo...