不就是枚举进程嘛，Toolhelp/PSAPI，那么多方法，网上随便一搜一大堆。问问题也问不到重点上~

大帅哥 可否能给个例子 感激不尽!~

CreateToolhelp32Snapshot();

或者EnumProcess()

逆流师傅...

function GetPIDByProgramName(const APName: string): DWORD;
var
     isFound: boolean;
     AHandle:THandle;
     ProcessEntry32: TProcessEntry32;
begin
     try
     Result := 0;
     AHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
     ProcessEntry32.dwSize := Sizeof(ProcessEntry32);
     isFound := Process32First(AHandle, ProcessEntry32);
     while isFound do
     begin
         if (UpperCase(StrPas(ProcessEntry32.szExeFile)) = UpperCase(APName)) then
         begin
         Result := ProcessEntry32.th32ProcessID;
         break;
         end;
         isFound := Process32Next(AHandle, ProcessEntry32);
     end;
     finally
     CloseHandle(AHandle);
     end;
end;

var

pid: DWORD;

hprocess: DWORD;

begin

pid=GetPIDByProgramName("notepad.exe");

hprocess := OpenProcess(PROCESS_ALL_ACCESS, False, pid);

if (hprocess>0) then

begin

if WriteProcessMemory(hProcess ,Pointer($00401333),@newdata,1 ,BytesRead ) then

begin

CloseHandle(hProcess);

Form1.Label2.Caption:='OK　';

end

else

begin

CloseHandle(hProcess);

Form1.Label2.Caption:='NO　';

end;

end;

end;

Z大侠 膜拜!~~