if not DirectoryExists('C:\Tmp') then
  if not CreateDir('C:\Tmp') then
   raise
    Exception.Create('Opps, Create New Dir Failed！');

WINEXEC(PCHAR('CMD /C DEL /Q/F C:\tmp\*.*'), SW_HIDE);
Sleep(1000);

 //創(chuàng)建一個(gè)文本文件
procedure CreateTextFile();
var
 TF: TextFile; 6 begin 8  AssignFile(TF,'C:\tmp\1.txt');
 ReWrite(TF);
 CloseFile(TF);
end;

//向文本文件中追加內(nèi)容
Procedure AppendText(str: String);
var 
 TF: TextFile; 
begin 
 assignfile(TF,'C:\tmp\1.txt'); 
 rewrite(TF); 
 append(TF);//TMP中如不存在1.TXT這個(gè)文件，會(huì)自動(dòng)創(chuàng)建
 writeln(TF, str);
 closefile(TF); 
end;