S
sunjunfeng3
Unregistered / Unconfirmed
GUEST, unregistred user!
不能用OpenProecss这个函数不能在2K以后的版本中<br>我在各大论坛上都没有得到答案
S
sunjunfeng3
Unregistered / Unconfirmed
GUEST, unregistred user!
不能用OpenProecss这个函数不能在2K以后的版本中<br>我在各大论坛上都没有得到答案
D
dbyoung
Unregistered / Unconfirmed
GUEST, unregistred user!
问题如何问的？瞌睡来了就睡觉吧！
S
sunjunfeng3
Unregistered / Unconfirmed
GUEST, unregistred user!
已知进行ID如果得到相应的句柄 我在XP用OpenProecss函数不行,还有函数用可以吗
W
wp231957
Unregistered / Unconfirmed
GUEST, unregistred user!
这是一段把DLL写入其他进程的代码(测试环境XP+DELPHI7)<br><br>procedure TForm1.Button3Click(Sender: TObject);<br>var<br> dllname:string;<br> progmanhandle:dword;<br> threadid:dword;<br> processid:dword;<br> funcp
ointer;<br> prociddword;<br> virpointer;<br> tmp:dword;<br> kerhandle:dword;<br>begin<br> ////////////////////////////////////////////////////////<br> kerhandle:=GetModuleHandle(pchar('Kernel32.dll'));<br> if kerhandle<>0 then begin<br> funcp:=GetProcAddress(kerhandle,'LoadLibraryA');<br> end else exit;<br> ////////////////////////////////////////////////////////<br> dllname:='g:/wpdll/wpdll.dll';<br> procid:=allocmem(4);<br> progmanhandle:=findwindow('Progman','Program Manager');<br> if progmanhandle<>0 then begin<br> threadid:=GetWindowThreadProcessId(progmanhandle,procid);<br> if threadid<>0 then begin<br> processid:=OpenProcess(PROCESS_CREATE_THREAD or PROCESS_VM_OPERATION or<br> PROCESS_VM_WRITE,FALSE,procid^);<br> if processid<>0 then begin<br> virp:=VirtualAllocEx(processid,nil,MAX_PATH,MEM_COMMIT,PAGE_READWRITE);<br> if virp<>nil then begin<br> if writeProcessMemory(processid,virp,pchar(dllname),MAX_PATH,tmp) then begin<br> CreateRemoteThread(processid,nil,0,funcp,virp,0,threadid);<br> end;<br> end;<br> end;<br> end;<br> end;<br> freemem(procid);<br>end;
ointer;<br> prociddword;<br> virpointer;<br> tmp:dword;<br> kerhandle:dword;<br>begin<br> ////////////////////////////////////////////////////////<br> kerhandle:=GetModuleHandle(pchar('Kernel32.dll'));<br> if kerhandle<>0 then begin<br> funcp:=GetProcAddress(kerhandle,'LoadLibraryA');<br> end else exit;<br> ////////////////////////////////////////////////////////<br> dllname:='g:/wpdll/wpdll.dll';<br> procid:=allocmem(4);<br> progmanhandle:=findwindow('Progman','Program Manager');<br> if progmanhandle<>0 then begin<br> threadid:=GetWindowThreadProcessId(progmanhandle,procid);<br> if threadid<>0 then begin<br> processid:=OpenProcess(PROCESS_CREATE_THREAD or PROCESS_VM_OPERATION or<br> PROCESS_VM_WRITE,FALSE,procid^);<br> if processid<>0 then begin<br> virp:=VirtualAllocEx(processid,nil,MAX_PATH,MEM_COMMIT,PAGE_READWRITE);<br> if virp<>nil then begin<br> if writeProcessMemory(processid,virp,pchar(dllname),MAX_PATH,tmp) then begin<br> CreateRemoteThread(processid,nil,0,funcp,virp,0,threadid);<br> end;<br> end;<br> end;<br> end;<br> end;<br> freemem(procid);<br>end;
V
vvyang
Unregistered / Unconfirmed
GUEST, unregistred user!
function GetWindowID(hWnd: HWND): DWORD;<br>var<br> OwningProcess: DWORD;<br>begin<br> Result := GetWindowThreadProcessID(Handle, OwningProcess);<br>end;
V
vvyang
Unregistered / Unconfirmed
GUEST, unregistred user!
不好意思，写反了。<br>type<br> tagWNDINFO = packed record<br> dwProcessId: DWORD;<br> hWnd: HWND;<br> end;<br> PWNDINFO = ^tagWNDINFO;<br><br>function GetProcessMainWnd(dwProcessId: DWORD): HWND;<br> function EnumFunc(const hWnd: Longword; lParam: Longint): BOOL; stdcall;<br> var<br> dwProcessId: DWORD;<br> pInfo: PWNDINFO;<br> begin<br> GetWindowThreadProcessId(hWnd, dwProcessId);<br> pInfo := PWNDINFO(lParam);<br> if dwProcessId = pInfo.dwProcessId then<br> begin<br> pInfo.hWnd := hWnd;<br> Result := False;<br> end<br> else Result := True;<br> end;<br>var<br> wi: tagWNDINFO;<br>begin<br> wi.dwProcessId := dwProcessId;<br> wi.hWnd := 0;<br> EnumWindows(@EnumFunc, Longint(@wi));<br> Result := wi.hWnd;<br>end;
S
sunjunfeng3
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。
