使用 Process32First 出现的小问题。没想出为什么?请指教

                            
Process32First在我写的procedure   中不发挥作用?   
   
  1。下面是好用的  
  procedure   TForm1.Button2Click(Sender:   TObject);  
  var   lppe:   TProcessEntry32;  
    found   :   boolean;  
    Hand   :   THandle;  
  begin  
    Hand   :=   CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);  
    found   :=   Process32First(Hand,lppe);         //这里应该是T  
    while   found   do  
      begin  
        ListBox.Items.Add(StrPas(lppe.szExeFile));//列出所有进程。  
        found   :=   Process32Next(Hand,lppe);  
      end;  
  end;  
   
  ************************  
  2。把他写到procedure   中调用  
  procedure   addprolisbox;  
  var   lppe:   TProcessEntry32;  
    found   :   boolean;  
    Hand   :   THandle;  
  begin  
    Hand   :=   CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);  
    found   :=   Process32First(Hand,lppe);         //这里好出现F   ???为什么?  
    while   found   do  
      begin  
        ListBox.Items.Add(StrPas(lppe.szExeFile));//列出所有进程。  
        found   :=   Process32Next(Hand,lppe);  
      end;  
  end;  
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
      addprolisbox;  
  end;  
   
  那位兄台给解释一下。马上结贴~

查看回复