[Ajuda] Trocar Parte do Código por um Edit.

[amcorporation 2]

Olah galera, estou com uma duvida pequena e preciso da ajuda de vcs!

Erro:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Bom, então eu gostaria de saber como que eu Troco a Frase "If FindWindow(nil, 'Janela do Jogo')<=0 then", tirando o 'Janela do Jogo' por um edit, assim eu poderia colocar no edit a janela do jogo em vez dee por no código!

Quem me ajudar eu agradeço.

thx

[DragonBoss 9]

procedure TForm1.Timer1Timer(Sender: TObject);

var

ValorAtual:integer;

Ler:dword;

ver:integer;

begin

If FindWindow(nil, edit1.text)<=0 then

begin

label1.Caption:='Não Achou Processo'

end;

 

axo que eh isso ;P

[shenow 9]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[amcorporation 2]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Erro:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Ajudem Plis.

[Ryokusei 28]

Não tem como ter dado esse erro nessa parte do código, este erro é causado por uma conversão de string para integer de forma incorreta.

 

Só pra corrigir o code:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[shenow 9]

Cara aqui testeu com o código igualzinho e nao deu erro nenhum,certifique-se de que o erro é nessa linha mesmo, e se for tente o código que o ryokusei colocou...

[amcorporation 2]

Galera ainda nao deu certo

 

desculpem pelo trasntorno mais ainda nao consegui, depois do erro acima ele me leva ateh esse parte da source:

 

 

img caso nao veja acima :

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Vou postar o codigo inteiro para vcs verem se ah erros:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[~OwneR~ 8]

O problema tá nessa parte do timer: ver:=StrToInt(edit2.text);

No seu caso o edit2 estava vazio, assim ele tenta converter isso para integer e da o erro, ou seja, o edit deve conter apenas números!

Tente usar um button para ativar/desativar o timer.

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[Surfistinha£ 25]

Nao o amcorporation ta certo essse erro

E debug salva o seu projecto completo com o .exe e executa que ira pegar

 

Obs: ta errado essas parte

 

begin

label1.Caption:='Não Achou Processo'

end;

 

E achou o processo

E vc dps adiciona o else para nao achou o processo

 

flw

[~OwneR~ 8]

@Surfstinha:

Eu acho que a parte '' is not a valid integer diz tudo né? '' significa nada, então ele está tentando convertar nada para integer...

 

@amcorporation

Lembrei agora de uma procedure que você pode usar nesse timer, para ele executar apenas se converter corretamente a string...

Essa procedure possui três parametros, ela vai tentar converter a string para integer, caso tenha sucesso ele armazena na integer do segundo parâmetro, caso a string tenha letras ou não seja um número inteiro a integer do terceiro parametro é igual a 1 (0=sucesso, 1=erro).

Val(s,i,erro);

 

Adicione outra label, no meu caso eu coloquei o nome de novalabel...

Código do timer:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[amcorporation 2]

vlw galera

 

ae galera consegui daki a poko eu posto na wc, vou agradeçer todos que me ajudaram!

flw