给你一个例子,你改一下就可以了。
下面的代码会把后缀是.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界面,其基本功能如下图所示点击New->Application
既可以创建一个新的工程,其界面如下图所示
将控件区的按钮拖入到窗体中,本例中我们拖入了一个Button按钮
在左边的窗体中修改按钮属性
单击按钮,进去代码编辑区,添加按钮事件
运行该程序,即生成了一个delphi程序
Delphi是一种强大的编程语言,它可以用来编写Windows应用程序。Delphi可以根据文件后缀名调用程序来打开文件,这样可以节省用户的时间和精力。Delphi可以根据文件后缀名自动调用相应的程序来打开文件,这样可以节省用户的时间和精力。Delphi可以根据文件后缀名自动调用相应的程序,从而节省用户的时间和精力。Delphi可以根据文件后缀名自动调用相应的程序,从而节省用户的时间和精力。Delphi可以根据文件后缀名自动调用相应的程序,从而节省用户的时间和精力。Delphi可以根据文件后缀名自动调用相应的程序,从而节省用户的时间和精力。Delphi可以根据文件后缀名自动调用相应的程序,从而节省用户的时间和精力。Delphi可以根据文件后缀名自动调用相应的程序,从而节省用户的时间和精力。Delphi可以根据文件后缀名自动调用相应的程序,从而节省用户的时间和精力。Delphi可以根据文件后缀名自动调用相应的程序,从而节省用户的时间和精力。Delphi可以根据文件后缀名自动调用相应的程序,从而节省用户的时间和精力。Delphi可以根据文件后缀名自动调用相应的程序,从而节省用户的时间和精力。Delphi可以根据文件后缀名调用程序来打开文件,这样可以让用户更加方便快捷地打开文件,而不用自己去手动查找相应的程序来打开文件。Delphi可以根据文件后缀名调用程序来打开文件,这样可以节省用户的时间和精力,让用户更加方便快捷地打开文件。欢迎分享,转载请注明来源:内存溢出
评论列表(0条)