Liberar CheckBox, somente quando encontrar o processo!

[dragonpool12 9]

Teria como liberar CheckBox, somente quando encontrar o processo!

 

Exemplo: Os checkbox fiquem bloqueado para confirmar, e será liberado somente quando encontrar o processo gunbound.gme?

 

Quando detecta o processo, os checkbox será liberado para ser selecionados.

[ℛiqu∊ 15]

Seria para Delphi ou VB?

No vb:

 

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

• Entre
• ou
• Cadastre-se

[dragonpool12 9]

Desculpe, é para o Delphi.

[Lucas ' ~ 4]

Você está usando alguma função para verificar se o

Processo está rodando não ta? Se não acompanhe aqui.

Declare na uses TlHelp32

 

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

• Entre
• ou
• Cadastre-se

 

Coloque isso para verificar se o processo existe em um timer.

 

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

• Entre
• ou
• Cadastre-se

[~JhonCode 0]

No caso pro visual basic seria :

 

dim p as process() = process.getprocessessbyname("gunbound.gme")

if p.length > 0 then

checkbox1.enabled = true

else

checkbox1.enabled = false

endif

 

Como os caras disse acima !

[dragonpool12 9]

Primeiramente deixo todos os Checkbox em false? Depois que reconhecer o processo, eles ficam true?

[~OwneR~ 8]

Tá na mão =)

 

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

• Entre
• ou
• Cadastre-se

[dragonpool12 9]

Deu esse erro, [Error] Unit1.pas(68): Undeclared identifier: 'ProcessExists',

 

Como posso corrígir?

 

 

Eu tentei este código.

 

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if FindWindow(nil,'Transformice') > 0 then

CheckBox1.Enabled, CheckBox2.Enabled:=True

else

CheckBox1.Enabled:=False;

CheckBox2.Enabled:=False;

CheckBox3.Enabled:=False;

CheckBox4.Enabled:=False;

 

begin

WindowName := FindWindowA('Transformice',nil);

Label2.caption :=('Esperando : Transformice.');

ThreadId := GetWindowThreadProcessId(WindowName, @ProcessId);

ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS,FALSE,ProcessID);

end;

end;

end.

 

Mas dá o seguinte erro.

[Error] Unit1.pas(76): Undeclared identifier: 'Label2'

[Error] Unit1.pas(79): '.' expected but ';' found

[Warning] Unit1.pas(80): Text after final 'END.' - ignored by compiler

[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'

 

Alguém saberia como corrigir isso?

[~OwneR~ 8]

Ôoo preguiça de pensar ¬¬

Declara a fukin procedure que o manolo passou antes do código que eu passei

 

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

• Entre
• ou
• Cadastre-se

[dragonpool12 9]

Preguiça de que? Se você já tem um bom conhecimento nesse tipo de código, isso é problema seu, agora vem falar preguiça, para quem começou com delphi ontem?

Você passou seu código agradeço, mas não consegui usar pelo erro correspondido, e estaria com dúvida.

[~OwneR~ 8]

Não importa se você começou hoje, ontem ou há trocentos anos.

O erro é bem específico: Undeclared identifier: 'ProcessExists', <--- IDENTIFICADOR NÃO DECLARADO

A solução estava bem visível no post do Lucas. Ah, e não se esqueça de declarar TlHelp32 na uses ^^

 

Como iniciante a primeira coisa que você deveria fazer é estudar o BÁSICO, tem vários tópicos com tutoriais para iniciantes =)

Leve como crítica construtiva ok? Se não, que se fuck :D

['Wolf~* 3]

Atenção !

 

Seu tópico foi encontrado em área errada e transferido para " Programao - Dvidas/Ajuda".

Da próxima vez, leia a descrição de cada área antes de postar.

 

Tópico Movido.

[caio1997loco 2]

Ele está corretíssimo, vc teve preguiça de pensar.

olhe só, o erro diz que a função ProcessExists não esta declarada, assim não podendo identifica-la.

O que vc tem de fazer é declara-la lá em cima como todas as outras functions e procedures de sua aplicação.

Espero que entenda, abraço.

[CURIRIN107 2]

Ele está corretíssimo, vc teve preguiça de pensar.

olhe só, o erro diz que a função ProcessExists não esta declarada, assim não podendo identifica-la.

O que vc tem de fazer é declara-la lá em cima como todas as outras functions e procedures de sua aplicação.

Espero que entenda, abraço.

 

Concordo! Mais se ele quer de mão beijada, Faça isto:

 

Abaixo da tag {$R *.dfm} coloque:

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

• Entre
• ou
• Cadastre-se

 

E em um timer coloque (exemplo):

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

• Entre
• ou
• Cadastre-se