xregistry.txt

我自己用的Delphi函数单元 具体说明见打包文件的HELP目录下面

unit xRegistry;


//取得某扩展名的文件类型描述，文件类型MIME及用来打开此文件的执行文件路径。
//FileExt: 扩展名 FileDesc: 文件类型描述 MIMEType: 文件类型MIME
//例如：GetAssociatedExecutable('.BMP',FileDesc,MIMEType);
//返回：'e:\winnt\mspaint.exe' 画图

function GetAssociatedExecutable(FileExt: string; var FileDesc, MIMEType: string): string;

//取得某扩展名的文件类型描述，文件类型MIME及用来打开此文件的执行文件路径。
//FileExt: 扩展名 FileDesc: 文件类型描述 MIMEType: 文件类型MIME
// FileType, FileDesc, MIMEType可选

//例如：
//GetAssociatedExecutable('.BMP',FileDesc,MIMEType);
//'e:\winnt\mspaint.exe' 画图
//SetAssociatedExecutable('.BMP',FileDesc,MIMEType,'c:\acdsee32.exe');
//GetAssociatedExecutable('.BMP',FileDesc,MIMEType);
//'c:\acdsee32.exe'

function SetAssociatedExecutable(FileExt, Filetype, FileDesc, MIMEType, ExecutablePath: string): Boolean;

//简单读取注册表一个键值。
function ReadKeyDefaultValue(REG: TRegistry; const sKey: string): string;

//简单写入注册表一个键值。
procedure WriteKeyDefaultValue(REG: TRegistry; const sKey, sValue: string);