failed to set data for ‘程序名’ 出错在那里 谢谢
wrost 2011-09-18 03:19:12
failed to set data for ‘程序名’
上面是出错信息。 为什么有些机器不会出错,有些机器会出错。
Procedure AutoRun(); //设置自动启动
var
rAutoRun: TRegistry;
begin
rAutoRun := TRegistry.Create;
rAutoRun.RootKey := HKEY_LOCAL_MACHINE;
try
rAutorun.OpenKey( 'SOFTWARE\Microsoft\Windows\CurrentVersion\Run', true);
if rAutoRun.ValueExists( 'AT_Mrg') then
begin
end
else
begin
rAutorun.WriteString( 'AT_Mrg', ExpandFileName(Application.ExeName));
//MessageBox(self.Handle, '自启动设置成功! ', '提示 ', mb_iconInformation + mb_Ok);
//ShowMessage('注册成功');
end;
finally
rAutoRun.CloseKey;
rAutoRun.Free;
end;
end;