列出注册表"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run"中的所有键值到界面上或文本中；并把自己做的这个程序设置为开机

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Registry, Dialogs, StdCtrls;type  TForm1 = class(TForm)    Button1: TButton;    ListBox1: TListBox;    Button2: TButton;    Button3: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);    procedure Button3Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var  MyReg : TRegistry;begintry  MyReg := TRegistry.Create;  MyReg.RootKey := HKEY_CURRENT_USER;  if MyReg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', true) then  begin  Application.MessageBox('Open success', '提示信息', 64);  MyReg.WriteString('Task One', ExtractFilePath(Application.ExeName)+'Project1.exe');  ListBox1.Items.Add('Thunder  ' + MyReg.ReadString('Thunder'));  ListBox1.Items.Add('BaiduYunDetect  ' + MyReg.ReadString('BaiduYunDetect'));  ListBox1.Items.Add('BaiduYunGuanjia  ' + MyReg.ReadString('BaiduYunGuanjia'));  ListBox1.Items.Add('ctfmon  ' + MyReg.ReadString('ctfmon'));  ListBox1.Items.Add('OneDrive  ' + MyReg.ReadString('OneDrive'));  ListBox1.Items.Add('YoudaoDict  ' + MyReg.ReadString('YoudaoDict'));  ListBox1.Items.SaveToFile('test.txt');  //将listbox中的内容写入到指定的文件中  MyReg.CloseKey;  MyReg.Free;  endexcept   //出错的时候执行   Application.MessageBox('Open fail', '提示信息', 64);end;end;procedure TForm1.Button2Click(Sender: TObject);begin   Listbox1.Items.Clear;end;procedure TForm1.Button3Click(Sender: TObject);var  F: TextFile;  p, str: string;begin//  str := '';     AssignFile(F, ExtractFilePath(Application.ExeName)+'test.txt'); //提取文件名的当前路径 Reset(F);   //只读方式打开 while not Eof(f) do begin readln(f, p); str := str+p; end; CloseFile(F); ShowMessage(str);end;end.