同一文件同时打开多个文件流出错：（

Question

F1:= TFileStream.Create('c:\t.zip',fmCreate or fmShareDenyNone)；
F2:= TFileStream.Create('c:\t.zip',fmCreate or fmShareDenyNone)；
第二个是就报不能建立文件，这么用不对吗？因为我要多线程并发写入一个文件，所以要对同一文件同时写入，还有别的方法吗？

Answer 1

异步I\O或互斥写异步I\O: 只能用CreateFile,WriteFile,CloseHandle三个API,查下MSDN
互斥写: 用CreateMutex创建一个互斥变量

Answer 2

一个互斥写的例子:
function WriteLog: boolean;
var
  hMutex: HANDLE;
begin
  hMutex:=CreateMutex(nil,false,'WriteLog');
  if hMutex=nil then
    return false;
  if WAIT_OBJECT_0=WaitForSingleObject(hMutex,INFINITE) then
  begin
    //写日志...
    return true;
  end
  else
    return false;
end;

Answer 3

糟,漏了关键
写完日志后,return前要ReleaseMutex(hMutex);