请高手给解释一下好吗，万分感谢？(0)

谢谢了procedure TForm1.SpeedButton1Click(Sender: TObject);var I: Integer; hHandle: THandle; PE32: TProcessEntry32; bFind: Boolean;begin I := listbox1.ItemIndex；这一句什么意思？？？ listbox1.Items.Clear; hHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); if hHandle <= 0 then begin Exit; end; PE32.dwSize := SizeOf(TProcessEntry32); bFind := Process32First(hHandle, PE32); while bFind do beginlistbox1.Items.Add(PE32.szExeFile); bFind := Process32Next(hHandle, PE32); end;listbox1.ItemIndex := I 这一句又是什么意思？？？ if (listbox1.Count > 0) and (listbox1.ItemIndex < 0) then listbox1.Selected[0] := True;这一句什么意思end;

看帮助啊！！！上面讲的清清楚楚的。

我不明白的是前面I := listbox1.ItemIndex；后面又来了个listbox1.ItemIndex := I我搞不懂这两句是什么意思

I := listbox1.ItemIndex；这一句什么意思？？？先保存原来的 ItemIndex，例如一个 listbox 中有3行，当前行是第一行，则 I 为 0。 listbox1.Items.Clear;清除 listbox1 的内容，也可以直接写成 listbox1.Clear;后面又来了个listbox1.ItemIndex := I恢复 listbox 的原 ItemIndex 值执行代码得到所有的进程名后放到 listbox 中，这时 listbox 里面可能有 10 行，但是当前行会是第一行。祝你好运。

look up help

谢谢 szhcracker，特别感谢