combox + ShellExecute

[zingo]

Ребят такой вопрос:
Выбираем нужную позицию в комбокс после этого он должен открыть файл.
и еще вопрос по поводу ShellExecute как задать путь к файлу, потому как путь к нему будет не всегда динамичным.

[[DisAssembleR]]

Пишешь в обработчике onChange у ComboBox

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

Сработает лишь тогда, когда в ComboBox записаны пути к файлам:
С:\windows\bla-bla\test.exe;

Если в ComboBox только названия файлов с расширением, а файлы эти всегда будут находиться на диске С в ProgramFiles\MyFolder, то пиши такое в обработчике onChange:

ShellExecute(Handle, 'open', PChar(ComboBox1.Items[ComboBox1.ItemIndex]), nil, PChar('C:\'), SW_SHOW);

[zingo]

а если адрес всегда будет менятся
Пишу диплом и не известно где его будем запускать)

[[DisAssembleR]]

Если неизвестно где, то лучше задавать путь вручную, либо ложить файлы в папку с exe.

Если файлы в одной папке с программой, используй это:

ShellExecute(Handle, 'open', PChar(ExtractFilePath(ParamStr(0)) + ComboBox1.Items[ComboBox1.ItemIndex]), nil, nil, SW_SHOW);