Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.025 c
14-71905
Nik8.
2003-09-03 11:27
2003.09.22
Прикольная история недавно прочитал


1-71607
lex7
2003-09-09 16:52
2003.09.22
программа для создания демонстрашек в виде avi


1-71710
Sever
2003-09-10 18:18
2003.09.22
Эмуляция OnChange


1-71748
begemot
2003-09-07 22:39
2003.09.22
Combobox


1-71703
P0tia
2003-09-10 18:01
2003.09.22
Формы и как с ними бороться?