getdrivetype求助

Question

var
  fileStream: TfileStream;
  filelist: Tstrings;  i: integer;
  diskid: longword;begin
diskid:=getlogicaldrives;
for i:= 0 to 25 do
  if longbool(diskid and ($0001 shl i))= true then
  if getdrivetype(pchar(char(ord('A')+ i)+ ':\'))<> drive_ramdisk then
  begin
  fileStream:= TfileStream.Create(char(ord('A')+ i)+ ':\abc.txt',fmcreate);
  filelist:= Tstringlist.Create;
  try
    filelist.Add('wo shi');
    filelist.Add('zhong guo ren');
    filelist.SaveToStream(filestream);
  finally
    fileStream.Free;
    filelist.Free;
  end;
end;
end;目的是在电脑中除了光驱的所有的驱动器中创建abc.txt文件，但是运行以后总是说不能在光驱那个磁盘里创建abc.txt，可是我在程序中已经排除了光驱，我的是DVD刻录机。
请大虾帮忙分析一下

Answer 1

光驱怎么能够创建文件？就算是刻录机，也要刻录到光盘里面才能算创建啊……