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

← →
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]

Спасибо

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

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