procedure TForm1.Button1Click(Sender: TObject);
Var Reg:TRegistry;
begin
Reg:=TRegistry.Create;
Try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if Reg.deletekey('\Software\Microsoft\Windows\CurrentVersion\Run\run\'then
reg.DeleteKey('run''E:\qq\QQ\QQ.exe');
MessageDlg('删除成功!', mtInformation,[mbOk], 0);
Finally
Reg.CloseKey;
Reg.Free;
end;//这样运行 连WINDOWS 下的RUN 都给删除了.但里面还有我需要别的启动项呢 怎样删除一个啊
Var Reg:TRegistry;
begin
Reg:=TRegistry.Create;
Try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if Reg.deletekey('\Software\Microsoft\Windows\CurrentVersion\Run\run\'then
reg.DeleteKey('run''E:\qq\QQ\QQ.exe');
MessageDlg('删除成功!', mtInformation,[mbOk], 0);
Finally
Reg.CloseKey;
Reg.Free;
end;//这样运行 连WINDOWS 下的RUN 都给删除了.但里面还有我需要别的启动项呢 怎样删除一个啊
解决方案 »
- 如何让程序有背景音
- delphi update4安装后出错
- DBlistbox组件的问题
- DBGRIDEH怎么在前面加个图形?
- 在线等待在Access 中 怎么改 select isnull(max(right(id,4)),0)+1 as MaxID from tb_rjz where left(ID,8)='+ FormatDateTime('yyyyMMd
- ..SOS..SOS..SOS..SOS..SOS..
- 关于delphi的数据库时间,日期查询问题?
- 有关修改IE安全性的问题
- 为什么刷新后,找不到句柄了?
- 关于足球彩票的问题:
- 怎样在DBGrid里给某一列(如第三列,仅一列)的第二行到第六行网格绘上绿色背景,因为我想一步操作实现复制\粘贴多个网格的数据,数据库为Access 2000数据库(Delphi7),我对此已花很多时间和精力,敬请热心的高人指点,万分感谢!
- 开发并运用成功的财务源码(D7+MS SQL2000)出售.....
然后DeleteValue
procedure TForm1.Button1Click(Sender: TObject);
var
s: TRegistry;
begin
s := TRegistry.Create;
try
s.RootKey := HKEY_LOCAL_MACHINE;
s.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run\run',False);
s.DeleteValue('QQ');
finally
s.CloseKey;
s.Free;
end;
end;