Спасатель дисков. Необычное ускорение и лечение дисков

Global gFileIO.OVERLAPPED\hEvent = CreateEvent_(0, 0, 0, 0)
 
 
Procedure FileRead(FileID, *Buffer, Len, TimeOut=-1) ; Чтение данных из файла
  Protected ReadBytes.l=0
  
  If FileID=0 Or *Buffer=0 Or Len<=0
    ProcedureReturn 0
  EndIf
  
  ResetEvent_(gFileIO\hEvent)
  
  If ReadFile_(FileID, *Buffer, Len, @ReadBytes, gFileIO) = 0 And GetLastError_() = #ERROR_IO_PENDING
    
    If TimeOut>=0
      
      If WaitForSingleObject_(gFileIO\hEvent, TimeOut)<>#WAIT_OBJECT_0
        CancelIo_(FileID)
        ProcedureReturn -1
      EndIf
      
    EndIf
    
    If GetOverlappedResult_(FileID, gFileIO, @ReadBytes, #True) = 0
      CancelIo_(FileID)
      ReadBytes = 0
    EndIf
  Else
    CancelIo_(FileID)
    ReadBytes = 0
  EndIf
  
  
  ProcedureReturn ReadBytes
EndProcedure
 
Procedure FileWrite(FileID, *Buffer, Len, TimeOut=-1) ; Запись данных в файл
  Protected Written.l=0
  
  If FileID=0 Or *Buffer=0 Or Len<=0
    ProcedureReturn 0
  EndIf
  
  
  ResetEvent_(gFileIO\hEvent)
  
  If WriteFile_(FileID, *Buffer, Len, @Written, gFileIO) = 0 And GetLastError_() = #ERROR_IO_PENDING
    
    If TimeOut>=0
      
      If WaitForSingleObject_(gFileIO\hEvent, TimeOut)<>#WAIT_OBJECT_0
        CancelIo_(FileID)
        ProcedureReturn -1
      EndIf
      
    EndIf
    
    If GetOverlappedResult_(FileID, gFileIO, @Written, #True) = 0
      CancelIo_(FileID)
      Written = 0
    EndIf
  Else
    CancelIo_(FileID)
    Written = 0
  EndIf
  
  ProcedureReturn Written
EndProcedure
 
 
 
 
String.s{255} = "Test Test Test"
 
 
hFile=CreateFile_("D:\Test.txt", #GENERIC_READ|#GENERIC_WRITE, 0,  ; Создание файла
                  0, #CREATE_ALWAYS, #FILE_FLAG_OVERLAPPED, 0)
 
If hFile <> #INVALID_HANDLE_VALUE
  
  If FileWrite(hFile, @String, StringByteLength(String), 200) > 0  ; Запись с таймаутом 200 мс.
    
    SetFilePointer_(hFile, 0, 0, #FILE_BEGIN) ; Позиция на начало файла.
    
    String = ""
      
    If FileRead(hFile, @String, 255, 200) > 0 ; Чтение с таймаутом 200 мс.
      MessageRequester("", "Из файла прочитано "+#CRLF$+String)
    Else
      MessageRequester("", "Ошибка при чтении из файла")
    EndIf
    
  Else
    MessageRequester("", "Ошибка при записи в файл")
  EndIf
  
  CloseHandle_(hFile) ; Закрытие файла.
  
  DeleteFile("D:\Test.txt") ; Удаление файла.
  
Else
  Debug GetLastError_()
  MessageRequester("", "Не удалось создать файл")
EndIf