获得进程列表，如果进程中，有扩展名为scr的程序，说明屏幕保护程序正在运行。显示器是关的还是开？硬件上的开和关？-----------获得进程列表的代码： uses TLHelp32;procedure TForm1.Button1Click(Sender: TObject);var lppe: TProcessEntry32; found : boolean; Hand : THandle;begin Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0); found := Process32First(Hand,lppe); while found do begin memo1.lines.Add(StrPas(lppe.szExeFile));//列出所有进程。 found := Process32Next(Hand,lppe); end;end;
