var
myReg:TRegistry;
begin
myReg:=TRegistry.Create;
myReg.RootKey:=HKEY_LOCAL_MACHINE;
myReg.OpenKey ('SoftWare\Microsoft\Windows\CurrentVersion\Run',False);
myReg.DeleteKey('Project');
myReg.CloseKey;
myReg.Free;
无法删除Project的键值哦~~出了什么错吗~~
myReg:TRegistry;
begin
myReg:=TRegistry.Create;
myReg.RootKey:=HKEY_LOCAL_MACHINE;
myReg.OpenKey ('SoftWare\Microsoft\Windows\CurrentVersion\Run',False);
myReg.DeleteKey('Project');
myReg.CloseKey;
myReg.Free;
无法删除Project的键值哦~~出了什么错吗~~
begin
if not (key in ['0'..'9','.',#13,#8]) then
begin
key:=#0;
showmessage('只能输入小数点和数字!');
end;
end;
这个是关于DELPHI只能输入小数点还有删除键的键值,你看看吧!~
没事给你写了
myReg:TRegistry;
begin
myReg:=TRegistry.Create;
myReg.RootKey:=HKEY_LOCAL_MACHINE;
myReg.OpenKey ( 'SoftWare\Microsoft\Windows\CurrentVersion\Run ',False);
myReg.DeleteValue(value);//必须先删除相对应的子键,value:子键名称
myReg.DeleteKey( 'Project '); myReg.Free;