为什么这里的boolean会报readonly呢?
procedure TForm1.Button1Click(Sender: TObject); var lppe:TProcessEntry32; found:boolean; Hand:THandle; begin Hand:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0); lppe.dwSize := Sizeof(lppe); //初始化 found:=Process32First(Hand,lppe); while found do begin ListBox1.Items.Add(StrPas(lppe.szExeFile));//列出所有进程。 found:=Process32Next(Hand,lppe); end; end;