记事本文件(.txt)文件我通过打开方式选择(始终用IE打开这种类型的文件),以后双击打开.txt就都是IE打开了,我想知道用IE始终打开.txt文件写在注册表哪里呢?
解决方案 »
- 请问怎么实现XP下IE的那种带倒角的浮动按钮?
- 请教!!TQuery.Insert问题???
- 请教各位一个问题,Midas 结构中 通过BDE连接,哪些方面参数影响速度或 性能?
- 为什么我的Qreport总是只能显示一行数据100分
- 我要找一个dxcomnd6组件的D7控件下载,请问哪里有下啊,请给说明一个地址,谢谢!
- 如何只让edit框只能输入a拉伯数字和小数点,万分感谢
- 开始学delphi做聪明的程序员,先给大家散点分,祝大家新年快乐!请斑竹手下留情
- 进制问题狠是头痛!
- 怎么判断文本框中输入的不是数字?????
- 诸位兄弟,本人以前是用VB的,现在想学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');