[BuTeK22]

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

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

[Assistant]

Код:

1	ShellExecute(Handle,<font color="Navy">'open'</font>,PChar(ListBox1.Items[ListBox1.ItemIndex]),<b>nil</b>,<b>nil</b>,SW_SHOW)

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

[BuTeK22]

Вот что у меня

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

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 негодуе.
а если так:

Код:

1	ShellExecute(Handle,'open',PChar(<font color="Navy">'F:\Скачка\'</font>+ListBox1.Items[ListBox1.ItemIndex]),nil,nil,SW_SHOW)

[BuTeK22]

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

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

Код:

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

[Assistant]

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

[BuTeK22]

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