Ir para conteúdo
🥇 [Exclusivo] Seja um Membro VIP EXTREME! ×

  • Quem está por aqui   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.

Como eu Coloco um Kill Process no meu Projeto?

tiravitornevado

Por ,
em Dúvidas & Ajuda

 Compartilhar

Posts Recomendados

Novato

tiravitornevado 0

Postado
  • Novato
Postado

Bom Galera, eu to com uma dúvida aqui no meu projeto, como eu coloco um Kill Process no meu injetor, o meu amigo Rullez tem no injetor dele, mas eu não sei como colocar também no meu! porque achei muito útil! olha só o injetor dele:

 

21cwj9t.png

 

 

e o meu é esse:

 

8K9flyD.png

 

(tá em inglês porque lá na área em inglês as pessoas dão mais thanks!)

 

 

alguém poderia me ajudar?

ﾠﾠMural de Coleçõesﾠﾠ

Clique aqui e adquira suas medalhas
Link para o comentário
https://www.webcheats.com.br/topic/1786685-como-eu-coloco-um-kill-process-no-meu-projeto/
Compartilhar em outros sites
lokolokopato Novato

lokolokopato 3

Postado
  • Novato
Postado

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

Aonde:

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

mata quaçquer processo.

ﾠﾠMural de Coleçõesﾠﾠ

Clique aqui e adquira suas medalhas
Link para o comentário
https://www.webcheats.com.br/topic/1786685-como-eu-coloco-um-kill-process-no-meu-projeto/#findComment-7554453
Compartilhar em outros sites
Novato

tiravitornevado 0

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

Aonde:

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

mata quaçquer processo.

 

Tipo essa função vai fazer aparecer os processos na List Box e matar o processo selecionado no botão?

ﾠﾠMural de Coleçõesﾠﾠ

Clique aqui e adquira suas medalhas
Link para o comentário
https://www.webcheats.com.br/topic/1786685-como-eu-coloco-um-kill-process-no-meu-projeto/#findComment-7555247
Compartilhar em outros sites
Fr33dom Novato

Fr33dom 1

Postado
  • Novato
Postado
Tipo essa função vai fazer aparecer os processos na List Box e matar o processo selecionado no botão?

 

Para isso tens de fazer isto :

 

Procedure ListarProcessos(List : TListBox); // declarar este procedure embaixo de Public

 

Copia este procedure para o teu programa :

 

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

 

Adicionar um botão e escrever isto no OnClick :

 

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

 

Adiciona esta função :

 

 

function TerminarProcesso(sFile: String): Boolean;

var

verSystem: TOSVersionInfo;

hdlSnap,hdlProcess: THandle;

bPath,bLoop: Bool;

peEntry: TProcessEntry32;

arrPid: Array [0..1023] of DWORD;

iC: DWord;

k,iCount: Integer;

arrModul: Array [0..299] of Char;

hdlModul: HMODULE;

begin

Result := False;

if ExtractFileName(sFile)=sFile then

bPath:=false

else

bPath:=true;

verSystem.dwOSVersionInfoSize:=SizeOf(TOSVersionInfo);

GetVersionEx(verSystem);

if verSystem.dwPlatformId=VER_PLATFORM_WIN32_WINDOWS then

begin

hdlSnap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);

peEntry.dwSize:=Sizeof(peEntry);

bLoop:=Process32First(hdlSnap,peEntry);

while integer(bLoop)<>0 do

begin

if bPath then

begin

if CompareText(peEntry.szExeFile,sFile) = 0 then

begin

TerminateProcess(OpenProcess(PROCESS_TERMINATE,false,peEntry.th32ProcessID), 0);

Result := True;

end;

end

else

begin

if CompareText(ExtractFileName(peEntry.szExeFile),sFile) = 0 then

begin

TerminateProcess(OpenProcess(PROCESS_TERMINATE,false,peEntry.th32ProcessID), 0);

Result := True;

end;

end;

