یک تجربه در مورد نرم افزارهایی که با بانک اطلاعات کار می کنند(مخصوصا access)

سلام به دوستان

مدتی قبل من یه برنامه نوشتم که بانکش با access بود

بعد از یک مدتی ، دیتاهاش به مشکل برخورد می کرد ، اطلاعاتش مشکل دار ذخیره میشد و در آخر بانکش خراب شد .

یکی از مواردی که من دیدم کاربرش انجام میداد این بود که نرم افزار رو دو بار اجرا می کرد ، یه بار با اولی کار می کرد ، یه بار با دومی !

آخرش من یک کد توی برنامه اضافهکردم که دیگه این کار رو نکنه !

این کد رو در قسمت PROJECT بذارید ، حله

var
hm : THandle;
begin
hm:=Createmutex(Nil,False,'OneCopyMutex');

If WaitForSingleObject(hm,0)<>Wait_TimeOut Then
begin
Application.Initialize;
Application.Title := 'PROJECT';
Application.CreateForm(TForm1, Form1);

Application.Run;
End

else
showmessage('برنامه در حال اجرا مي باشد');