procedureTForm1.Button1Click(Sender: TObject); var
f: THandle; buffer: array
[0..MAX_PATH] of
Char; i, numFiles: Integer; begin
if
not
Clipboard.HasFormat(CF_HDROP) then
Exit; Clipboard.Open; try
f := Clipboard.GetAsHandle(CF_HDROP); if
f <> 0 then
begin
numFiles := DragQueryFile(f, $FFFFFFFF, nil
, 0); memo1.Clear; for
i := 0 to
numfiles - 1 do
begin
buffer[0] := #0; DragQueryFile(f, i, buffer, SizeOf(buffer)); memo1.Lines.Add(buffer); end
; end
; finally
Clipboard.Close; end
; end
;