Как удостовериться, что файл был постоянно сохранен на USB, когда пользователь не использует, “Безопасно Удаляют Аппаратные средства”?

Вот функция, которую я использовал для записи данных на USB-накопитель перед их программным извлечением. Это клонирует функциональность утилиты "Sync" Марка Руссиновича . У меня не было проблем с этим кодом, и он работал на многих системах в течение нескольких лет.

Наиболее важная часть этого кода - это вызов FlushFileBuffers .

function FlushToDisk(sDriveLetter: string): boolean;
var
  hDrive: THandle;
  S:      string;
  OSFlushed: boolean;
  bResult: boolean;
begin
  bResult := False;
  S := '\\.\' + sDriveLetter + ':';

  //NOTE: this may only work for the SYSTEM user  
  hDrive    := CreateFile(PAnsiChar(S), GENERIC_READ or
    GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil,
    OPEN_EXISTING, 0, 0);
  OSFlushed := FlushFileBuffers(hDrive);

  CloseHandle(hDrive);

  if OSFlushed then
  begin
    bResult := True;
  end;

  Result := bResult;
end;