Текущий архив: 2006.07.30;
Скачать: CL | DM;

Вниз

И снова плейлист   Найти похожие ветки 

← →
Homo Sapiens ©   (2006-07-07 11:50) [0]

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

---

← →
PSPF2003 ©   (2006-07-07 11:52) [1]

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;

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

---

← →
Homo Sapiens ©   (2006-07-07 11:53) [2]

Спасибо

---

← →
PSPF2003 ©   (2006-07-07 11:54) [3]

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

---

Страницы: 1 вся ветка

Текущий архив: 2006.07.30;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.032 c