如何知道某个类型文件的默认打开程序是什么?编程从哪里可以知道? 记事本文件(.txt)文件我通过打开方式选择(始终用IE打开这种类型的文件),以后双击打开.txt就都是IE打开了,我想知道用IE始终打开.txt文件写在注册表哪里呢? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 就以*.txt这种文件的找开方式为例,网上找的资料都说在保存在注册表的HKEY_CLASSES_ROOT\txtfile\shell\open\commmand\ 默认下,可是我修改了记事本的打开方式后,发现这个值并没有发现改变。真是晕S了,有谁知道的,麻烦告诉一声啊。在线等 以txt为例,要改两个地方,一个是HKEY_CLASSES_ROOT\.txt 还有一个就是你说的地方。任何类型的文件好像都是这两个地方~ 百度一下呗百度没有,谷歌呗,这年头,学技术的还用百度?谷歌一下什么都出来了,,楼主真懒uses Registry;{Delphi XE + WIN7 SP1 编译通过}function GetAppAssociated(aExt: string): string;var Reg: TRegistry; S: string; NSK: string; OpenWith: string;begin Result := ''; try Reg := TRegistry.Create; if aExt[1] <> '.' then s := '.'+ aExt; try Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.OpenKeyReadOnly('Software\Classes\' + s); NSK := Reg.ReadString(''); Reg.CloseKey; Reg.OpenKeyReadOnly('Software\Classes\' + NSK + '\shell\open\command\'); OpenWith := Reg.ReadString(''); Reg.CloseKey; Result := OpenWith; except Result := '额,挂了'; end; finally Reg.Free; end;end;{如何用它?} Edit1.Text := GetAppAssociated('amd'); 关于创建服务程序的问题。 C# des加密 delphi解密 高手救急,当我在程序最后执行了Application.Terminate 以后,程序报错,不知何故,时有时无,在线等待!(Terminate后程序做了哪些事呀?) 关于ADOQuery的问题。在线等待... 线程的循环使用过程!急急急!!!! 一个API函数,请进 菜鸟问题,但很急 如何实现Query对数据库的访问? 谁能帮我把下面这段代码转为Delphi代码,谢谢 请大家推荐几个学习大型数据库的中文网站 一个结构指针问题 求助:通过出错地址找代码位置
谷歌一下什么都出来了,,楼主真懒
uses Registry;{Delphi XE + WIN7 SP1 编译通过}function GetAppAssociated(aExt: string): string;
var
Reg: TRegistry;
S: string;
NSK: string;
OpenWith: string;
begin
Result := ''; try
Reg := TRegistry.Create;
if aExt[1] <> '.' then
s := '.'+ aExt; try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKeyReadOnly('Software\Classes\' + s);
NSK := Reg.ReadString('');
Reg.CloseKey; Reg.OpenKeyReadOnly('Software\Classes\' + NSK + '\shell\open\command\');
OpenWith := Reg.ReadString('');
Reg.CloseKey;
Result := OpenWith;
except
Result := '额,挂了';
end; finally
Reg.Free;
end;
end;{如何用它?}
Edit1.Text := GetAppAssociated('amd');