[Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

16.05.2010, 09:40

JnK

Участник форума

Регистрация: 30.03.2007

Сообщений: 121

Провел на форуме:
188563

Репутация: 52

Цитата:

Сообщение от iGlass

=) Эт я ошибся.. Но не из-за этого трабл.. всё равно не хочет копироваться..
Другие версии будут?)

В этом куске кода кроме той ошибки, я не нашел. Так что проверяй:
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);