[Eldar1991]

Здравствуйте уважаемые форумчане! Изучаю Делфи чуть более месяца, одной из поставленых задач является копирование информации из директории текущего пользователя. копировать папку решил этим методом, он рабочий.

Код:

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% и было очень удобно. А как быть здесь? подскажите, заранее спасибо))

[NumLock]

Код:

function GetSpecialFolderLocation(Folder: Integer): String;
var
  ppidl: PItemIDList;
begin
  Result:='';
  ppidl:=nil;
  try
    if SHGetSpecialFolderLocation(0, Folder, ppidl)=S_OK then
    begin
      SetLength(Result, MAX_PATH);
      if SHGetPathFromIDList(ppidl, PChar(Result)) then
        Result:=IncludeTrailingPathDelimiter(PChar(Result))
      else
        Result:='';
    end;
  finally
    if ppidl<>nil then CoTaskMemFree(ppidl);
  end;
end;

Код:

GetSpecialFolderLocation(CSIDL_APPDATA);

[Eldar1991]

Вопросов у меня много постараюсь все сократить))Я видел нечто подобное одно даже есть в коде и компилируется. вот такое:

Код:

function GetSpecialPath(CSIDL: word): string;
var s: string;
begin
SetLength(s, MAX_PATH);
if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, true)
then s := '';
result := PChar(s);
end;

Суть в чем, во первых я не могу понять что подобные функции делают, точнее как они работают, это очень важно. Во вторых, каким образом она грамотно применяется я пробовал указывать

Код:

if FileExists(GetSpecialPath('\AppData\Local'))

так он ругается что типы Word и String несовместимы. В третьих, Предложенный Вами метод мне также неясен, остается догадываться что он более совершенен чем указанный мной, только скажите пожалуйста где мне описать переменную CoTaskMemFree, ибо она не обозначена на что он также ругается. В четвертых, как будет указываться путь при применении такой функции, то бишь если на одном компьютере имя пользователя ПК а на другом ПК-1 соответственно это уже совсем другой путь. то что раньше было через Userprofile. Прошу содействия.

[NumLock]

SHGetSpecialFolderLocation
SHGetPathFromIDList
CSIDL