скопировать файл в буфер обмена

[Rolls]

Здравствуйте!
Возникла, казалось бы, элементарная задача, но решений в интеренете нашёл только 2, и те не рабочие ((
Нужно скопировать файл в буфер обмена, чтобы потом можно было его вставить в любую папку иксплорера, и всего-то .. имя файла имеется . вот то что нашёл в сети :

1

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

uses
  ShlObj, ClipBrd; 

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; 

// Example, Beispiel: 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  CopyFilesToClipboard('C:Bootlog.Txt'#0'C:AutoExec.Bat'); 
end;  

//Separate the files with a #0.

а вот 2й

 
Копирование большого файла в буфер обмена


Вот общее решение, которое будет работать, даже если у вас размер файла превышает 64Кб:
function _hread(FileHandle: word; BufPtr: pointer;
  ByteCount: longint): longint; far;
  external 'KERNEL' index 349;

procedure CopyFileToClipboard(const fname: string);
var
  hmem, hFile: THandle;
  size: LongInt;
  p: Pointer;
begin
  hFile := FileOpen(fname, fmOpenRead);
  try
    size := FileSeek(hFile, 0, 2);
    FileSeek(hfile, 0, 0);
    if size > 0 then
    begin
      hmem := GlobalAlloc(GHND, size);
      if hMem <> 0 then
      begin
        p := GlobalLock(hMem);
        if p <> nil then
        begin
          _hread(hFile, p, size);
          GlobalUnlock(hMem);
          Clipboard.SetAsHandle(CF_TEXT, hMem);
        end
        else
          GlobalFree(hMem);
      end;
    end;
  finally
    FileClose(hFile);
  end;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
var
  fname: string[128];
begin
  if OpenDialog1.Execute then
  begin
    fname := OpenDialog1.Filename;
    CopyFileToClipboard(fname);
  end;
end;

на первый пример прграмма ругается при выполнении, 2й даже не запускается (просит библиотеку KERNEL.DLL).

Подскажите, кто делал подобное.
ПС: файлы офисных типов (.doc, .xls, .pdf etc)
Заранее спасибо!
Заранее спасибо!

[Баламут]

Подобного никогда не делал и тем не менее, после некоторой правки содержимое файла копируется в буфер. Но это, какя понимаю, совершенно не то, что нужно

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Clipbrd, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    procedure CopyFileToClipboard(const fname: string);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

function _hread(FileHandle: word; BufPtr: pointer;
  ByteCount: longint): longint; stdcall; external 'KERNEL32.dll';

{$R *.dfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  fname: string;
begin
  if OpenDialog1.Execute then
  begin
    fname := OpenDialog1.Filename;
    CopyFileToClipboard(fname);
  end;
end;

procedure TForm1.CopyFileToClipboard(const fname: string);
var
  hmem, hFile: THandle;
  size: LongInt;
  p: Pointer;
begin
  hFile := FileOpen(fname, fmOpenRead);
  try
    size := FileSeek(hFile, 0, 2);
    FileSeek(hfile, 0, 0);
    if size > 0 then
    begin
      hmem := GlobalAlloc(GHND, size);
      if hMem <> 0 then
      begin
        p := GlobalLock(hMem);
        if p <> nil then
        begin
          _hread(hFile, p, size);
          GlobalUnlock(hMem);
          Clipboard.SetAsHandle(CF_TEXT, hMem);
        end
        else
          GlobalFree(hMem);
      end;
    end;
  finally
    FileClose(hFile);
  end;
end;

end.

[Rolls]

после некоторой правки чего?

сделал в точности как вы написали - в буфере крокозябры, и то вставляются только в текстовый файл ...

ПС : я у Вас не заметил самой функции function _hread

[Пепел Феникса]

во втором коде вы моглиб и сами догдатся что у нас kernel32.dll, а не KERNEL.dll.
(странно, зачем в коде эту функцию именно использовать)

[raxp]

Нужно скопировать файл в буфер обмена, чтобы потом можно было его вставить в любую папку иксплорера, и всего-то

погодь, а зачем копировать весь файл? да еще в буфер обмена? ...смысл забивать память ...не проще-ли получить ссылку на исходное расположение файла и воспользоваться обычным "copy" отсюда-сюда.

[Пепел Феникса]

кстати, а ведь файл же не копируется проводником полностью в буфер, там копируется путь помоему...но формат ставится не текстовый...так как не вставляется как текст.

[Rolls]

понятия не имею как копирует иксплорер, но надо сделать также
обычный КОПИ, как в любом виндовом окошке, чтобы потом сделать обычный ПЭЙСТ в любое виндовое окошко

[raxp]

вот проводник как раз в буфер не файл копирует, так что думайте.

[Rolls]

неужели никто такого никогда не делал...

[AlexanderKs]

Rolls, вероятно вы где то допустили ошибку. Пример №1 у меня прекрасно работает.