请问各位大哥,为什么Api函数 
CreateToolhelp32Snapshot()
Process32Fist()
Process32Next() 不能用 ?
是不是要引用什么单元的?
出错提示是没定义,可是我在SDK是都有找到这些函数啊!
请各位大哥,指教小弟, 先谢谢了

解决方案 »

  1.   

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

  2.   

    请问各位哥们,以下代码错在那里的?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;
      

  3.   

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