摘要： 刷新系统托盘(清除死掉的图标)修正版2009-08-06 18:50:06|分类： Delphi |标签： |字号大中小订阅 type TOSVersion = (osUnknown, os95, os98, osME, osNT3, osNT4, os2K, osXP, os2K3); ...... function GetOS: TOSVersion; var OS: TOSVersionInfo; begin ZeroMemory(@OS,SizeOf(OS)); OS.dwOSVersionInfoSize := SizeOf(OS); GetVersionEx(OS); Result 阅读全文