15.05.2010, 19:51
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
Провел на форуме:
299447
Репутация:
5
|
|
Всем доброго времени суток! Не подскажите в чём трабл?
Код:
procedure TForm1.Button1Click(Sender: TObject);
var tmp,tmp3:String;
begin
tmp3:='Profiles';
SRC:=TStringList.Create();
SRC.LoadFromFile(get(CSIDL_APPDATA)+'profiles.ini');
tmp:=SRC.Strings[6];
Delete(tmp,1,14);
fullPath:=get(CSIDL_APPDATA)+tmppath+tmp3+'\'+tmp+'\'+key3;
CopyFile(PChar(Full),PChar('C:\key3.db'),false);
end;
В переменную Full записывается полный путь до файла key3.db в папке с FireFox При попытке копировать его возникает ошибка.. Системе не удаётся найти указанный файл
Всё на 100 раз проверил.. Но так и не понял почему ошибка возникает.. Другие файлы копируются нормально.. Антивирусов нет..
Подскажите в чём трабл..
Последний раз редактировалось iGlass; 15.05.2010 в 19:53..
|
|
|