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;

  

posted @   海蓝7  阅读(486)  评论(0编辑  收藏  举报
编辑推荐:
· 浏览器原生「磁吸」效果!Anchor Positioning 锚点定位神器解析
· 没有源码,如何修改代码逻辑?
· 一个奇形怪状的面试题:Bean中的CHM要不要加volatile?
· [.NET]调用本地 Deepseek 模型
· 一个费力不讨好的项目,让我损失了近一半的绩效!
阅读排行:
· 微软正式发布.NET 10 Preview 1:开启下一代开发框架新篇章
· 没有源码,如何修改代码逻辑?
· PowerShell开发游戏 · 打蜜蜂
· 在鹅厂做java开发是什么体验
· WPF到Web的无缝过渡:英雄联盟客户端的OpenSilver迁移实战
点击右上角即可分享
微信分享提示