Показать сообщение отдельно
  #1  
Старый 08.03.2015, 14:20
Eldar1991 Eldar1991 вне форума
Прохожий
 
Регистрация: 02.03.2015
Сообщения: 21
Версия Delphi: delphi7
Репутация: 10
По умолчанию Копирование из из папки текущего пользователя

Здравствуйте уважаемые форумчане! Изучаю Делфи чуть более месяца, одной из поставленых задач является копирование информации из директории текущего пользователя. копировать папку решил этим методом, он рабочий.
Код:
application.ProcessMessages();
  FillChar(Buffer, sizeof(Buffer), #0);
  p := @buffer;
  StrECopy(p, PChar(FromFolder)); //îòêóäà
  FillChar(Fo, sizeof(Fo), #0);
  Fo.Wnd    := Application.Handle;
  Fo.wFunc  := FO_COPY;
  Fo.pFrom  := @Buffer;
  Fo.pTo    := PChar(ToFolder); //êóäà
  Fo.fFlags := 0;
  if ((SHFileOperation(Fo) <> 0) or (Fo.fAnyOperationsAborted <> false)) then
    ShowMessage('File copy process cancelled')
и все бы хорошо, да вот только как мне адрес указать правильно синтаксически?иначе прога не видит что копировать. до этого в батнике я указывал %USERPROFILE% и было очень удобно. А как быть здесь? подскажите, заранее спасибо))
Ответить с цитированием