Добавление имен файлов в ListBox и их открытие

[P@radise]

Здравствуйте! Нужна помощь, Подскажите пожалуйста!
Ситуация такая, делаю оболочку под электронные учебники, библиотеку. Сами учебники в ехе формате.
Есть две формы, заставка и сама форма библиотеки, на ней имеется ListBox. При закрытии формы Заставка, открывается вторая с заполненным списком электронных учебников. Теперь нужно при клике/двойном клике открыть экзешник учебника.
Список заполнял двумя способами:

SendMessage(Form2.ListBox1.Handle,LB_DIR,0,integer(pchar('c:\ЭБ\*.exe')))

и

var str:TSearchRec;
begin

 if FindFirst('c:\ЭБ\*.exe',faAnyFile,str)= 0
  then begin
      repeat
       Form2.ListBox1.Items.Add(str.Name);
       Form2.ListBox1
      until FindNext(str)<>0;
      FindClose(str);
      end;

А Открыть пытаюсь так:

ShellExecute(Application.Handle,'Open',PChar(ListBox1.Items[ListBox1.ItemIndex]),Nil,Nil,SW_SHOWDEFAULT);

Но не открывается.

Я так понимаю должны еще пути к файлам сохраняться, но не знаю как это сделать.
Подскажите пожалуйста, как правильней заполнить список и открыть файл при дабл клике?

[evg_m]

hellExecute(Application.Handle,'Ope n',PChar('c:\ЭБ\' + ListBox1.Items[ListBox1.ItemIndex]),Nil,Nil,SW_SHOWDEFAULT);

а если набор учебников будет перенесен? Например в С:\нов_ЭЛ_УЧ
менять везде?

SendMessage(Form2.ListBox1.Handle,LB_DIR,0,integer(pchar('c:\ЭБ\*.exe')))
 if FindFirst('c:\ЭБ\*.exe',faAnyFile,str)= 0
ShellExecute(Application.Handle,'Open',PChar(ListBox1.Items[ListBox1.ItemIndex]),Nil,Nil,SW_SHOWDEFAULT);

самое место для глобальной переменной
pathelbook: string;
pathelbook:='c:\ЭБ\';

SendMessage(Form2.ListBox1.Handle,LB_DIR,0,integer(pchar(pathelbook + '*.exe')))
 if FindFirst(pathelbook +'*.exe',faAnyFile,str)= 0
ShellExecute(Application.Handle,'Open',PChar(pathelbook + ListBox1.Items[ListBox1.ItemIndex]),Nil,Nil,SW_SHOWDEFAULT);

замена в одном месте и все.

[Swarog]

если учебник в той же папке что и основная программа то можно так...

ShellExecute(Application.Handle,'Open',PChar(ExtractFilePath(application.ExeName)  + ListBox1.Items[ListBox1.ItemIndex]),Nil,Nil,SW_SHOWDEFAULT);

[P@radise]

Спасибо большое!!!!

Еще вопросик, подкиньте идею как реализовать группировку, например по дисциплине, а то руководитель озадачил сегодня Вот у меня 21 учебник записались в ListBox, из них есть 6 учебников по Английскому языку.... допустим при нажатии на кнопку они перекидывались бы в отельный список Иностранные языки или еще куда-нибудь, разницы нет.
Вообще не принципиально как это будет осуществляться и какими путями

[evg_m]

Вот у меня 21 учебник записались в ListBox, из них есть 6 учебников по Английскому языку...

Как можно программно узнать что эти учебники по английскому языку этип математике эти по физике. причем число групп и названия групп должны быть НЕЗАВИСИМЫ от программы (измения в списке групп не должны требовать изменения программы). после того как ответишь на этот вопрос группировка будет решена. Именно из задач группировки появилось понятие папки. Но это сработает только при одном(единственном) критерии группировки. А несколько критериев группировки это следующий ход преподавателя. (пример двойной группировки (предмет + класс) (математика 7 класс математика 8 класс) (физика 8 класс) (физика 10 класс).
1 группировка учебники 8 класса
2 группировка учебники по физике.

[Swarog]

В принципе можно предварительно создать каталог в отдельном файле, там же можно указать принадлежность к какой либо группе

[P@radise]

Спасибо за идеи! Пошел путем группировки файлов по папкам. Теперь у меня такой вопрос, заполнил ListBox файлами и которые в подпапках, а как убрать пути к файлам, оставив только имена???

procedure DirSearch(Dir: string; Mask : string; SL: TStrings);
var str: TSearchRec;
begin
  Dir := IncludeTrailingBackslash(Dir);

  if FindFirst(Dir + '*.*', faAnyFile, str) = 0 then
    repeat
      Application.ProcessMessages;

      if (str.Attr and faDirectory) <> 0 then begin
        if (str.name <> '.') and (str.name <> '..') then
                DirSearch(Dir + str.name, Mask, sl)
      end
      else
        if MatchesMask(ExtractFileName(str.Name), Mask) then
          Sl.Add(Dir + str.Name);
    until FindNext(str) <> 0;
  FindClose(str);
end;

procedure TForm1.Button1Click(Sender: TObject);

begin
Form1.Hide;
Form2.Show;

         DirSearch('C:\ЭБ', '*.exe', Form2.ListBox1.Items);

end;

[Swarog]

        if MatchesMask(ExtractFileName(str.Name), Mask) then
          Sl.Add(Dir + ExtractFileName(str.Name));

[P@radise]

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

        if MatchesMask(ExtractFileName(str.Name), Mask) then
          Sl.Add(Dir + ExtractFileName(str.Name));

Не выходит

[evg_m]

Спасибо за идеи! Пошел путем группировки файлов по папкам. Теперь у меня такой вопрос, заполнил ListBox файлами и которые в подпапках, а как убрать пути к файлам, оставив только имена???

for j:=0 to MatchesMask.items.count -1 do 
  MatchesMask.items.strings[j]:=extractfilename(MatchesMask.items.strings[j]);

И как после такого будешь различать что математика, а что физика. к какой группе относится, если информация о группе удалена.
Более того как запустить учебник, если ты не знаешь в какой он папке. Искать по всем? А если в разных папках окажется два с одинаковыми именами. До второго ты просто никогда не доберешься.(не запустишь).