Текущий архив: 2003.09.22;
Скачать: CL | DM;

Вниз

Помогите!!!   Найти похожие ветки 

← →
microlab   (2003-01-15 18:59) [0]

Как в TKOLListView поместить список всех имен переменных ключа реестра, полученных функцией RegKeyGetValueNames. Как я только не пытался, но постоянно выскакивает рен тайм ошибка

---

← →
blackalex ©   (2003-01-15 19:07) [1]

Код в студию!

---

← →
microlab   (2003-01-16 16:44) [2]

Вот примерный код в сокращенном варианте. Я думаю ошибка гдето в выделенной части
var key:hkey;
StrList:PstrList;
i:integer;
begin
List.LVColAdd("Colum1", taLeft, List.Width-4);
Key:=RegKeyOpenRead(HKEY_LOCAL_MACHINE,"Software\Microsoft\Windows\CurrentVersion\run");
if RegKeyGetValueNames(Key,StrList)=true then
for i:=0 to StrList.Count-1 do
( StrList[i]) Вот примерный код в сокращенном варианте. Я думаю ошибка гдето в выделенной части
var key:hkey;
StrList:PstrList;
i:integer;
begin
List.LVColAdd("Colum1", taLeft, List.Width-4);
Key:=RegKeyOpenRead(HKEY_LOCAL_MACHINE,"Software\Microsoft\Windows\CurrentVersion\run");
if RegKeyGetValueNames(Key,StrList)=true then
for i:=0 to StrList.Count-1 do
List.LVItemImageIndex[list.LVItemAdd(StrList[i])]:=0;
end;

---

← →
microlab   (2003-01-16 18:33) [3]

Еже сам додумался.
Не хватало strList:= NewStrList;

---

← →
blackalex ©   (2003-01-17 13:50) [4]

Не хватало strList:= NewStrList;<p>
Точно :) В конце не забудь StrList.Free , если он тебе больше не нужен.

---

Страницы: 1 вся ветка

Текущий архив: 2003.09.22;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.079 c