![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
ListBox
Александр © (2002-07-11 15:44:00)Столкнулся с акой ситуацией. Из реестра вытаскиваю все названия установленного программного обеспечения в ListBox1. В ListBox2 (который невидим и недоступен пользователю) из реестра вытаскиваю в ТАКОМ ЖЕ порядке пути к uninstallам. Задача такая: пользователь в ListBox1 выделяет какую-то строку и нажимает кнопку Удалить (Button1.Click). Мне надо узнать какой номер выделенной строки пользователем и запустить файл Uninstallяции, путь к которому указан в LixtBox2 в строке с тем же номером, что и выделеная строка в ListBox1. А как это сделать, не знаю.
Александр (2002-07-11 16:52:00) [1]Надо просто заключить в кавычки путь к файлу, если они уже не заключны. Как это сделать, ведь Дельфи думает что эти кавычки надо убирать?
Александр (2002-07-11 16:43:00) [2]Хм..странно.....с некоторыми программами выходит. Кажется я понял в чем дело. Спасибо.
Александр (2002-07-11 16:41:00) [3]>Skier: Смотрел, выходит: C:\WINNT\unvise32.exe C:\Program Files\Titovlab\uninstal.log
MBo (2002-07-11 16:40:00) [4]как я понял, у тебя должно быть
PCHAR(listBox 2.Items[listBox1.ItemIndex]),
Skier (2002-07-11 16:30:00) [5]>Александр
А что у тебя вообще "приходит" в
listBox1.Items[listBox1.ItemIndex] ???
Сделай так что ли ShowMessage(listBox1.Items[listBox1.ItemIndex])
Александр (2002-07-11 16:26:00) [6]Я сделал так, но ничего не происходит:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Application.Handle, nil,
PCHAR(listBox1.Items[listBox1.ItemIndex]),
nil, nil, SW_SHOWNORMAL);
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
ListBox2.Itemindex:=ListBox1.Itemindex;
end;
Skier (2002-07-11 16:12:00) [7]>Александр
S := listBox1.Items[listBox1.ItemIndex];
Александр (2002-07-11 16:11:00) [8]Спасибо, а как получить текст из ItemIndex в переменную..например S?
MBo (2002-07-11 15:46:00) [9]listBox1.ItemIndex