三度网教程:是一个免费提供流行视频软件教程、在线学习分享的学习平台!

Delphi如何完成文件关联

时间:2022-7-3作者:未知来源:三度网教程人气:


关联是Windows的一个显著特性。比如安装了office后,后缀是.doc的文
件会和word关联在一起。如果我们想自己创建关联关系,就必须从注册表入手。下
面的代码会把后缀是.me的文件和Notepad关联在一起,请参阅:

procedure TForm1.Button1Click(Sender: TObject);
var
  lphKey: HKEY;
  sKeyName: string;
  sKeyValue: string;
begin
  sKeyName := 'ReadMeFile';
  sKeyValue := '说明文档';
  RegCreateKey(HKEY_CLASSES_ROOT, pchar(sKeyName), lphKey);
  RegSetValue(lphKey, '', REG_SZ, pchar(sKeyValue), 0);
  sKeyName := '.me';
  sKeyValue := 'ReadMeFile';
  RegCreateKey(HKEY_CLASSES_ROOT, pchar(sKeyName), lphKey);
  RegSetValue(lphKey, '', REG_SZ, pchar(sKeyValue), 0);
  sKeyName := 'ReadMeFile';
  sKeyValue := 'c:\Win95\NotePad.exe %1'; { 注意路径 }
  RegCreateKey(HKEY_CLASSES_ROOT, pchar(sKeyName), lphKey);
  RegSetValue(lphKey, 'shell\open\command', REG_SZ,
  pchar(sKeyValue), MAX_PATH);
end;

关键词:  Delphi如何完成文件关联





Copyright © 2012-2018 三度网教程(http://www.3du8.cn) .All Rights Reserved 网站地图 友情链接

免责声明:本站资源均来自互联网收集 如有侵犯到您利益的地方请及时联系管理删除,敬请见谅!

QQ:1006262270   邮箱:kfyvi376850063@126.com   手机版