您所在位置：主题：看看这段代码
qiugaoqil
[专家分：0] 发布于 2007-04-04 14:24:00
var
TempKey: HKEY;
fDisposition: pointer;
fr1:DWORD;
begin
fr1:=00000001;
if RegCreateKeyEx(HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer',0,nil,REG_OPTION_NON_VOLATILE,KEY_READ or KEY_WRITE,nil,TempKey,fDisposition)=ERROR_SUCCESS then
begin
RegSetValueEx(TempKey,'NoLowDiskSpaceChecks',0,REG_DWORD,@fr1,4);
RegCloseKey(TempKey);
end;
end;
这个程序什么地方错了啊，运行是有警告，而且占用CPU很高．．．[em7][em8][em9][em10][em11][em12][em13][em14][em15][em16][em17][em18][em19][em20]
TempKey: HKEY;
fDisposition: pointer;
fr1:DWORD;
begin
fr1:=00000001;
if RegCreateKeyEx(HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer',0,nil,REG_OPTION_NON_VOLATILE,KEY_READ or KEY_WRITE,nil,TempKey,fDisposition)=ERROR_SUCCESS then
begin
RegSetValueEx(TempKey,'NoLowDiskSpaceChecks',0,REG_DWORD,@fr1,4);
RegCloseKey(TempKey);
end;
end;
这个程序什么地方错了啊，运行是有警告，而且占用CPU很高．．．[em7][em8][em9][em10][em11][em12][em13][em14][em15][em16][em17][em18][em19][em20]