Question

Delphi注入DLL 如何获取当前进程名

就是判断当前进程是否是我想要注入的进程，如QQ.exe
如果是这个进程就载入DLL，希望大家给我说详细点，初学Delphi!!!

Answer 1

比如你想注入的进程是QQ.EXE
那么首先判断进程是否存在,判断方法如下：
在USES 中加入TLhelp32单元
function Tform1.CheckTask(ExeFileName: string): Boolean;\\判断进程是否存在
const
PROCESS_TERMINATE=$0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
result := False;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle,FProcessEntry32);
while integer(ContinueLoop) <> 0 do begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =UpperCase(ExeFileName))
or (UpperCase(FProcessEntry32.szExeFile) =UpperCase(ExeFileName))) then
result := True;
ContinueLoop := Process32Next(FSnapshotHandle,FProcessEntry32);
end;
end;
调用方法:
procedure TForm1.Button1Click(Sender: TObject);\\按钮上单击事件
begin
if CheckTask('qq.exe')=true then\\判断qq.exe是否存在
showmessage('QQ进程存在！');//如果存在一个提示
//(当然这里你可以换成你想执行的代码:载入DLL。根据你的需要而定吧)
end;

Answer 2

遍历进程!
是就注入!

Answer 3

我也在学习中》》》》》》》》》》》》