Копирование файла в буфер обмена (win7)

[art-programs]

да, точно. это скорее всего и есть причина проблем.
получаю длину строки так

  FileList := (FileList + #0#0);
  iLen := length(FileList) * StringElementSize(FileList);

но результат тот же, как ещё можно получить размер юникод-строки?

[art-programs]

всё, проблема решена
GunSmoker, спасибо, вернули на путь истинный
кому нужно, собсна код:

  iLen := Length(FileList);
  hGlobal := GlobalAlloc(GMEM_SHARE or GMEM_MOVEABLE or GMEM_ZEROINIT, 
SizeOf(TDropFiles) + ((iLen + 2) * SizeOf(Char)));
  if (hGlobal = 0) then raise Exception.Create('Не удалось выделить память.');
  try
    DropFiles := GlobalLock(hGlobal);
    if (DropFiles = nil) then 
       raise Exception.Create('Не удалось получить доступ к выделенной памяти.');
    try
      DropFiles^.pFiles := SizeOf(TDropFiles);
      DropFiles^.fWide := True;
      if FileList <> '' then
        Move(FileList[1], (PByte(DropFiles) + SizeOf(TDropFiles))^, iLen * SizeOf(Char));
    finally
      GlobalUnlock(hGlobal);
    end;
    Clipboard.SetAsHandle(CF_HDROP, hGlobal);
  except
    GlobalFree(hGlobal);
  end;