Странное поведение WriteFile / WriteFileEx (асинхронный I/O)

[besserebrenik]

Столкнулся со странным поведением функций вин апи WriteFile / WriteFileEx. При первом их вызове, поток останавливается и ждет их завершения (при этом запись в файл происходит нормально). При повторном вызове ее с такими же параметрами работает уже нормально - поток работает дальше.

PHP код:

const 
FLOPP_S= 1024 * 1024 * 15;  // длинна буфера 
var
  arr:array[1..FLOPP_S] of byte; 

procedure EndWrite(dwErrorCode:DWORD; dwNumberOfBytesTransfered:DWORD; lpOverlapped:POverlapped);stdcall;
begin
 ShowMessage('Записано байт: '+IntToStr(dwNumberOfBytesTransfered));
end;

procedure TForm1.Button4Click(Sender: TObject);
var
  FileHandle,DestFileHandle:THandle;
  Overlap: TOverlapped;
  res:BOOL;
  _WRITED,i,LastError:DWORD;
begin
  FillChar(Overlap,SizeOf(Overlap),0);
  for i:=1 to trunc(FLOPP_S/100) do
   arr[i*100]:=ord('Q');
  FileHandle:=CreateFile('K:\file.dat',GENERIC_WRITE,0,0,OPEN_EXISTING,FILE_FLAG_OVERLAPPED,0);
  if FileHandle=INVALID_HANDLE_VALUE then
   begin
    ShowMessage('не прет');
    exit;
   end;
  Overlap.hEvent:=CreateEvent(0,True,False,0);

  res:=WriteFileEx(FileHandle,@arr,FLOPP_S,Overlap,@EndWrite);
  LastError := GetLastError;
  ShowMessage('ЗАпись началась');
  while WaitForSingleObjectEx(Overlap.hEvent,1000,True)=WAIT_TIMEOUT do
   Application.ProcessMessages ;

  GetOverlappedResult(FileHandle,Overlap,_WRITED,FALSE);
  CloseHandle(Overlap.hEvent);
  CloseHandle(FileHandle);
end; 


Пример взял из этой интересной статьи.. http://pblog.ru/?p=74