[Ajuda] uses para FindProcess e Inject Library

[Matluc 0]

Alguém sabe as uses para FindProcess e InjectLibrary

 

preciso rapidão

 

flws

[Ryokusei 28]

Não são nativas do Delphi.

[Matluc 0]

Ryokusei, agradeço por ter me dado atenção, respondendo ao seu post,

 

acho que você entendeu errado, digo que vejo vários códigos de Delphi com termos como: FindProcess e InjectLibrary mas não declarado como uses.

 

Observe o Post #5 deste tópico no Script Brasil:

 

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

• Entre
• ou
• Cadastre-se

 

Tentei declarar as uses, que já foram declaradas na unit do amigo acima, porém deu o erro:

 

[Error] Not Found libHook.dcu e

[Error] Not Found libProcess.dcu

 

Respondam rápido.

 

Tchau

[Ryokusei 28]

Cara,você precisa dessas bibliotecas, é só baixar de algum lugar (não sei da onde elas são, você terá q jogar no google).

[Matluc 0]

Cara, eu pesquisei no google e não deu em nada !

[Lukasmart7 1]

Pelo Que Eu Vi São Funções que ele não escreveu!

Tente Essas Funções

Declare 'TlHelp32' Na User!

function FindProcess(ProcessName: string): DWORD;

var MyHandle: THandle;

Struct: TProcessEntry32;

begin

Result:=0;

try

MyHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 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;

function InjectLibrary(PID:DWORD; sDll:string):Boolean;

var

hLib: Pointer;

hThread: THandle;

pMod: Pointer;

hOpen: THandle;

dWritten: Cardinal;

ThreadID: Cardinal;

begin

Result := FALSE;

hOpen := OpenProcess(PROCESS_ALL_ACCESS, FALSE, PID);

if hOpen <> INVALID_HANDLE_VALUE then

begin

hLib := GetProcAddress(GetModuleHandle(PChar('kernel32.dll')), PChar('LoadLibraryA'));

pMod := VirtualAllocEx(hOpen, nil, Length(sDll) + 1, MEM_COMMIT or MEM_RESERVE, PAGE_EXECUTE_READWRITE);

if WriteProcessMemory(hOpen, pMod, @sDll[1], Length(sDll), dWritten) then

Result := TRUE;

hThread := CreateRemoteThread(hOpen, nil, 0, hLib, pMod, 0, ThreadID);

WaitForSingleObject(hThread, INFINITE);

CloseHandle(hOpen);

CloseHandle(hThread);

end;

end;

[Matluc 0]

Lukas, deu estes erros:

 

[Error] Unit1.pas(185): Undeclared identifier: 'TH32CS_SNAPPROC'

na linha:

MyHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPPROC ESS, 0);

 

[Error] Unit1.pas(185): Not enough actual parameters

na linha:

MyHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPPROC ESS, 0);

 

[Error] Unit1.pas(187): Missing operator or semicolon

na linha:

MyHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPPROC ESS, 0);

[DogDanger.exe 0]

Lukas, deu estes erros:

 

[Error] Unit1.pas(185): Undeclared identifier: 'TH32CS_SNAPPROC'

na linha:

MyHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPPROC ESS, 0);

 

[Error] Unit1.pas(185): Not enough actual parameters

na linha:

MyHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPPROC ESS, 0);

 

[Error] Unit1.pas(187): Missing operator or semicolon

na linha:

MyHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPPROC ESS, 0);

você declarou TlHelp32 nas users?

[Matluc 0]

Declarei sim DogDanger