如何用Delphi访问注册表，然后把启动项显示出来？

[wdrdjx11]

如何用Delphi访问注册表，然后把启动项显示出来？

[hongqi162]

还有HKEY_LOCAL_MACHINE下的

[changsn]

以服务启动不是更好?

[bdmh]

uses
  Registry;

var
  reg:TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;
  reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',False);
  reg.GetValueNames(ListBox1.Items);
  reg.CloseKey;
  reg.Free;
end;

[keeley20]

SOFTWARE\Microsoft\Windows\CurrentVersion\Run 是比较常见的启动键值

还有一些其他的键值
如 RunOnce 键 RunServicesOnce 键 WinLogon 键等。

[JeffChung]

注册表里有好几个地方的，都得去找找

[mihi1978]

主要还是在 服务这块。。
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\
这里应该是主力。。

[CassiaBlossom]

uses
  Registry;


procedure TForm1.Button1Click(Sender: TObject);
const
  sKey_MACHINE: array[0..7] of string =
  ('SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Userinit',
    'SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run',
    'SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesOnce',
    'SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices',
    'SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce\Setup',
    'SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce',
    'SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx',
    'SOFTWARE\Microsoft\Windows\CurrentVersion\Run'
    );

  sKey_USER: array[0..6] of string =
  ('Software\Microsoft\WindowsNT\CurrentVersion\Windows\load',
    'Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run',
    'Software\Microsoft\Windows\CurrentVersion\RunServicesOnce',
    'Software\Microsoft\Windows\CurrentVersion\RunServices',
    'Software\Microsoft\Windows\CurrentVersion\RunOnce\Setup',
    'Software\Microsoft\Windows\CurrentVersion\RunOnce',
    'Software\Microsoft\Windows\CurrentVersion\Run'
    );

var
  regTemp: TRegistry;
  slTemp, slResult: TStringList;
  iNum: Integer;
begin
  //清空Memo
  mmoResult.Clear;
  slTemp := TStringList.Create;
  slResult := TStringList.Create;
  regTemp := TRegistry.Create;
  //循环查找启动项
  regTemp.RootKey := HKEY_CURRENT_USER;
  for iNum := 0 to 6 do
  begin
    regTemp.OpenKey(sKey_USER[iNum], False);
    regTemp.GetValueNames(slTemp);
    slResult.AddStrings(slTemp);
    regTemp.CloseKey;
  end;
  //循环查找启动项
  regTemp.RootKey := HKEY_LOCAL_MACHINE;
  for iNum := 0 to 7 do
  begin
    regTemp.OpenKey(sKey_MACHINE[iNum], False);
    regTemp.GetValueNames(slTemp);
    slResult.AddStrings(slTemp);
    regTemp.CloseKey;
  end;

  //在Memo控件显示结果
  mmoResult.Lines.AddStrings(slResult);
  //释放regTemp
  regTemp.Free;
end;


Delphi7,WindowsXp下通过.