Показать сообщение отдельно
  #8  
Старый 22.06.2013, 22:44
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Берёте функцию по ссылке, делаете так
Код:
CopyFiles(ExtractFileDir(ParamSTR(0)) + '\Data', sEdit1.Text);
и в перёд.
Ответить с цитированием