Uses ComObj; Edit1.Text :=CreateClassID; 转载于:https://www.cnblogs.com/lzj1981/archive/2013/05/01/3053365.html