| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

И снова плейлист

Homo Sapiens ©   (2006-07-07 11:50:00) 

Люди подскожите плз как перетащить файлы , например, с рабочего стола в
listbox1?????

---

PSPF2003   (2006-07-07 11:54:00) [1]

Забыл написать добавь ShellAPI к Uses

---

Homo Sapiens   (2006-07-07 11:53:00) [2]

Спасибо

---

PSPF2003   (2006-07-07 11:52:00) [3]

private
procedure WMDROPFILES(var Message: TWMDROPFILES); message WM_DROPFILES;

procedure TForm1.FormCreate(Sender: TObject);
begin
 DragAcceptFiles(Form1.Handle, True);
end;

procedure TForm1.WMDROPFILES(var Message: TWMDROPFILES);
var
 NumFiles : longint;
 i : longint;
 buffer : array[0..255] of char;
 dop : integer;
begin
 dop  := -1;
 NumFiles := DragQueryFile(Message.Drop, dop, nil, 0);
 for i := 0 to (NumFiles - 1) do begin
   DragQueryFile(Message.Drop, i, @buffer, sizeof(buffer));
   Memo1.Lines.EndUpdate;
   Memo1.Lines.LoadFromFile(buffer)  ;
   Memo1.Lines.BeginUpdate;
   Exit;
 end;
end;

Сам подправишь

---

Наверх