Главная страница
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.031 c
9-71461
[Baradoo]
2003-02-17 17:01
2003.09.22
Качайте мою новую (еще новее) игру + ССЫЛКА (#2)


14-71852
Сергей Д
2003-09-01 11:36
2003.09.22
Как програмно


6-71794
Dwemer
2003-07-22 00:31
2003.09.22
Как поймать момент подключения к инету?


14-71870
Jacob
2003-09-04 13:17
2003.09.22
Расписание авиарейсов


14-71826
Anatoly Podgoretsky
2003-08-31 00:23
2003.09.22
Очередная, третья перепись населения