Как скопировать файл

[cargo29]

надо скопировать файл например на рабочий стол но я не знаю пользователя как это можно сделать?

[_SERGEYX_]

Сначала нужно найти путь к рабочему столу

function GetDeskTopPath : string;
var 
  shellMalloc: IMalloc;
  ppidl: PItemIdList; 
  PerDir: string; 
begin 
  ppidl := nil; 
  try 
    if SHGetMalloc(shellMalloc) = NOERROR then 
    begin 
      SHGetSpecialFolderLocation(Form1.Handle, CSIDL_DESKTOP, ppidl); 
      SetLength(Result, MAX_PATH); 
      if not SHGetPathFromIDList(ppidl, PChar(Result)) then 
        raise exception.create('SHGetPathFromIDList failed : invalid pidl'); 
      SetLength(Result, lStrLen(PChar(Result))); 
    end; 
  finally 
   if ppidl <> nil then 
         shellMalloc.free(ppidl); 
  end; 
end;

А затем использовать

function CopyFile(
     lpExistingFileName, // Указатель на файл, который надо копировать
     lpNewFileName: PChar; // Указатель на имя файла, куда надо копировать
     bFailIfExists: BOOL //если указать true, то в случае существования такого файла, он будет перезаписан, если false - то произойдет ошибка.
): BOOL;

[cargo29]

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

Сначала нужно найти путь к рабочему столу

function GetDeskTopPath : string;
var 
  shellMalloc: IMalloc;
  ppidl: PItemIdList; 
  PerDir: string; 
begin 
  ppidl := nil; 
  try 
    if SHGetMalloc(shellMalloc) = NOERROR then 
    begin 
      SHGetSpecialFolderLocation(Form1.Handle, CSIDL_DESKTOP, ppidl); 
      SetLength(Result, MAX_PATH); 
      if not SHGetPathFromIDList(ppidl, PChar(Result)) then 
        raise exception.create('SHGetPathFromIDList failed : invalid pidl'); 
      SetLength(Result, lStrLen(PChar(Result))); 
    end; 
  finally 
   if ppidl <> nil then 
         shellMalloc.free(ppidl); 
  end; 
end;

А затем использовать

function CopyFile(
     lpExistingFileName, // Указатель на файл, который надо копировать
     lpNewFileName: PChar; // Указатель на имя файла, куда надо копировать
     bFailIfExists: BOOL //если указать true, то в случае существования такого файла, он будет перезаписан, если false - то произойдет ошибка.
): BOOL;

что то н то ... например у меня файл на диске С и что бы он сам автоматически скопировался на рабочий стол функция копировая в одну строчку ...

[artemavd]

Вам ответ дан выше совершенно верный. В том, чтобы понять его и применить нет ничего сложного. Сейчас вам мешает сделать это твоя лень. Разбирайтесь. Ответ на вопрос дан, тема закрыта.