如何用delphi修改文件关联

来源：百度知道 编辑：UC知道 时间：2024/06/15 22:08:39
比如说我要用word打开*.txt文档，或者让*.avi无法打开如何做到

---- 在窗体中放置一个按钮，双击按钮写如下代码：

procedure TForm1.Button1Click(Sender: TObject);

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
<