请问如何把自己的程序加到浏览器上边的标准按钮里?就像金山词霸和FlashGet那样? 请给个例子或告知网上哪里有源代码或书下载也行。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 就是编辑一下注册表http://www.cfan.net.cn/netschool/wy/20020227/02271233.htm 例 :在注册表中加一值!uses Registry;procedure TfrmXTCS.BitBtn1Click(Sender: TObject);const _Path = 'Software\soft'; //自己声明的一个键值var reg : TRegistry;begin reg := TRegistry.Create; try reg.RootKey := HKEY_CURRENT_USER;//设定根结点 if reg.KeyExists(_Path) then //如果存在此子键 begin if reg.OpenKey(_Path,False) then reg.WriteString('Print',edtWZ.Text);//写入值 end; finally reg.CloseKey; reg.Free; end;end; 大哥帮忙~~如何掉用我在存储过程中的表~~~在线等 使用adoquery把image中的图片保存到sql2000中的? 跳槽到上海,重拾DELPHI, 吐血再贴!!!!! 怎样才能知道一段程序所化的时间 ?? 怎样获得数据库中所指向的记录是第几条,并可以任意获得第n条记录 dephli的小问题? Delphi 中有类似VB中的Split函数吗 如何在DELPHI中加超文本联接。 我还是没找到,再问请问如何用注册表来禁止在打开对话框中的右键功能项中的格式化、删除、剪切功能。 [简单问题]关于定义触发事件的问题 *******鱼和熊掌能否兼得,三层结构如何保持数据同步,并且又保持好的效率
http://www.cfan.net.cn/netschool/wy/20020227/02271233.htm
procedure TfrmXTCS.BitBtn1Click(Sender: TObject);
const
_Path = 'Software\soft'; //自己声明的一个键值
var
reg : TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey := HKEY_CURRENT_USER;//设定根结点
if reg.KeyExists(_Path) then //如果存在此子键
begin
if reg.OpenKey(_Path,False) then
reg.WriteString('Print',edtWZ.Text);//写入值
end;
finally
reg.CloseKey;
reg.Free;
end;
end;