Текущий архив: 2003.02.10;
Скачать: CL | DM;
Вниз
Подскажите, plz, как скопировать файлы из буфера обмена Найти похожие ветки
← →
Chizh (2003-01-16 22:58) [0]Имеется CheckListBox и кнопка Button1, так вот вопрос в том, как после нажатия на эту кнопель заполнить список CheckListBox предварительно скопированными из какой-либо папки в буфер обмена файлами.
← →
MBo (2003-01-17 06:56) [1]Убедиться, что в буфере данные формата CF_HDROP, получить их (см. структуру TDropFiles в shlobj.pas). Строки кончаются нулем, в конце списка два нуля.
← →
Chizh (2003-01-19 16:09) [2]Э-э-э... Можно по-подробнее и по-понитнее :-)
← →
Chizh (2003-01-20 21:58) [3]Неужели никто не может помочь:-\
← →
MBo (2003-01-21 06:40) [4]Ищи мой ответ на круглом столе delphi.vitpc.com по ключ. слову CF_HDROP (искать в ответах)
← →
Chizh (2003-01-24 22:35) [5]Может ещё кто-нибудь что-либо подскажет?
← →
Stager (2003-01-24 22:50) [6]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
H: THandle;
s: string;
n, Count: integer;
begin
ListBox1.Items.Clear;
H:=Clipboard.GetAsHandle(CF_HDROP);
if H = 0 then Exit;
Count:=DragQueryFile(H,DWORD(-1),nil,0);
if Count = 0 then Exit;
SetLength(s,MAX_PATH);
for n:=0 to Count-1 do
begin
DragQueryFile(H,n,@s[1],MAX_PATH+1);
ListBox1.Items.Add(PChar(s));
end;
end;
Спасибов не надо, самому недавно подсказали.
С уважением, Алексей.
← →
MBo (2003-01-24 22:53) [7]Я тебе дал все данные для поиска. Лень поискать по точным координатам или самому разобраться - что ж, твои проблемы.
← →
Chizh (2003-01-24 23:24) [8]>Stager: Все равно спасибо, но не помешали бы комментарии...
>MBo: Извини(те), если обидел... Я всё нашёл, сохранил пагу на винт, а спросил ещё о подсказке, чтобы увидеть какие-либо другие способы... Просто не в моих правилах пренебрегать советами МАСТЕРОВ... ;-)
← →
Chizh (2003-01-25 23:22) [9]Stager, ну где-же комментарии?!!!
← →
Stager (2003-01-26 00:04) [10]2 Chizh
> Stager, ну где-же комментарии?!!!
Разве я их обещал? Если разобраться по хелпам Вам сложно - пожалуйста, я дал исходник 18-ти строк общей длины. Ничего, кроме предельно простых операций Дельфи и пары вызовов API-функций там нет. Ну еще потребуется в uses добавить модуль Clipbrd. Все.
Если у Вас возникнет конкретный вопрос - задавайте.
ЗЫ. И еще один маленький совет. Постарайтесь в будущем использовать меньше жаргонных слов и заискивающих фраз.
С уважением, Алексей.
← →
gsu (2003-01-26 00:14) [11]>> Stager ©
Э, ну, типа, это ...
Вы бы не могли и меня поучить этикету, если Вам не трудно ?
← →
Chizh (2003-01-28 00:19) [12]> Stager
...Что значит "заискивающие фразы"
← →
Chizh (2003-02-01 14:21) [13]Нет больше желающих помочь?
← →
Song (2003-02-01 15:24) [14]Ну ты обнаглел....
Страницы: 1 вся ветка
Текущий архив: 2003.02.10;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.009 c
