如何用delphi修改文件关联

Posted 2023-03-24

比如说我要用word打开*.txt文档，或者让*.avi无法打开如何做到

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

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

pchar(sKeyValue)

MAX—PATH);

end;

---- 建立一新文件，使其扩展名为.xyz，然后双击它看是否是启动记事簿来打开的。