[测试]看看博客园的代码显示功能如何

年过八十古来稀，今年九十大喘气

 

function TLogger.GetLogFileName: string;
begin
  // 如果在光盘运行，则选择临时目录存储，否则就存在 exe 目录下
  // Log文件名含有当前用户名，如 ALTRun.Administrator.log
  if GetDriveType(PChar(ExtractFileDrive(ParamStr(0)))) = DRIVE_CDROM then
    Result := Format('%s\%s.%s.log',
      [GetTempDir, StringReplace(ParamStr(0), ExtractFileExt(ParamStr(0)), '', [rfReplaceAll]),
      GetCurrentUserName])
  else
    Result := StringReplace(ParamStr(0), ExtractFileExt(ParamStr(0)),
      '.' + GetCurrentUserName + '.log', [rfReplaceAll])
end;
Technorati 标签: Delphi 测试 图片
posted @ 2011-07-12 12:06  ET民工[源自火星]  阅读(224)  评论(2)  编辑  收藏  举报