[BuTeK22]

Пробовал открыть вот так:
ShellExecute(Handle,'open',PChar(ListBox1.Items.St rings[ListBox1.ItemIndex]),'','',SW_SHOW)

Только ни чего не происходит!
В чем ошибка?

[Assistant]

Код:

ShellExecute(Handle,'open',PChar(ListBox1.Items[ListBox1.ItemIndex]),nil,nil,SW_SHOW)

и ещё всё зависит от того, что у Вас добавлено в ListBox1

[BuTeK22]

Вот что у меня

Код:

var
 SR:TSearchRec;
 FindRes:Integer; // переменная для записи результата поиска
begin
 ListBox1.Clear;
 FindRes:=FindFirst('F:\Скачка\'+'\*.*',faAnyFile,SR);
 while FindRes=0 do // пока мы находим файлы (каталоги),
  begin             // то выполнять цикл
   // если найденный элемент каталог и
   if ((SR.Attr and faDirectory)=faDirectory) and
   // он имеет название "." или "..", тогда:
   ((SR.Name='.')or(SR.Name='..')) then
    begin
     FindRes:=FindNext(SR); // продолжить поиск
     Continue; // продолжить цикл
    end;
   ListBox1.Items.Add(SR.Name+'                     '
     +IntToStr(SR.Size)+'  Bite');// добавление в список найденного эл-та
   if Application.Terminated then Break;
   Application.ProcessMessages;
   FindRes:=FindNext(SR); // продолжение поиска по заданным условиям
  end;
 FindClose(SR); // закрываем поиск
 Label1.Caption:='Items: '+IntToStr(ListBox1.Items.Count);
end;

Админ: Пользуемся тегами, при рецедиве последуют санкции.

[Assistant]

Юзаем теги, Admin негодуе.
а если так:

Код:

ShellExecute(Handle,'open',PChar('F:\Скачка\'+ListBox1.Items[ListBox1.ItemIndex]),nil,nil,SW_SHOW)

[BuTeK22]

Сообщение от Assistant

Юзаем теги, Admin негодуе.
а если так:

Код:

ShellExecute(Handle,'open',PChar('F:\Скачка\'+ListBox1.Items[ListBox1.ItemIndex]),nil,nil,SW_SHOW)

Нет так не получается!

[Assistant]

блин, конечно, вы в ListBox добавляете к имени файла его размер, чож вы хотите-то. и не Bite, а Byte, если на то пошло

[BuTeK22]

Спасибо за помощь! Я подругому сделал вроде все получилось!