Windows 获取名称/描述Startaddress或进程中的线程（Delphi/Pascal）
Process Hacker在C中有一个流程管理器 在流程管理器中双击流程时，例如资源管理器Windows 获取名称/描述Startaddress或进程中的线程（Delphi/Pascal）,windows,delphi,winapi,Windows,Delphi,Winapi,Process Hacker在C中有一个流程管理器 在流程管理器中双击流程时，例如资源管理器 您会看到很多信息，包括： 与流程相关的主题。PDD，周期增量开始，地址，优先级 我尝试在Delphi中做类似的事情，但我只得到TID和优先级… 我无法将信息的起始地址设置为：“msilcfg.dll 0x258！”或只能返回 00630EFA （原始）应用程序进程黑客在下图中显示信息： 我如何解决这个问题？基于下面的代码示例 procedure TForm1.Button7Click (Sender:
您会看到很多信息，包括：
与流程相关的主题。PDD，周期增量开始，地址，优先级 我尝试在Delphi中做类似的事情，但我只得到TID和优先级…
我无法将信息的起始地址设置为：“msilcfg.dll 0x258！”或只能返回 00630EFA （原始）应用程序进程黑客在下图中显示信息： 我如何解决这个问题？基于下面的代码示例
procedure TForm1.Button7Click (Sender: TObject);
var
tbi: THREAD_BASIC_INFORMATION;
hThreadSnap, Process, hThread, ThreadInfo: THandle;
te32: tagTHREADENTRY32;
me32: MODULEENTRY32;
th32: THREADENTRY32;
dwPID: DWORD;
startaddr: Pointer;
Status: LongInt;
Error: DWORD;
modname: String;
hToken: DWORD;
TKP: TOKEN_PRIVILEGES;
otkp: TOKEN_PRIVILEGES;
dwLen: dword;
begin
hThreadSnap: = CreateToolhelp32Snapshot (TH32CS_SNAPTHREAD, 0);
if hThreadSnap = INVALID_HANDLE_VALUE then
Exit;
try
dwPID: = GetProcessID (Trim (Edit1.Text));
te32.dwSize: = SizeOf (THREADENTRY32);
me32.dwSize: = SizeOf (MODULEENTRY32);
ListBox1.Items.Clear;
ListBox2.Items.Clear;
if not Thread32First (hThreadSnap, te32) then
Exit;
repeat
if te32.th32OwnerProcessID = dwPID then
begin
hThread: = OpenThread (THREAD_ALL_ACCESS,
False, te32.th32ThreadID);
status: = ZwQueryInformationThread (hThread,
9,
ThreadQuerySetWin32StartAddress {}
@Startaddr,
SizeOf (startaddr)
@ DwLen);
listbox1.Items.AddObject (Format ('StartAddress:% p'
[Startaddr]) + 'ID:' + IntToStr(te32.th32ThreadID), TObject (hThread));
if hThread <> 0 then
CloseHandle (hThread);
end;
Until not Thread32Next (hThreadSnap, te32);
finally
CloseHandle (hThreadSnap);
end;
end;
程序TForm1.button7点击（发送方：TObject）；
变量
tbi：线程基本信息；
hThreadSnap，Process，hThread，ThreadInfo:THandle；
te32:tagTHREADENTRY32；
me32:MODULEENTRY32；
th32:THREADENTRY32；
dwPID:DWORD；
startaddr：指针；
状态：LongInt；
错误：德沃德；
modname:String；
赫托肯：德沃德；
TKP:TOKEN_特权；
otkp：令牌特权；
德伦：德沃德；
开始
hThreadSnap:=CreateToolhelp32Snapshot（TH32CS_SNAPTHREAD，0）；
如果hThreadSnap=无效的\u句柄\u值，则
出口
尝试
dwPID:=GetProcessID（Trim（Edit1.Text））；
te32.dwSize:=SizeOf（THREADENTRY32）；
me32.dwSize:=SizeOf（MODULEENTRY32）；
ListBox1.Items.Clear；
ListBox2.Items.Clear；
如果不是thread32优先（hThreadSnap，te32），则
出口
重复
如果te32.th32OwnerProcessID=dwPID，则
开始
hThread:=OpenThread（线程所有访问，
False，te32.th32ThreadID）；
状态：=ZwQueryInformationThread（hThread，
9,
ThreadQuerySewin32StartAddress{}
@Startaddr，
SizeOf（startaddr）
@德伦）；
listbox1.Items.AddObject（格式（'StartAddress:%p'
[Startaddr]+'ID:'+IntToStr（te32.th32ThreadID），TObject（hThread））；
如果hThread为0，则
CloseHandle（hThread）；
结束；
直到不是Thread32Next（hThreadSnap，te32）；
最后
闭合手柄（hThreadSnap）；
结束；
结束；
procedure TSynTestsLogged.Failed(const msg: string; aTest: TSynTestCase);
begin
inherited;
with TestCase[fCurrentMethod] do begin
fLogFile.Log(sllFail,'%: % "%"',
[Ident,TestName[fCurrentMethodIndex],msg],aTest);
end; {with}
end;
sllFail