Не работает функция CopyFile в Delphi - Помощь студентам

Marglanka · 16.04.2010, 13:14

Доброго времени суток!
Столкнулась с такой проблемой, что программа не копирует файл. Привожу часть кода:
CopyFile(PChar(filelistbox1.filenam e), PChar('..\pic\'+inttostr(a2.code)+' .jpg'), true);
Заранее всем спасибо!

Grag · 16.04.2010, 13:50

Вот это
PChar('..\pic\'+inttostr(a2.code)+' .jpg')
что есть такое???

Вот кусок моей рабочей программы:

Код:

  if not FileExists(WinPathSysDll+'midas.dll') then
    if FileExists(ExeDir+'midas.dll')
      //копирую midas.dll в системную папку windows
      then CopyFile(PChar(ExeDir+'midas.dll'),
                                         PChar(WinPathSysDll+'midas.dll'),true)
      else  //отсутствует исходный midas.dll...
        begin
          MessageBox(0,'Не найден файл "midas.dll"'+LF+
                             'Программа будет остановлена' ,'Внимание!',MB_OK);
          Application.Terminate
        end;

Marglanka · 16.04.2010, 14:11

ну, может быть я неправильно написала, но я хотела, чтобы файл копировался в папку pic в папке с программой. А имя файла задается из типизированного файла

16.04.2010, 13:14	#1
Marglanka Новичок Джуниор Регистрация: 16.04.2010 Сообщений: 2	Не работает функция CopyFile в Delphi Доброго времени суток! Столкнулась с такой проблемой, что программа не копирует файл. Привожу часть кода: CopyFile(PChar(filelistbox1.filenam e), PChar('..\pic\'+inttostr(a2.code)+' .jpg'), true); Заранее всем спасибо!

16.04.2010, 13:50	#2
Grag А может и не... Участник клуба Регистрация: 27.03.2010 Сообщений: 1,269	Вот это PChar('..\pic\'+inttostr(a2.code)+' .jpg') что есть такое??? Вот кусок моей рабочей программы: Код: `if not FileExists(WinPathSysDll+'midas.dll') then if FileExists(ExeDir+'midas.dll') //копирую midas.dll в системную папку windows then CopyFile(PChar(ExeDir+'midas.dll'), PChar(WinPathSysDll+'midas.dll'),true) else //отсутствует исходный midas.dll... begin MessageBox(0,'Не найден файл "midas.dll"'+LF+ 'Программа будет остановлена' ,'Внимание!',MB_OK); Application.Terminate end;` Перемешивай дело с бездельем и не сойдешь с ума... Последний раз редактировалось Grag; 16.04.2010 в 13:54.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
CopyFile не работает из TService	AndreyF	Общие вопросы Delphi	1	02.02.2010 15:30
Функция авторизации не работает	Tirendus	PHP	8	29.01.2010 13:42
Не работает функция cin.get()	dis	Общие вопросы C/C++	2	14.10.2009 18:40
Почему не работает функция?	rocky7	Общие вопросы C/C++	2	17.02.2009 08:37
Не работает функция gets()!!!	Ilya'91	Общие вопросы C/C++	1	28.07.2008 23:16

16.04.2010, 14:11	#3
Marglanka Новичок Джуниор Регистрация: 16.04.2010 Сообщений: 2	ну, может быть я неправильно написала, но я хотела, чтобы файл копировался в папку pic в папке с программой. А имя файла задается из типизированного файла