[MichelH]

Hola que tal espero se encuentren bien.

Pues andube buscando informacion al respecto y sip habia un hilo exactamente con mi misma pregunta pero lo que respondieron fue que revisaran el ejemplo que hizo Neftali en su sitio de ClubDelphi...
Pero no se si sea solo yo o que pasa con la paginas de los compañeros y el Wiki, que desde hace tiempo ya no se puede entrar.
Entonces aqui sigo solicitando ayuda sobre el tema, espero me puedan ayudar q ver como bloquear y desbloquear archivos. gracias.

Lo estoy utilizando para bloquear un archivo INI donde tengo un contador, y para evitar que se duplique numeros de solicitud, pues bloqueo mientras lo manipulo, pero me sale un error a la hora de utilizar el INI para obtener el consecutivo y para grabar el nuevo numero:

Código Delphi [-]
vFileCount  := ExtractFileDir( Application.ExeName )+'\COUNTPRE.INI';
     vFileHandle := CreateFile(PChar(vFileCount), GENERIC_READ, 0, {exclusive} nil, {security} OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
     vFileSize   := GetFileSize(vFileHandle,nil);
     while LockFile(vFileHandle,0,0,vFileSize,0) = False do;
     vIni := TIniFile.Create( vFileCount );
     try
        vCveSoli := StrZero( vIni.ReadInteger( 'Prestamo', 'CVESOLI'  , 0 ), 6 );
        vIni.WriteInteger( 'Prestamo', 'CVESOLI', StrToInt( vCveSoli ) + 1 );
        vIni.UpdateFile;
     finally
        vIni.Free;
     end;
     UnlockFile(vFileHandle,0,0,vFileSize,0);
     CloseHandle(vFileHandle);