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

查看整个相册

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 测试 图片