Из демо примера сделал ) Сделай мультиселект, а то так не удобно по 1 файлу перетаскивать:
Собственно вот начиркал функцию мультиселекта:
Code
function LoadFile(List:TListBox; mask:Boolean): Boolean;
var
i: integer;
begin
try
with TOpenDialog.Create(nil) do
begin
Options:=
[ofFileMustExist,
ofAllowMultiSelect];
if Execute then
begin
for i:=0 to Files.Count -1 do
begin
if Mask then
List.Items.Add(StringReplace(Files[i],'"',#10,[rfReplaceAll]))
else
List.Items.Add(ExtractFileName(Copy(StringReplace(Files[i],'"',#10,
[rfReplaceAll]),0,Length(StringReplace(Files[i],'"',#10,[rfReplaceAll]))
-4)));
end;
Result:= True;
end;
List.Update;
end;
except
Result:= False;
end;
end;
Использование:
LoadFile(
ListBox1, - Компонент TListBox
false - Условеие true/false - показывать полный путь и расширение файла или нет
)
Code
if LoadFile(ListBox1, false) then
//Код если все прошло нормально и загрузилось
else
код если произошла какая то ошибка.