Delphi 创建目录及写日志文件

 procedure TfrmStartSendMsg.WriteLog(txt:String);
var
  TF: TextFile;
  LogFile: string;
  sysDir:string;
begin

   sysDir:=extractfilepath(application.ExeName );

   if not directoryexists(exeDir+'log/') then
      createdir(exeDir+'log/');
   logfile:=exeDir+'log/'+formatdatetime('yyyymmdd',now)+'.log';

   AssignFile(tf,logfile);
   if fileexists(logfile) then
     append(tf)
   else
     rewrite(tf);

   writeln(tf,txt);
   closefile(tf);

end;