bLoop := Process32Next(hdlSnap,peEntry);

end;

CloseHandle(hdlSnap);

end

else

if verSystem.dwPlatformId=VER_PLATFORM_WIN32_NT then

begin

EnumProcesses(@arrPid,SizeOf(arrPid),iC);

iCount := iC div SizeOf(DWORD);

for k := 0 to Pred(iCount) do

begin

hdlProcess:=OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,false,arrPid [k]);

if (hdlProcess<>0) then

begin

EnumProcessModules(hdlProcess,@hdlModul,SizeOf(hdlModul),iC);

GetModuleFilenameEx(hdlProcess,hdlModul,arrModul,SizeOf(arrModul));

if bPath then

begin

if CompareText(arrModul,sFile) = 0 then

begin

TerminateProcess(OpenProcess(PROCESS_TERMINATE or PROCESS_QUERY_INFORMATION,False,arrPid [k]), 0);

Result := True;

end;

end

else

begin

if CompareText(ExtractFileName(arrModul),sFile) = 0 then

begin

TerminateProcess(OpenProcess(PROCESS_TERMINATE or PROCESS_QUERY_INFORMATION,False,arrPid [k]), 0);

Result := True;

end;

end;

CloseHandle(hdlProcess);

end;

end;

end;

end;

 

 

Adicionar outro botão (botao2) e meter isto no Onclick :

 

procedure TForm1.Button2Click(Sender: TObject);

begin

if TerminarProcesso(ListBox1.Items.Strings[ListBox1.Itemindex]) then

begin

ShowMessage('Processo '+ Edit1.Text +' foi terminado!');

Button1.Click;

end;

end;

 

Adicionar uma edit e colocar isto no onclick da listbox :

 

procedure TForm1.ListBox1Click(Sender: TObject);

begin

Edit1.Text:=ListBox1.Items.Strings[ListBox1.itemindex]

end;

Espero ter ajudado , se não conseguir diga que eu passo-te a source.

ﾠﾠMural de Coleçõesﾠﾠ

Clique aqui e adquira suas medalhas
Link para o comentário
https://www.webcheats.com.br/topic/1786685-como-eu-coloco-um-kill-process-no-meu-projeto/#findComment-7555710
Compartilhar em outros sites
Novato

tiravitornevado 0

Postado
  • Novato
Postado
Para isso tens de fazer isto :

 

Procedure ListarProcessos(List : TListBox); // declarar este procedure embaixo de Public

 

Copia este procedure para o teu programa :

 

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

 

Adicionar um botão e escrever isto no OnClick :

 

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

 

Adiciona esta função :

 

 

function TerminarProcesso(sFile: String): Boolean;

var

verSystem: TOSVersionInfo;

hdlSnap,hdlProcess: THandle;

bPath,bLoop: Bool;

peEntry: TProcessEntry32;

arrPid: Array [0..1023] of DWORD;

iC: DWord;

k,iCount: Integer;

arrModul: Array [0..299] of Char;

hdlModul: HMODULE;

begin

Result := False;

if ExtractFileName(sFile)=sFile then

bPath:=false

else

bPath:=true;

verSystem.dwOSVersionInfoSize:=SizeOf(TOSVersionInfo);

GetVersionEx(verSystem);

if verSystem.dwPlatformId=VER_PLATFORM_WIN32_WINDOWS then

begin

hdlSnap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);

peEntry.dwSize:=Sizeof(peEntry);

bLoop:=Process32First(hdlSnap,peEntry);

while integer(bLoop)<>0 do

begin

if bPath then

begin

if CompareText(peEntry.szExeFile,sFile) = 0 then

begin

TerminateProcess(OpenProcess(PROCESS_TERMINATE,false,peEntry.th32ProcessID), 0);

Result := True;

end;

end

else

begin

if CompareText(ExtractFileName(peEntry.szExeFile),sFile) = 0 then

begin

TerminateProcess(OpenProcess(PROCESS_TERMINATE,false,peEntry.th32ProcessID), 0);

