请问各位大哥，为什么Api函数 CreateToolhelp32Snapshot() Process32Fist() Process32Next 不能用 ?是不是要引用什么单元的？

[d0347]

请问各位大哥，为什么Api函数
CreateToolhelp32Snapshot()
Process32Fist()
Process32Next（）

不能用 ?
是不是要引用什么单元的？
出错提示是没定义，可是我在SDK是都有找到这些函数啊！
请各位大哥，指教小弟， 先谢谢了

[reedseutozte]

要引用
Tlhelp32

[d0347]

谢谢 reedseutozte(haha) 能不能再教小弟这些函数的用法

[d0347]

请问各位哥们，以下代码错在那里的？

procedure TForm1.Button5Click(Sender: TObject);
Type
S_Process=Record
dwSize: DWORD;
cntUsage: DWORD;
th32ProcessID: DWORD;
th32DefaultHeapID: DWORD;
th32ModuleID: DWORD;
cntThreads: DWORD;
th32ParentProcessID: DWORD;
pcPriClassBase: LONGINT;
dwFlags: DWORD;
szExeFile :PChar;
End ;
Var
msgProcess: S_Process;
Snapshot : DWord ;
begin
Snapshot := CreateToolhelp32Snapshot（TH32CS_SNAPPROCESS, GetCurrentProcessId() ) ;
msgProcess.dwSize := 296 ;
Process32First(Snapshot, msgProcess) ;

end;

[reedseutozte]

var
msgProcess: PROCESSENTRY32;
Snapshot: DWord;
begin
Snapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, GetCurrentProcessId());
msgProcess.dwSize := 296;
Process32First(Snapshot, msgProcess);

end;