15.05.2010, 20:37
|
|
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
С нами:
10060964
Репутация:
52
|
|
Сообщение от iGlass
Всем доброго времени суток! Не подскажите в чём трабл?
Код:
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 раз проверил.. Но так и не понял почему ошибка возникает.. Другие файлы копируются нормально.. Антивирусов нет..
Подскажите в чём трабл.. Может:
CopyFile(PChar(fullPath),PChar('C:\key3.db'),false );
т.к. я не вижу Full, но есть fullPathю
|
|
|