Карта сайтаСсылкиКонтакты

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

PDF Печать
Статьи

Если используется Explorer Windows для копирования файла, как можно использовать функцию Вставить в приложении?

Этот код извлекает имена файлов из буфера обмена в компонент Memo. Поместите компоненты Memo и Button на форму и напишите код для события 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;

 

Добавить комментарий


Защитный код
Обновить