| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Подскажите, plz, как скопировать файлы из буфера обмена [D6, WinME]
Chizh © (2003-01-16 22:58:00)Имеется CheckListBox и кнопка Button1, так вот вопрос в том, как после нажатия на эту кнопель заполнить список CheckListBox предварительно скопированными из какой-либо папки в буфер обмена файлами.
Song (2003-02-01 15:24:00) [1]Ну ты обнаглел....
Chizh (2003-02-01 14:21:00) [2]Нет больше желающих помочь?
Chizh (2003-01-28 00:19:00) [3]> Stager
...Что значит "заискивающие фразы"
gsu (2003-01-26 00:14:00) [4]>> Stager ©
Э, ну, типа, это ...
Вы бы не могли и меня поучить этикету, если Вам не трудно ?
Stager (2003-01-26 00:04:00) [5]2 Chizh
> Stager, ну где-же комментарии?!!!
Разве я их обещал? Если разобраться по хелпам Вам сложно - пожалуйста, я дал исходник 18-ти строк общей длины. Ничего, кроме предельно простых операций Дельфи и пары вызовов API-функций там нет. Ну еще потребуется в usesдобавить модуль Clipbrd. Все.
Если у Вас возникнет конкретный вопрос - задавайте.
ЗЫ. И еще один маленький совет. Постарайтесь в будущем использовать меньше жаргонных слов и заискивающих фраз.
С уважением, Алексей.
Chizh (2003-01-25 23:22:00) [6]Stager, ну где-же комментарии?!!!
Chizh (2003-01-24 23:24:00) [7]>Stager: Все равно спасибо, но не помешали бы комментарии...
>MBo: Извини(те), если обидел... Я всё нашёл, сохранил пагу на винт, а спросил ещё о подсказке, чтобы увидеть какие-либо другие способы... Просто не в моих правилах пренебрегать советами МАСТЕРОВ... ;-)
MBo (2003-01-24 22:53:00) [8]Я тебе дал все данные для поиска. Лень поискать по точным координатам или самому разобраться - что ж, твои проблемы.
Stager (2003-01-24 22:50:00) [9]
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;
Спасибов не надо, самому недавно подсказали.
С уважением, Алексей.
Chizh (2003-01-24 22:35:00) [10]Может ещё кто-нибудь что-либо подскажет?
MBo (2003-01-21 06:40:00) [11]Ищи мой ответ на круглом столе delphi.vitpc.com по ключ. слову CF_HDROP (искать в ответах)
Chizh (2003-01-20 21:58:00) [12]Неужели никто не может помочь:-\
Chizh (2003-01-19 16:09:00) [13]Э-э-э... Можно по-подробнее и по-понитнее :-)
MBo (2003-01-17 06:56:00) [14]Убедиться, что в буфере данные формата CF_HDROP, получить их (см. структуру TDropFiles в shlobj.pas). Строки кончаются нулем, в конце списка два нуля.
| |
