win10文件粉碎机 delphi怎么点击按钮就可以打开指定路径里的文件？

delphi怎么点击按钮就可以打开指定路径里的文件？

Unit1接口窗口、消息、系统工具、变体、类、图形、控件、窗体、对话、stdctrls、文件控制，shellapi//请注意，shellexecute需要引用shellapi单元类型TForm1=class（tform）filelistbox1:tfilelistbox button1:tbutton procedure button1click（sender:tobject）procedure FileListBox1Click（sender:tobject）private{private declarations}public{public declarations}endvar Form1:TForm1实现{$R*.dfm}过程TForm1.button1单击（发送方：TObject）开始self.FileListBox1文件. Directory:=“C:1”//设置文件列表endprocedure TForm1的路径。Filelistbox1click（发件人：ToObject）begin ShellExecute（应用程序。句柄，“打开”，pchar（self.FileListBox1文件.FileName），nil，nil，SW Show normal）//调用外部程序打开相应的文件endend。//使用win3.1面板下的filelistbox控件

win10文件粉碎机 delphi删除文件夹 delphi写文件

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。