将TObject取消引用回Integer

Question

我有一个来自Jedi JCL RunningProcessList的函数，定义如下....

procedure RunningProcessesList(AList: TStrings; ABoolean: Boolean)

该文档声明该函数将正在运行的二进制名称放在AList.Strings[n]索引中，并将AList.Objects[n]中的进程ID作为指向整数。

如何取消引用它以获取实际值。在函数中，它按如下方式分配值。

List.AddObject(FileName, Pointer(ProcEntry.th32ProcessID));

其中ProcEntry: TProcessEntry32;

如何将PID分配到Objects字段？

Answer 1

PID

PID := DWORD(List.Objects[Index]);

其中Index是感兴趣项目的索引。