ÏÂÃæµÄ¹ý³Ì²»»áÌáʾ²»ÈÏʶÊý¾Ý¿â,Ö»ÊÇ»áÌáʾÃÜÂë´íÎó,ÈκζÁÈ¡ÃÜÂëµÄÈí¼þ¶¼²»ÄܶÁ³öÕýÈ·µÄÃÜÂë

{-----------------------------------------------------------------------------
 Procedure: LockupFile
 Author:    ysai
 Date:      2003-6-25
 Arguments: FileName:string;Lock:boolean=true
 Result:    integer
-----------------------------------------------------------------------------}
function LockupFile(FileName:string;Lock:boolean=true):integer;
//¼ÓÃÜ¡¢½âÃÜÊý¾Ý¿â,Õë¶Ô Access 2000
var
 f:File;
 bf:array[0..63] of Byte;
 i:integer;
const
 fpos=64;
 flen=64;
 //ÏÂÃæ¸ÄΪ×Ô¼ºµÄÃÜÔ¿,ÎÒÊÇÓÃËæ»úÉú³ÉµÄ,Çë¸ÄΪ×Ô¼ºµÄÃÜÔ¿
 pw:array[0..63] of byte=
    ($97,$A0,$0C,$A1,$06,$59,$0A,$6D,
     $91,$33,$51,$57,$D4,$A3,$94,$16,
     $3D,$B2,$C7,$A0,$7C,$A3,$30,$EE,
     $34,$D6,$C1,$FF,$F7,$EC,$A5,$1F,
     $71,$2C,$19,$69,$E3,$25,$7D,$8B,
     $D3,$95,$AB,$C9,$02,$8A,$87,$44,
     $9F,$C7,$D7,$7D,$BA,$69,$56,$15,
     $FB,$CB,$03,$D6,$94,$A6,$BF,$F7);
begin
 result:=-1;
 if not FileExists(FileName) then exit;
 try
   AssignFile(f,Filename);
   Reset(f,1);
   Seek(f,fpos);
   BlockRead(f,bf,flen);
   //ÏÂÃæµÄ´úÂëÊÇÅжÏÊÇ·ñ±»¼ÓÃÜ,Äã¿ÉÒÔÓöþ½øÖƱ༭Æ÷´ò¿ªMDBÎļþ¶Ô±È,
   //ÎÒÊÇÓõÚ64,65×Ö½Ú×÷ΪÊÇ·ñ¼ÓÃܵıê¼Ç,δ¼ÓÃÜÓë°æ±¾Ïà¹Ø,¼ÓÃܺóÓë°æ±¾ºÍÃÜÔ¿Ïà¹Ø
   if lock and (bf[0]=$2B) and (bf[1]=$EE)
       or not lock and (bf[0]=$BC) and (bf[1]=$4E)
       or not ((bf[0]=$2B) and (bf[1]=$EE))
       and not ((bf[0]=$BC) and (bf[1]=$4E)) then
   begin
     result:=0;
     exit;
   end;
   for i:=0 to flen-1 do
     bf[i]:=bf[i] xor pw[i mod 64];
   Seek(f,fpos);
   BlockWrite(f,bf,flen);
   result:=1;
 finally
   CloseFile(f);
 end;
end;  

ÒÔADOΪÀý,°ÑADOConnection.ModeÉèΪcmShareExclusive¾Í¿ÉÒÔÒÔ¶ÀÕ¼·½Ê½´ò¿ªÊý¾Ý¿â,
ÈκγýÄã³ÌÐòÖ®ÍâµÄ³ÌÐò¶¼²»ÄÜ·ÃÎÊÊý¾Ý¿âÎļþ,¸´ÖÆÒ²²»ÐÐ,µ«ÊÇÓû§ÓÃÈÎÎñ¹ÜÀíÆ÷Ç¿ÐÐ
½áÊøÄãµÄ³ÌÐò¿ÉÒÔÈÃÄãû¼ÓÃܾÍÍ˳ö,Èç¹ûÒª¸ü°²È«,¾ÍҪдÁíÒ»¸ö³ÌÐòºÍÄãµÄÖ÷³ÌÐòÀ´»¥
Ïà¼àÊÓ,¼àÊÓ³ÌÐòÈç¹ûÄÜ·ÃÎÊÊý¾Ý¿âÔòÂíÉϸøËü¼ÓÃÜ.Ö÷³ÌÐòÒ²Òª±£Ö¤¼àÊÓ³ÌÐòµÄÔËÐÐ.

£¨³ö´¦£ºwww.delphibbs.com£©