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

[art-programs]

Привет. Кто уже делал копирование в БО?
Интернет завален таким решением:

procedure CopyFilesToClipboard(FileList: string); 
var 
  DropFiles: PDropFiles; 
  hGlobal: THandle; 
  iLen: Integer; 
begin 
  iLen := Length(FileList) + 2; 
  FileList := FileList + #0#0; 
  hGlobal := GlobalAlloc(GMEM_SHARE or GMEM_MOVEABLE or GMEM_ZEROINIT, 
    SizeOf(TDropFiles) + iLen); 
  if (hGlobal = 0) then raise Exception.Create('Could not allocate memory.'); 
  begin 
    DropFiles := GlobalLock(hGlobal); 
    DropFiles^.pFiles := SizeOf(TDropFiles); 
    Move(FileList[1], (PChar(DropFiles) + SizeOf(TDropFiles))^, iLen); 
    GlobalUnlock(hGlobal); 
    Clipboard.SetAsHandle(CF_HDROP, hGlobal); 
  end; 
end;

но на Win7 не работает, дебагер благополучно вываливается в CPU

[TwiX]

Что такое FileList?
На какой строчке падает?

[Человек_Борща]

uses ClipBrd;

procedue DoMyClipBtd;
var
  clb:TClipboard;
begin
clb:=TClipboard.Create;
  try
    Clb.Open;
      {
        DO SOMETHING WITH CLB
      }
     Clb.Close;
   finally
    FreeAndNil(clb);
  end;
end;

уже не?

[Surgeon]

Сообщение от Человек_Борща

uses ClipBrd;

procedue DoMyClipBtd;
var
  clb:TClipboard;
begin
clb:=TClipboard.Create;
  try
    Clb.Open;
      {
        DO SOMETHING WITH CLB
      }
     Clb.Close;
   finally
    FreeAndNil(clb);
  end;
end;

уже не?

А разве переменная clipboard нуждается в создании? Это как Application - создается автоматом при запуске программы.

[Человек_Борща]

Лучше создать свой обьект, тогда гарантировано запихаешь в него что-то.

[Silver_S]

Сообщение от Человек_Борща

Лучше создать свой обьект, тогда гарантировано запихаешь в него что-то.

В справке ясно сказано:

Do not instantiate separate TClipboard objects by calling the constructor. Instead, use the global instance of TClipboard returned by the Clipboard function. This allows applications to share a single instance of TClipboard and safeguards against accidental deletion of the clipboard.

[art-programs]

Что такое FileList?
На какой строчке падает?

Debug Output:
Heap block at 0019CB90 modified at 0019CBC0 past requested size of 27

CPU: 77234E2d mov byte ptr [$7724f025], $00]

FileList это строка с именами файлов задаётся например так:

CopyFilesToClipboard('C:\1.txt'#0'C:\1.xls');

надо полагать падает приложение тут

    DropFiles^.pFiles := SizeOf(TDropFiles);
    Move(FileList[1], (PChar(DropFiles) + SizeOf(TDropFiles))^, iLen); <=== тут
    GlobalUnlock(hGlobal);

Сообщение от Человек_Борща

Лучше создать свой обьект, тогда гарантировано запихаешь в него что-то.

В данном случае это увы ничего не даёт.
TClipboard создаётся без проблем. Проблема в выделении
памяти (точнее после выделения, выделяется она тоже успешно).

[GunSmoker]

Версия Delphi? ANSI vs Unicode?

[art-programs]

d2010 architect, юникод

[GunSmoker]

Тогда iLen не верен.