На просторах инета был найден такой код:
| Код |
//a few units are being used, note that you do NOT have to
//install Drag and Drop Component Suite....
uses shlobj, clipbrd,
DragDrop, DropSource, DragDropFile, DragDropFormats,
---
//initialize DROP SOURCE...
procedure TForm1.FormCreate(Sender: TObject);
begin
DropEmptySource1 := TDropEmptySource.Create(form1);
DropEmptySource1.DragTypes := [dtCopy];
DataFormatAdapterSource := TDataFormatAdapter.Create(form1);
DataFormatAdapterSource.DataFormatName := 'TVirtualFileStreamDataFormat';
DataFormatAdapterSource.DragDropComponent := dropemptysource1;
dataformatadaptersource.Enabled := true;
(DataFormatAdapterSource.DataFormat as TVirtualFileStreamDataFormat).OnGetStream := OnGetStream;
end;
---
// Dragging procedure... you can use either DragDetectPlus (from component) during
// MouseDown event or simply use TComponent's dragging = automatic... NOTE you
// must give the name of the file (as it will appear for drop TARGET) here.
procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if DragDetectPlus(Handle, Point(X,Y)) then begin
if listview1.Selected = nil then exit;
TVirtualFileStreamDataFormat(DataFormatAdapterSource.DataFormat).FileNames.Clear;
TVirtualFileStreamDataFormat(DataFormatAdapterSource.DataFormat).FileNames.Add(listview1.Selected.Capti
on);
DropEmptySource1.Execute;
end;
end;
---
---
// This procedure will happen immediately after drop has been made from application; note
// that we already have provided the file name so we still have to feed contents :)
// instead of source file, if you want to have memo1.contents to the "copied" file,
// you would use :
// Stream := TMemoryStream.Create;
// Stream.Write(memo1.text[1],length(memo1.text));
// Stream.Seek(0,soFromBeginning);
procedure TForm1.OnGetStream(Sender: TFileContentsStreamOnDemandClipboardFormat;
Index: integer; out AStream: IStream);
var
Stream: TStream;
fn:string;
begin
// This event handler is called by TFileContentsStreamOnDemandClipboardFormat
// when the drop target requests data from the drop source (that's us).
fn := 'whateversourcefile';
Stream := TFileStream.Create(fn,fmOpenRead or fmShareDenyNone);
try
// Write the file contents to a regular stream...
// ...and return the stream back to the target as an IStream. Note that the
// target is responsible for deleting the stream (via reference counting).
AStream := TFixedStreamAdapter.Create(Stream, soOwned);
except
Stream.Free;
raise;
end;
end;
|
Но при копировании файла создается пустой файлик с размером 0 и все. |
)