[AJUDA] +Delphi - Encerrar ao Injetar

[folder322 0]

Olá, estou com uma duvida e queria saber se tem como fazer para encerrar automaticamente ao injetar no delphi? Ja tentei diversos codigos e nao deu certo. Quem poderá me salvar? -euochapolimcolorado :pensativo:

 

A e eu ja fiz com sleep mais nao deu :D

[DragonBoss 9]

não sei se eh bem isso que vc ker, mas, se for... é um logika simples... digamos que vc quer fazer um checkbox, e se ele estiver checkado, vc finaliza a aplicação,

 

ou seja:

 

SE CHECKBOX ESTIVER MARCADO ENTÃO

FINALIZA A APLICAÇÃO

 

em codigos:

 

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

• Entre
• ou
• Cadastre-se

 

ae vc coloka isso apos o code que faz injetar a dll... assim, apois injetar, se estiver checkado o "finalizar apos injetar"... ele finaliza o programa...

 

flw, abraçs

[folder322 0]

Valeu, funcionou direitinho.

[Lukasmart7 1]

Veja o Exemplo.

Para Fechar!

procedure TForm1.Timer1Timer(Sender: TObject);

var PID: DWORD;

begin

Timer1.Enabled:=False;

PID:=GetPID(ProcesEdit.Text);

if PID=0 then

begin

Timer1.Enabled:=True;

Exit;

end;

Timer1.Enabled:=False;

if InjectDll(PID, 'C:\DLL.dll') then

Application.Terminate

else

MessageBoxA(Handle, 'Erro ao injetar DLL.', 'DLL Injector', MB_ICONERROR+MB_SYSTEMMODAL);

 

end;

 

E Para Desmarcar o Auto-Injetamento

 

procedure TForm1.Timer1Timer(Sender: TObject);

var PID: DWORD;

begin

Timer1.Enabled:=False;

PID:=GetPID(ProcesEdit.Text);

if PID=0 then

begin

Timer1.Enabled:=True;

Exit;

end;

Timer1.Enabled:=False;

if InjectDll(PID, 'C:\DLL.dll') then

CheckBox1.Checked := False

else

MessageBoxA(Handle, 'Erro ao injetar DLL.', 'DLL Injector', MB_ICONERROR+MB_SYSTEMMODAL);

 

end;

[DragonBoss 9]

Dúvida resolvida.

 

[x] Tópico Fechado.