1.用你的程序替换winamp.exe
2.修改注册表HKEY_CLASS_ROOT下面mp3files下面的command的路径 就行了
2.修改注册表HKEY_CLASS_ROOT下面mp3files下面的command的路径 就行了
解决方案 »
- VB下载地址,要的就抓紧时间
- 如何将Unicode转换为中文
- 【问】VB中如何调用网页上图片对象右键的“复制”菜单?
- 有个问题大家讨论一下,关于在代码窗口中的鼠标滑轮的~~
- 怎么用VB作一个Active dll,并且如何设置使得新的DLL覆盖原来的DLL而不需要重新编译程序
- 如何获得系统当前登陆的用户名??
- Visual Basic 6.0 与 win7 兼容
- 一个关于网卡物理地址的问题?
- ※※※点击ListView(样式为lvwReport),如何知道SubItem的位置,能否做出向Excell或报表空间的效果(解决给200分)※※※
- 如何通过获得的图像句柄显示图像?
- 任务栏图标问题
- ado小问题
哦,大概类似于插件吧。
修改打开程序的话的确是可以的,但是我要求是不破坏原来的文件关联
我需要的仅仅是程序关联的
是有点象病毒,实际上我要做的是一个程序关联的加密因为爸妈经常偷看我的某些东西汗
网上有很多相关的资料可以参考
不过文章后的ss=command()返回文件名要注意啊!如c:\11.mp3
但在command()返回的是"c:\11.mp3",多了双引号啊
应该ss=left(right(command(),len(command())-1),1)
var
lphKey: HKEY;
sKeyName: string;
sKeyValue: string;
begin
sKeyName := ′myfile′;
sKeyValue := ′我的文档′;
RegCreateKey(HKEY—CLASSES—ROOT,
pchar(sKeyName), lphKey);
RegSetValue(lphKey, ′′, REG—SZ,
pchar(sKeyValue), 0);
sKeyName := ′.xyz′;
sKeyValue := ′myfile′;
RegCreateKey(HKEY—CLASSES—ROOT,
pchar(sKeyName), lphKey);
RegSetValue(lphKey, ′′, REG—SZ,
pchar(sKeyValue), 0);
sKeyName := ′myfile′;
sKeyValue := ′c:\Windows\NotePad.exe %1′;
RegCreateKey(HKEY—CLASSES—ROOT,
pchar(sKeyName), lphKey);
RegSetValue(lphKey, ′shell\open\command′, REG—SZ,
pchar(sKeyValue), MAX—PATH);
end; ---- 建立一新文件,使其扩展名为.xyz,然后双击它看是否是启动记事簿来打开的