1、Delphi 打开目录和txt文件模块
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 | //1、打开目录和打开txt文件 procedure TMainForm . bbtnOpenLoClick(Sender: TObject); var sLogName: string ; begin sLogName := Pub_EXEPath + '\日志\' + FormatDateTime(' yyyy-mm-dd ',date())+' .txt'; if not FileExists(sLogName) then begin MessageBox( 0 , '今日无错误日志!' , '提示' , MB_OK + MB_ICONINFORMATION); Exit; end ; try OpenLog(sLogName); except on E : Exception do begin LogInfo( '打开日志文件出错,原因:' + E . Message, True ); MessageBox( 0 , '打开日志文件出错,请重试!' , '错误' , MB_OK + MB_ICONERROR); end ; end ; end ; procedure TMainForm . bbtnOpenLogFolderClick(Sender: TObject); var sDirName: string ; begin sDirName := Pub_EXEPath + '\日志' ; if not DirectoryExists(sDirName) then CreateDir(sDirName); try OpenLogDirectory(sDirName); except on E : Exception do begin LogInfo( '打开日志目录出错,原因:' + E . Message, True ); MessageBox( 0 , '打开日志目录出错,请重试!' , '错误' , MB_OK + MB_ICONERROR); end ; end ; end ; ------- procedure TMainForm . OpenLogDirectory(DirName: string ); begin ShellExecute(Handle, 'Open' , PChar (DirName), nil , nil , 1 ); end ; procedure TMainForm . OpenLog(FileName: string ); begin ShellExecute(Handle, 'Open' , PChar ( 'NotePad' ), PChar (FileName), nil , SW_SHOW); end ; |
分类:
D 总结或误解澄清
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 浏览器原生「磁吸」效果!Anchor Positioning 锚点定位神器解析
· 没有源码,如何修改代码逻辑?
· 一个奇形怪状的面试题:Bean中的CHM要不要加volatile?
· [.NET]调用本地 Deepseek 模型
· 一个费力不讨好的项目,让我损失了近一半的绩效!
· 微软正式发布.NET 10 Preview 1:开启下一代开发框架新篇章
· 没有源码,如何修改代码逻辑?
· PowerShell开发游戏 · 打蜜蜂
· 在鹅厂做java开发是什么体验
· WPF到Web的无缝过渡:英雄联盟客户端的OpenSilver迁移实战