в BCB6 действительно нет flock зато есть lock и unlock,
кроме того есть VCL-ные приемы работы с файлами FileOpen, FileClose,FileRead,FileWrite
в FileOpen есть mode fmShareExclusive = 0x10;
Пробую сделать блокировку через lock так:
void __fastcall TForm1::b0Click(TObject *Sender)
{
FILE * f1=fopen(fln,"w");
int nf=_fileno(f1);
lock(nf,0L,1000);
for(int i=0;i<20;i++) {
fprintf(f1,"%i ",i);
Application->ProcessMessages();
Sleep(500);
}
unlock(nf,0L,1000);
fclose (f1);
L1->Caption="Запись закончена";
}
данная функция доходит до конца
но когда запускается 2-й процесс (доступен запуск по кнопке в силу Application->ProcessMessages()
эта же функция
не доходит до конца и подвисает!!!