Ⅰ Delphi 删除注册表键值
0: KeyName := 'Software\ay\ay0';
1: KeyName := 'Software\ay\ay1';
2: KeyName := 'Software\ay\ay2';
3: KeyName := 'Software\ay\ay3';
改为:
0: KeyName := '\Software\ay\ay0';
1: KeyName := '\Software\ay\ay1';
2: KeyName := '\Software\ay\ay2';
3: KeyName := '\Software\ay\ay3';
Ⅱ delphi的删除操作，删除前弹出一个“确定删除吗”，点击是则删除，否则不删除，如何实现啊
Var DelFlag:Integer;
DelFlag:=Application.MessageBox(Pchar('你确认要删除用户这条记录吗?'),'警告',MB_YESNO);
If DelFlag=6 then
Begin
ADOQ_User.Delete;
End;
Ⅲ DELPHi:删除注册表项及子项问题
// 删除键
Registry.Deletekey('pc_client');
if registry.deletekey('pc_client') then
showmessage('ok');
其中Registry.Deletekey('pc_client')相当于执行了两次，到你IF 语句里执行结果肯定是FALSE，就肯定不出提示对话框了，把IF语句上面那句删除吧
还有就是ROOTKEY指定，不知道是不是你没贴出来
KEYSTR:='\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupregKey\pc_client';
Registry.RootKey := HKEY_LOCAL_MACHINE;
if not Registry.OpenKey(KEYSTR,false) then Exit;
try
// 删除键
if registry.deletekey(KEYSTR) then
showmessage('ok');
finally
Registry.CloseKey;
end;
finally
Registry.Free;
end;
你的语句里少个\ 你还少个not
Ⅳ 重新安装delphi2007出现“Invalid Serial Number”，我想知道怎么把原来信息删掉！具体的方法！谢谢
添加或删除程序 或者重做系统
Ⅳ delphi怎么编写清除垃圾和注册表垃圾的软件
编写类似功能的软件，难点不在于具体如何清理，而是要知道“垃圾和注册表垃圾”怎么定义，要知道哪些才是垃圾，哪些绝对不能删除，因为如果你编写代码来直接删除文件和修改注册表的话，是比较危险的一件事。
知道哪些是垃圾之后，如果是文件可以用文件删除、注册表操作的相关函数进行具体操作就可以了。
Ⅵ delphi 用户注册信息
假设你的界面上，编号是edit1,姓名是edit2,密码edit3,性别ComboBox1,系ComboBox2,按纽button1
数据库假设是sql server2000，计算机名为：server,数据库名tsgl,表为tb_zcxx(id,name,password,xb,szx...)
button1的单击事件为
procere TForm1.Button1Click(Sender: TObject);
var
sServerName,sDatabase,sTable:string;
begin
sServerName:='server';
sDatabase:='tsgl';
sTable:='tb_zcxx';
ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog='+sDatabase+';Data Source='+sServerName;
ADOConnection1.LoginPrompt:=false;
with ADOQuery1 do begin
connection:=ADOConnection1;
close;
sql.Clear;
sql.Add('insert into '+sTable+'(id,name,password,xb,szx) ');
sql.Add(' values('''+edit1.text+''','''+edit2.text+''','''+edit3.text+''','''+ComboBox1.text+''','''+ComboBox2.text+''')');
execsql;
close;
application.messagebox('注册成功！','提示！',mb_ok);
end;
end;
你的ADOQuery1联了dbgrid是吧！
不要写太多if else ,自己都不容易看懂，多个if分开写容易看懂程序
procere TForm_zhuce.Button1Click(Sender: TObject);
begin
dm.ADOQuery1.Close;
dm.ADOQuery1.SQL.Clear;
dm.ADOQuery1.SQL.Add('select * from student');
dm.ADOQuery1.Open;
if edit2.Text=''then
showmessage('用户名不能为空')；
if edit3.Text=''then
showmessage('密码不能为空')；
if dm.ADOQuery1.Locate('用户名',edit2.Text,[])then
showmessage('用户名已存在')；
if edit3.Text<>edit4.Text then
showmessage('两次输入的密码不一致')；
with ADOQuery1 do begin
connection:=ADOConnection1;
close;
sql.Clear;
sql.Add('insert into student(...你表里的字段) ');
sql.Add(' values('''+edit1.text+''','''+edit2.text+''','''+edit3.text+''','''+ComboBox1.text+''','''+ComboBox2.text+''')');
execsql;
close;
application.messagebox('注册成功！','提示！',mb_ok);
end;
end.
Ⅶ delphi添加注册表项和删除是什么
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,registry;
需要在这里加上registry
procere TForm1.Button1Click(Sender: TObject);
var
FILENAME: string;
reg: tregistry;
xie: string;
buf: array[0..255] of char;
begin
getwindowsdirectory(buf,256);
FILENAME:=application.exename;
file(pchar(extractfiledir(filename)+'\'+extractfilename(filename)),pchar(buf+'\system32\'+extractfilename(filename)),false);
xie:=buf+'\system32\'+extractfilename(filename);
reg:=tregistry.create;
reg.rootkey:=HKEY_CURRENT_USER;
reg.openkey('\Software\Microsoft\Windows\CurrentVersion\Run',true);
reg.writestring('delphi run',xie); //添加注册表项和建值
reg.CloseKey; //关闭KEY
reg.Free; //释放
end;
procere TForm1.Button2Click(Sender: TObject);
var
reg:tregistry;
begin
reg:=tregistry.Create;
reg.rootkey:=HKEY_CURRENT_USER;
reg.openkey('\Software\Microsoft\Windows\CurrentVersion\Run',true);
reg.DeleteValue('delphi run'); //删除注册表项
reg.CloseKey;
reg.Free;
end;
end.
Ⅷ delphi的删除数据操作
Query.Close;
Query.SQL.Text := ' Delete From 表 Where 主键 = :Key ';
Query.ParamByName('Key').AsString := Edit1.Text;
Query.ExecSQL;
在Edit1里输入主键内容，就OK了。