1、Delphi 打开目录和txt文件模块
2024-08-25 05:31:35
//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;
最新文章
- script在html中的摆放位置
- Linux-Big-Endian和Little-Endian转换
- idea启动tomcat失败,1099端口被占用
- 用R在字符串中提取匹配的部分
- java读取图片的(尺寸、拍摄日期、标记)等EXIF信息
- Linux下的Oracle 11gr2安装完成的的自启动操作。
- oracle数据库存储过程中NO_DATA_FOUND不起作用?
- Ajax中参数带有html格式的 传入后台保存【一】
- hdu_3067_小t的游戏(脑洞)
- Linux包管理工具分析
- .Net Core应用搭建的分布式邮件系统设计
- TCP三次握手和四次挥手
- 深入理解javascript函数进阶系列第三篇——函数节流和函数防抖
- Python Django CMDB项目实战之-3创建form表单,并在前端页面上展示
- 一起学Hive——创建内部表、外部表、分区表和分桶表及导入数据
- 对话框改变颜色 宽度沾满屏幕 Dialog
- python网络编程基础(线程与进程、并行与并发、同步与异步、阻塞与非阻塞、CPU密集型与IO密集型)
- Android 异步消息处理机制 让你深入理解 Looper、Handler、Message三者关系
- nginx 启动报错 “/var/run/nginx/nginx.pid"; failed” 解决方法
- CentOS 65 java 访问 MS SQL