n,“请注意” End If OSRegCloseKey
(hKey) End
Sub 6、按F5运行程序，在简体中文Windows95／NT／98、VB5.0／6.0环境中调试通过。 ㈡利用Delphi编程 1、在Delphi3.0
IDE中，新建工程Project1，在Form1上添加按钮Button1。 2、在uses子句中添加Registry。 3、双击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; 4、按F9运行程序，在简体中文Windows95／NT／98、Delphi3.0／4.0环境中调试通过。
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
