如何在 Windows操作系统中改变文件打开方式

　　１、在Delphi3.0 IDE中，新建工程Project1，在Form1上添加按钮Button1。

　２、在uses子句中添加Registry。

　　３、双击Button1，编写Click事件代码。

procedure TForm1.Button1Click(Sender: TObject);

var

MyRegistry : TRegINIFile;

Return:string;

begin

try

MyRegistry := TRegINIFile.Create('');

MyRegistry.RootKey := HKEY_CLASSES_ROOT;

Return:=MyRegistry.ReadString ('.gid','','No! Not Found the Key!');

MyRegistry.WriteString(Return,'','这只是一个演示！');

MyRegistry.WriteString(Return+'\DefaultIcon','','c:\visio.exe,1');

MyRegistry.WriteString(Return+'\shell\open\command','','c:\visio.exe %1');

finally

MyRegistry.Free;

end;

ShowMessage('改变文件打开方式成功！');

end;

　　４、按F9运行程序，在简体中文Windows95／NT／98、Delphi3.0／4.0环境中调试通过。

作者通信地址：（230031）安徽省合肥市炮兵学院研究生系 张建军（收）

联系电话： （0551）5560324 （张建军 宿舍）

（0551）5562566 转 68750、68210（研究生系值班室）

Email： davidhy@263.net

一九九九年七月七日