Function PID PROCESSO

[zSith 11]

Declare nas USER: TlHelp32

 

function GetPID(ProcessName: string): DWORD; //Função obter o ID do Processo (PID)

var MyHandle: THandle;

Struct: TProcessEntry32;

begin

Result:=0;

try

MyHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPPROC ESS, 0);

Struct.dwSize:=Sizeof(TProcessEntry32);

if Process32First(MyHandle, Struct) then

if Struct.szExeFile=ProcessName then

begin

Result:=Struct.th32ProcessID;

Exit;

end;

while Process32Next(MyHandle, Struct) do

if Struct.szExeFile=ProcessName then

begin

Result:=Struct.th32ProcessID;

Exit;

end;

except on exception do

Exit;

end;

end;

 

 

Para Usar:

PID:= GetPID('main.exe');

 

Faca e o queijo dado o resto é com vc's'

 

.Ryokusei

[CokeBoladao 0]

Bom, tentei e não funcionou.

Criei um form teste para tentar e resultado:

Screenshot by Lightshot

Fiz algo de errado?

[Inoxybel 39]

Aiai... Ao menos coloque os créditos do criador da função!

 

Tirando o fato de que foi modificado coisas insignificantes como inversão das variáveis na comparação do 2° IF, ou até mesmo a alteração do nome da função, ainda é a mesma função.

 

Função original:

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

• Entre
• ou
• Cadastre-se

 

Onde pode encontrar? Em tópicos do criador, tal como: http://www.webcheats.com.br/forum/delphi-vb/646323-criando-trainer-para-pinball-conscientemente.html

 

Ah, e só pra constar, na ''rippação'' foi tirada a comparação em LowerCase, ou seja, se o processo chamar PINBALL e você colocar pinball, ele não irá encontrar.

[CokeBoladao 0]

Muito obrigado assim que puder vou tetar.

 

Por enquanto não pretendo aplicar isso em nenhum projeto, mas gostaria de testar já para aprendizado ;)