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

[javad_rajabloo]

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

مدتی قبل من یه برنامه نوشتم که بانکش با 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('برنامه در حال اجرا مي باشد');