我按下BUTTON的时候,就跳出了一个CPU窗口!我从来没见过这东西!
我关了之后,显示错误信息是
'access violation at address 00000003.read of address 00BD4258'
我关了之后,显示错误信息是
'access violation at address 00000003.read of address 00BD4258'
解决方案 »
- 将olecontainer嵌入的Word文档,使word文档的工具栏不要占据整个窗体如何实现
- cxGrid排序后如何让FastReport同步
- 插入一条新纪录时,如何在程序里控制字段“ID”不能重复
- 各位达人 我发现TFONT如果指定8号以下的SIZE时候显示的还是8号的大小怎么显示更小的字体
- 如何共享access数据库(多用户同时访问Access)?
- 今日问题二
- 这可是经典的绝品资源的哟,想下载的可要快点哟
- 二进制流的问题!
- 一个很容易得分的问题,请进
- 用什么方法看懂国外的DELPHI网站,用什么翻译系统,推荐几种??
- 我做了一个NT SERVRES的应用程序,在本机上使用一切正常,在另一台机器上使用DCOMConnection连接,当设置属性connected为true时发现提示
- aaa: OLEVariant; 这里声明的是什么型的变量?有什么需要特别注意的?
var
reg:Tregistry;
i:integer;
temp:string;
begin
reg:=Tregistry.create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
for i:=0 to listbox1.Items.Count-1 do
begin
if listbox1.Selected[i] then
begin
temp:=listbox1.Items.Strings[i];
reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\',true);
reg.Deletekey(temp);
end;
end;
reg.CloseKey;
reg.Free;
end;
还有删除后listbox好像要重新刷新一下哦
procedure TForm1.Button1Click(Sender: TObject);var
reg:Tregistry;
temp:Tstrings;
i:integer;begin
reg:=Tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
if reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\',false) then
begin
Temp:=Tstringlist.Create;
reg.GetkeyNames(Temp);
for i:=0 to Temp.count-1 do
begin
listbox1.Items.Add(temp.Strings[i]);
end;
reg.CloseKey;
temp.free;
reg.Free;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
reg:Tregistry;
i:integer;
temp:string;
begin
reg:=Tregistry.create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
for i:=0 to listbox1.Items.Count-1 do
begin
if listbox1.Selected[i] then
begin
temp:=listbox1.Items.Strings[i];
reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\',true);
reg.Deletekey(temp);
end;end;
reg.CloseKey;
reg.Free;
end;end.
procedure TForm1.Button2Click(Sender: TObject);
var
reg: Tregistry;
i: integer;
temp: string;
begin
reg := Tregistry.create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\', true);
for i := 0 to listbox1.Items.Count - 1 do
begin
if listbox1.Selected[i] then
begin
temp := listbox1.Items.Strings[i];
showmessage('选中了记录'+temp);
if reg.Deletekey(temp) then
begin
showmessage('删除成功');
end
else
begin
showmessage('删除失败');
end;
end;
end;
reg.Free;
end;