Получение имен файлов из буфера обмена

Когда Вы используете Проводник Windows для копирования файла можно ли использовать фукнцию Вставить в приложении Delphi? Следующий код отыскивает имена файлов в буфере обмена и помещает их в компонент TMemo.

Поместите компонент TMemo и кнопку TButton на форму. В обработчике события OnClick кнопки напишите:

uses
   ClipBrd, ShellAPI;
 
procedure TForm1.Button1Click(Sender: TObject) ;
var
   f: THandle;
   buffer: Array [0..MAX_PATH] of Char;
   i, numFiles: Integer;
begin
   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;

—

03.09.2016

coder

Получение имен файлов из буфера обмена

Комментарии