gabrielzxc
Novato
Registrado: Domingo, 29 de Novembro de 2015
Mensagens: 17
|
 Enviada: Dom Jan 10, 2016 3:16 pm Assunto: Duvida modules processo |
 |
|
Olá pessoal achei um código aqui mesmo no fórum, sobre "listar modules de um processo "
porém eu cheguei até no que eu queria.. mais to com uma dúvida, teria como somente listar por exemplo, injetei a dll , listar somente essa dll ? e não as que aparece do windows etc... excluir as linhas no caso bom fico no aguardo...
o código e esse :
| Código: | function GetProcessByName(proc: string): Cardinal;
var
Snap: Cardinal;
pe: PROCESSENTRY32;
begin
Snap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
pe.dwSize:=sizeof(pe);
Process32First(Snap,pe);
repeat
if LowerCase(pe.szExeFile) = LowerCase(proc) then
begin
Result:=pe.th32ProcessID;
exit;
end;
until not Process32Next(Snap,pe);
Result:=0;
end;
function GetProcessModules(proc: Cardinal): TStringList;
var
Snap: Cardinal;
me: MODULEENTRY32;
begin
Result:=TStringList.Create;
Snap:=CreateToolhelp32Snapshot(TH32CS_SNAPMODULE,proc);
me.dwSize:=sizeof(me);
Module32First(Snap,me);
repeat
Result.Add(me.szExePath);
until not Module32Next(Snap,me);
end; |
| Código: | | memo1.Text:=GetProcessModules(GetProcessByName(edit1.Text)).Text; |
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
