我写了一个开机自动运行程序.但报错:文件没找到.请帮我看一下错在哪里.

Question

代码如下:
     var reg:TRegistry;
     begin
       reg := TRegistry.Create;
       reg.RootKey := HKEY_LOCAL_MACHINE;
       if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',true) then
         begin
           reg.WriteString('lp','F:\测试程序文件夹\Project2.exe');
           reg.CloseKey;
         end;
       reg.Free;
    end;
  另外，我为了开机不运行,用reg.DeleteKey('lp')删除但也出问题.请指教

Answer 1

呵呵。
这样试试：
 s:=application.ExeName;
reg.WriteString('lp', s);

Answer 2

你的程序在启动的时候，是否还使用了其他的文件，如果是，请写清楚
他的完整的路径例如c:\window\xxx.txt
我原来有个开机运行的程序在启动时，要用一个.txt文件，不加完整路径
就找不到，加上就好了！

Answer 3

Windows 的注册表经常都是这样的。