盒子论坛 v2.1

!实时搜索:	盒子论坛 \| 注册用户 \| 修改信息 \| 退出
	检举帖 \| 全文检索 \| 关闭广告 \| 捐赠

技术论坛

用户名

密码

自动登陆(30天有效)

≡技术区≡ ①

lazarus/fpc/Free Pascal

移动应用开发

Web应用开发

数据库专区

论坛精华贴

≡发布区≡ ②

≡事务区≡ ③

论坛信息

最新加入： jeff1314

今日帖子： 0

在线用户： 9

导航：

论坛 -> DELPHI技术斑竹:liumazi,sephil

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2003/4/20 15:12:53

标题：

首先如何先让我们的右键象WINRAR那样

浏览:3855

加入我的收藏

楼主：

首先如何先让我们的右键象WINRAR那样
出现在系统文件右键?
如何象WINRAR那样编写RarExt.dll中的内容，
可以拥有我们自己的文件右键菜单？当然同时
也要能执行我们要的效果！
----------------------------------------------

按此在新窗口浏览图片

按此在新窗口浏览图片

作者：

mantousoft (孜孜不倦的馒头)	★☆☆☆☆	-
	盒子活跃会员

2003/4/20 22:52:47

1楼：

我以前写的一个片段。
function AssocExeFile(Test,Op:Boolean; DispString:String):Boolean;
//test=true表示测试返回是否已经关联。
//Op表示是否关联（实际操作）
//DispString表示显示出来的字符。
//这个例子是关联.exe文件的。
var
  MyReg:TRegistry;
  ExeKey:String;
begin
  Result:=False;
  MyReg:=TRegistry.Create;
  with MyReg do
  begin
    try
      RootKey:=HKEY_CLASSES_ROOT;
      ExeKey:='\exefile\Shell\'+DispString;
      if Test then
      begin
        Result:=KeyExists(ExeKey);
      end else
      if Op then
      begin{Add}
        OpenKey(ExeKey+'\Command',True);
        WriteString(',Application.ExeName+' "%1"');
      end else
      begin{Delete}
        OpenKey(ExeKey,False);
        DeleteKey(ExeKey);
      end;
    finally
      Free;
    end;
  end;
end;
----------------------------------------------
看到帖子就想顶，原谅我是这么直了~

信息

登陆以后才能回复

Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有页面执行80.07813毫秒