ListBox

← →
Александр (2002-07-11 15:44) [0]

Столкнулся с акой ситуацией. Из реестра вытаскиваю все названия установленного программного обеспечения в ListBox1. В ListBox2 (который невидим и недоступен пользователю) из реестра вытаскиваю в ТАКОМ ЖЕ порядке пути к uninstallам. Задача такая: пользователь в ListBox1 выделяет какую-то строку и нажимает кнопку Удалить (Button1.Click). Мне надо узнать какой номер выделенной строки пользователем и запустить файл Uninstallяции, путь к которому указан в LixtBox2 в строке с тем же номером, что и выделеная строка в ListBox1. А как это сделать, не знаю.

← →
MBo (2002-07-11 15:46) [1]

listBox1.ItemIndex

← →
Александр (2002-07-11 16:11) [2]

Спасибо, а как получить текст из ItemIndex в переменную..например S?

← →
Skier (2002-07-11 16:12) [3]

>Александр
S := listBox1.Items[listBox1.ItemIndex];

← →
Александр (2002-07-11 16:26) [4]

Я сделал так, но ничего не происходит:
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:30) [5]

>Александр
А что у тебя вообще "приходит" в
listBox1.Items[listBox1.ItemIndex] ???

Сделай так что ли ShowMessage(listBox1.Items[listBox1.ItemIndex])

← →
MBo (2002-07-11 16:40) [6]

как я понял, у тебя должно быть
PCHAR(listBox 2.Items[listBox1.ItemIndex]),

← →
Александр (2002-07-11 16:41) [7]

>Skier: Смотрел, выходит: C:\WINNT\unvise32.exe C:\Program Files\Titovlab\uninstal.log

← →
Александр (2002-07-11 16:43) [8]

Хм..странно.....с некоторыми программами выходит. Кажется я понял в чем дело. Спасибо.

← →
Александр (2002-07-11 16:52) [9]

Надо просто заключить в кавычки путь к файлу, если они уже не заключны. Как это сделать, ведь Дельфи думает что эти кавычки надо убирать?

ListBox Найти похожие ветки