void __fastcall TForm1::FileListBox1DblClick(TObject *Sender)
{
AnsiString str=FileListBox1->Directory+
"\\"+FileListBox1->Items->Strings[FileListBox1->ItemIndex];
ShellExecute( Sender,"open",str.c_str(),NULL,NULL,1);
}
FileListBox
Здраствуйте, у меня небольшая проблема, как заставить FileListBox открывать указанные в нем файлы?
Заранее примного благодарен...
Заранее примного благодарен...
Цитата: Patr1ot
Здраствуйте, у меня небольшая проблема, как заставить FileListBox открывать указанные в нем файлы?
Заранее примного благодарен...
Заранее примного благодарен...
Ну здесь вообщем - то можно сделать и проще указываешь число файлов и их название, регестрируешь их в процидуре и ишешь код например:
______________________________________________________________
Dim KIS9 As Intger........-пропиши функцию где они будут опубликованы и буквы под которыми они будут значатся.
Dim A As ............ и т.д а потом
А = ......
И = ......
_______________________________________________________________
и все, а потом не забуть указать ети буквы так чтобы они были частью ListBOX
Точно, пасиб.