Главная страница
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.029 c
1-71691
Vorobyev Sergey
2003-09-11 09:46
2003.09.22
Как узнать параметры функций в DLL?


1-71707
TGrey
2003-09-10 20:10
2003.09.22
Русский текст в консоли


1-71591
BustaBoss
2003-09-09 03:10
2003.09.22
ShellListView - помогайте!!!


6-71793
Ренат
2003-07-22 16:18
2003.09.22
Отключиться от интернета


14-71955
Карелин Артем
2003-08-29 15:26
2003.09.22
Жигули VS Мерседес.