Ⅰ 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了。