=) Эт я ошибся.. Но не из-за этого трабл.. всё равно не хочет копироваться..
Другие версии будут?)
В этом куске кода кроме той ошибки, я не нашел. Так что проверяй:
get(CSIDL_APPDATA) - Вот это от куда и что дает?
tmp:=SRC.Strings[6]; - что тут получается.
В общем делай трассировку кода или проверки (MessageBox). Вот кусок добавил если скажет, что файла нет, значит где то в получении пути дело.
PHP код:
...
fullPath:=get(CSIDL_APPDATA)+tmppath+tmp3+'\'+tmp+ '\'+key3;
if not FileExists(fullPath) then
MessageBox(0,PAnsiChar('Путь до файла не существует:' +#13#10+fullPath),'Not File',0);
CopyFile(PAnsiChar(fullPath),PAnsiChar('C:\key3.db'),false);