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

Хостинг


Получение имен файлов из буфера обмена ... Элитная недвижимость

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

Когда Вы используете Проводник 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;
Элитная недвижимость

Элитная недвижимость на http://realty.vasilkov.com.ua/


 

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


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