Result := True;

end;

end;

bLoop := Process32Next(hdlSnap,peEntry);

end;

CloseHandle(hdlSnap);

end

else

if verSystem.dwPlatformId=VER_PLATFORM_WIN32_NT then

begin

EnumProcesses(@arrPid,SizeOf(arrPid),iC);

iCount := iC div SizeOf(DWORD);

for k := 0 to Pred(iCount) do

begin

hdlProcess:=OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,false,arrPid [k]);

if (hdlProcess<>0) then

begin

EnumProcessModules(hdlProcess,@hdlModul,SizeOf(hdlModul),iC);

GetModuleFilenameEx(hdlProcess,hdlModul,arrModul,SizeOf(arrModul));

if bPath then

begin

if CompareText(arrModul,sFile) = 0 then

begin

TerminateProcess(OpenProcess(PROCESS_TERMINATE or PROCESS_QUERY_INFORMATION,False,arrPid [k]), 0);

Result := True;

end;

end

else

begin

if CompareText(ExtractFileName(arrModul),sFile) = 0 then

begin

TerminateProcess(OpenProcess(PROCESS_TERMINATE or PROCESS_QUERY_INFORMATION,False,arrPid [k]), 0);

Result := True;

end;

end;

CloseHandle(hdlProcess);

end;

end;

end;

end;

 

 

Adicionar outro botão (botao2) e meter isto no Onclick :

 

procedure TForm1.Button2Click(Sender: TObject);

begin

if TerminarProcesso(ListBox1.Items.Strings[ListBox1.Itemindex]) then

begin

ShowMessage('Processo '+ Edit1.Text +' foi terminado!');

Button1.Click;

end;

end;

 

Adicionar uma edit e colocar isto no onclick da listbox :

 

procedure TForm1.ListBox1Click(Sender: TObject);

begin

Edit1.Text:=ListBox1.Items.Strings[ListBox1.itemindex]

end;

Espero ter ajudado , se não conseguir diga que eu passo-te a source.

 

 

Vou ver se Funfa! Mesmo assim Thanks!

 

Para isso tens de fazer isto :

 

Procedure ListarProcessos(List : TListBox); // declarar este procedure embaixo de Public

 

Copia este procedure para o teu programa :

 

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

 

Adicionar um botão e escrever isto no OnClick :

 

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

 

Adiciona esta função :

 

 

function TerminarProcesso(sFile: String): Boolean;

var

verSystem: TOSVersionInfo;

hdlSnap,hdlProcess: THandle;

bPath,bLoop: Bool;

peEntry: TProcessEntry32;

arrPid: Array [0..1023] of DWORD;

iC: DWord;

k,iCount: Integer;

arrModul: Array [0..299] of Char;

hdlModul: HMODULE;

begin

Result := False;

if ExtractFileName(sFile)=sFile then

bPath:=false

else

bPath:=true;

verSystem.dwOSVersionInfoSize:=SizeOf(TOSVersionInfo);

GetVersionEx(verSystem);

if verSystem.dwPlatformId=VER_PLATFORM_WIN32_WINDOWS then

begin

hdlSnap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);

peEntry.dwSize:=Sizeof(peEntry);

bLoop:=Process32First(hdlSnap,peEntry);

while integer(bLoop)<>0 do

begin

if bPath then

begin

if CompareText(peEntry.szExeFile,sFile) = 0 then

begin

TerminateProcess(OpenProcess(PROCESS_TERMINATE,false,peEntry.th32ProcessID), 0);

Result := True;

end;

end

else

begin

if CompareText(ExtractFileName(peEntry.szExeFile),sFile) = 0 then

begin

TerminateProcess(OpenProcess(PROCESS_TERMINATE,false,peEntry.th32ProcessID), 0);

Result := True;

end;

end;

bLoop := Process32Next(hdlSnap,peEntry);

end;

CloseHandle(hdlSnap);

end

else

