Тест на дельфе

[sPan4eZ]

Народ помогите пожалуйста сделать Тест на дельфи в Понедельник засада

Надо сделать тест чтобы там было вход для Учителей которые могут просмотреть результаты тестирование Для Админов которые имеет полный доступ ко всему по программе и два для Учеников 1 из них просто обучение прохождение теста с подсказками 2 тестирование после тестирование надо выводить результат и сохранять в файл Вопросы тоже должны хранится в файле!!! Расширение файла ini должно быть !!!!

Пожалуйста умаляю прошу сжалуйтесь и спасите мой ЗАД от Студ. Вазелина

[sPan4eZ]

На провах Апа

[Stepler]

Могу зделать но не бесплатно, аська под автаром...

[ZBEP]

Могу залить прогу тестирования что мне в колледже сделать сказали, но там ток 2 режима, админ и тестирующий, вопросы и пасс админа - хранится в INI, пасс - зашифрован, вопросы пока нет.
Если надо могу залить куда нить бесплатно, для себя переделаешь.

П.с.
Можите посоветовать как можно доступ закрыть к ini во время работы проги?
Пробовал:

var 

  Form1: TForm1; 

  hIniLockedFile: Cardinal; 

  OfStruct      : _OfStruct; 

  

implementation 

 {$R *.dfm} 

procedure SaveCaption; 

var 

  IniFile: TIniFile; 

begin 

  {Отключаем защиту файла} 

  CloseHandle(hIniLockedFile); 

  {Резервное время для оключения} 

  Sleep(1000); 

  IniFile := TIniFile.Create(ExtractFilePath(Application.Exename) + 'Test.ini'); 

  IniFile.WriteString('MainOptions', 'FormCaption', Form1.Caption); 

  IniFile.Free; 

  {После сохранения, заново ставим защиту} 

  hIniLockedFile := OpenFile(PChar(ExtractFileDir(Application.Exename) + 'Test.ini'), OfStruct, OF_Share_Exclusive); {Вот тут ругается}

end;

Но делфя ругается..

[psycho-coder]

Открой файл через TFileStream и нужными привилегиями