Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.012 c