Не копируется MDB файл через CopyFile

[artemavd]

Доброе утро! Сабж. Просто тупо не копируется файл.
Код:

 CopyFile(PAnsiChar(ExtractFilePath(Application.ExeName) + 'base.mdb'),
             PAnsiChar(Form1.RzStatusPane36.Caption),True);

MS Access 2007 + Delphi 7

[MaxNik2009]

а так:

 CopyFile(PAnsiChar(ExtractFilePath(Application.ExeName) + '\base.mdb'),
             PAnsiChar(Form1.RzStatusPane36.Caption),True);

[_Engine_]

Вообще, CopyFile - это функция.
И что говорит GetLastError?

[Utkin]

Возможно файл занят (например, тем же Access).

[SERG1980]

Всё копируется. Попробуйте так

CopyFile(PChar(ExtractFilePath(Application.ExeName)+'TestDB.mdb'),'d:\qqq.mdb',false);

или так

if not CopyFile(PChar(ExtractFilePath(Application.ExeName)+'TestDB.mdb'),'d:\qqq.mdb',false) then
 ShowMessage(IntToStr(GetLastError));