function Process32First(hSnapshot:integer;lppe:PROCESSENTRY32):integer;stdcall;external 'kernel32.dll'; Type PROCESSENTRY32=record 
    dwSize:integer; 
    cntUsage:integer; 
    th32ProcessID :integer; 
    th32DefaultHeapID :integer; 
    th32ModuleID :integer; 
    cntThreads :integer; 
    th32ParentProcessID :integer; 
    pcPriClassBase :integer; 
   dwFlags :integer; 
    szExeFile:array[0..1024] of char; 
end; 各位大侠帮忙