[AJUDA]Executar automatico

[Pirafael 0]

Tem um comando para que quando clico em entrar no grand chase abre um form no programinha( que fiz no delphi ) e executa o comano copyfile?

[Drakar~ 1]

Utilize a Função Processo Existe,procura ai no google..

[Pirafael 0]

Achei um codigo, mais para botton, no caso uso o timer para ir sozinho e declaro invalo de 1s?

[Slash.- 1]

Mostra o codigo que eu quero ver para esclarecer uma duvida e eu te responder.

Mas acho que sim!

[Pirafael 0]

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

• Entre
• ou
• Cadastre-se

AE CONSEGUI

usei a funcao

function ProcessoExiste(ExeFileName: string):

boolean;

const

PROCESS_TERMINATE=$0001;

var

ContinueLoop: BOOL;

FSnapshotHandle: THandle;

FProcessEntry32: TProcessEntry32{declarar Uses Tlhelp32};

begin

result := false;

 

FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);

FProcessEntry32.dwSize := Sizeof(FProcessEntry32);

ContinueLoop := Process32First(FSnapshotHandle,FProcessEntry32);

 

while integer(ContinueLoop) <> 0 do

begin

if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(ExeFileName))

or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName))) then

begin

Result := true;

exit;

end;

ContinueLoop := Process32Next(FSnapshotHandle,FProcessEntry32);

end;

CloseHandle(FSnapshotHandle);

end;

 

E no timer coloquei

begin

if ProcessoExiste('explorer.exe') then

Form2.Show;

Form1.Hide

 

end;

(EXEMPLO DE COMANDO)

 

Fui ver agr nao deu muito certo :l, alguem ajuda?

 

Tipo

Da erro quando ponho no timer quando o comando nao ta em exec, quero que fecha o form1 e abra o 2

 

begin

if ProcessoExiste('main.exe') then

Form2.Show;

Form1.Hide

 

end;

 

ninguem?

[edoO~' 1]

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

• Entre
• ou
• Cadastre-se

 

declarou na uses?

nao se esqueça de fazer isso

:D

 

 

lol

nem tinha visto que vc colocou o site

e que ja mandava colocar.

perai

jaja edito.

 

 

@Edit

há um pequeno erro no código.

 

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

• Entre
• ou
• Cadastre-se

 

 

e no timer com interval de 1000

coloque o código

 

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

• Entre
• ou
• Cadastre-se

[Pirafael 0]

Há um pequeno problema, quando fecho o Form2 ele abre denovo porque o comando esta sendo executado D=, ou seja, so da pra finalizar pelo gerenciadorde tarefas =s

[edoO~' 1]

coloca no event OnClose

dos dois forms

 

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

• Entre
• ou
• Cadastre-se

ou

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

• Entre
• ou
• Cadastre-se

[Pirafael 0]

ae obrigado, resolvido