if verSystem.dwPlatformId=VER_PLATFORM_WIN32_NT then

begin

EnumProcesses(@arrPid,SizeOf(arrPid),iC);

iCount := iC div SizeOf(DWORD);

for k := 0 to Pred(iCount) do

begin

hdlProcess:=OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,false,arrPid [k]);

if (hdlProcess<>0) then

begin

EnumProcessModules(hdlProcess,@hdlModul,SizeOf(hdlModul),iC);

GetModuleFilenameEx(hdlProcess,hdlModul,arrModul,SizeOf(arrModul));

if bPath then

begin

if CompareText(arrModul,sFile) = 0 then

begin

TerminateProcess(OpenProcess(PROCESS_TERMINATE or PROCESS_QUERY_INFORMATION,False,arrPid [k]), 0);

Result := True;

end;

end

else

begin

if CompareText(ExtractFileName(arrModul),sFile) = 0 then

begin

TerminateProcess(OpenProcess(PROCESS_TERMINATE or PROCESS_QUERY_INFORMATION,False,arrPid [k]), 0);

Result := True;

end;

end;

CloseHandle(hdlProcess);

end;

end;

end;

end;

 

 

Adicionar outro botão (botao2) e meter isto no Onclick :

 

procedure TForm1.Button2Click(Sender: TObject);

begin

if TerminarProcesso(ListBox1.Items.Strings[ListBox1.Itemindex]) then

begin

ShowMessage('Processo '+ Edit1.Text +' foi terminado!');

Button1.Click;

end;

end;

 

Adicionar uma edit e colocar isto no onclick da listbox :

 

procedure TForm1.ListBox1Click(Sender: TObject);

begin

Edit1.Text:=ListBox1.Items.Strings[ListBox1.itemindex]

end;

Espero ter ajudado , se não conseguir diga que eu passo-te a source.

 

Não deu! D:

ﾠﾠMural de Coleçõesﾠﾠ

Clique aqui e adquira suas medalhas
Link para o comentário
https://www.webcheats.com.br/topic/1786685-como-eu-coloco-um-kill-process-no-meu-projeto/#findComment-7560609
Compartilhar em outros sites
Fr33dom Novato

Fr33dom 1

Postado
  • Novato
Postado
Não deu! D:

 

Boas... amigo tiravitornevado testei aqui e funciona. certamente copiou algo mal .

aqui te passo a Source :

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

Me diga se funcionou...

ﾠﾠMural de Coleçõesﾠﾠ

Clique aqui e adquira suas medalhas
Link para o comentário
https://www.webcheats.com.br/topic/1786685-como-eu-coloco-um-kill-process-no-meu-projeto/#findComment-7563221
Compartilhar em outros sites
Novato

tiravitornevado 0

Postado
  • Novato
Postado
funciona[/color]. certamente copiou algo mal .[/b]

aqui te passo a Source :

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

Me diga se funcionou...

 

Cara você é o cara! vou ver se funfa! :D

ﾠﾠMural de Coleçõesﾠﾠ

Clique aqui e adquira suas medalhas
Link para o comentário
https://www.webcheats.com.br/topic/1786685-como-eu-coloco-um-kill-process-no-meu-projeto/#findComment-7567452
Compartilhar em outros sites
Contribuidor

☢|EXPL01T3R|☣ 50

Postado
  • Contribuidor
Postado

Dúvida Solucionada !

 

Caro Membro,

Contate-me por perfil para que eu re-abra o tópico.

 

Obrigado à todos que ajudaram.

 

Tópico Trancado

python-doc-icon.jpg

wVNulLU.gif

ﾠﾠMural de Coleçõesﾠﾠ

Clique aqui e adquira suas medalhas
Link para o comentário
https://www.webcheats.com.br/topic/1786685-como-eu-coloco-um-kill-process-no-meu-projeto/#findComment-7573055
Compartilhar em outros sites
Este tópico está impedido de receber novos posts.
 Compartilhar
Ir para a lista de tópicos
×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.