请问在Delphi里面怎么在指定目录下动态的生成一个任意扩展名的文件？

Question

请问在Delphi里面怎么在指定目录下动态的生成一个任意扩展名的文件？  
比如我想在同一目录下的另外一个同级文件夹下生成一个wenjian.asa文件  
而且内容是从数据库里面读出来的  
如果存在文件  
选择覆盖；  
不存在文件  
直接创建。  
谁能够给一个这样的例子  
谢谢！

Answer 1

一个例子,可以参考一下{* PlayWav( )--->过程函数从.dll资源中取声音文件*}
{* 适用范围：媒体播放}
procedure PlayWav(ResDllHandle: THandle; AWavFileName: string);
var
  H, No: THandle;
  P: pointer;
  MyFStream: TFileStream;
begin
  Application.ProcessMessages;
  H := FindResource(ResDllHandle, Pchar(UpperCase(AWavFileName)), 'WAV');
  No := SizeofResource(ResDllHandle, H);
  H := LoadResource(ResDllHandle, H);
  P := LockResource(H);
  if FileExists(GetWinTempDir + 'GOLDSHIELD.TMP') then
    DeleteFile(Pchar(GetWinTempDir + 'GOLDSHIELD.TMP'));
  MyFStream := TFileStream.Create(GetWinTempDir + 'GOLDSHIELD.TMP', fmCreate);
  MyFStream.WriteBuffer(P^, No);
  MYFStream.Free;
  SndPlaySound(PChar(GetWinTempDir + 'GOLDSHIELD.TMP'), SND_ASYNC);  UnLockResource(H);
  FreeResource(H);
{
  var
    ResSt : TResourceStream;
  begin
    Application.ProcessMessages;
    if ResDLL=0 then
      exit;
    ResSt := TResourceStream.Create(ResDLL, Pchar(UpperCase(AWavFileName)), Pchar('WAV'));
    sndPlaySound(ResSt.Memory, SND_MEMORY or SND_SYNC);
    ResSt.free;
  end;
}
end;