Вниз
Скачать: CL | DM;

Работа с реестром и с ...   Найти похожие ветки 

← →
Arkan ©   (2002-09-18 22:03) [0]

Здравствуйте!
У меня такая проблема:
необходима из программы заменить один графический файл(файл1) на
другой(файл2). Только без дополнительный файлов(т.е. чтобы файл2 был в теле exe)!!!
И ещё вопросик: как мне считать из реестра, какие проги пишутся в
"Run". Дело в том, что для readstring нужно указывать параметры, кот-е не известны. Т.е. мне надо узнать, какие проги там прописаны и путь к ним. Подскажите пожалуйста.
Заранее спасибо.


← →
Kibitzer   (2002-09-18 22:20) [1]

По поводу записи данных в само себя, клянусь, что видел в каком-то FAQ как это делать. Сначала я не придал этому значения, а когда потерял это FAQ (так и не опробовав), долго пытался его найти, но...

По поводу же реестра, то это просто:
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey("\Software\Microsoft\Windows\CurrentVersion\Run\", False);
Reg.GetValueNames(ListBox1.Items);


← →
Arkan ©   (2002-09-18 22:30) [2]

Спасибо за ответ. Но он породил другой вопрос :) У меня приложение без формы. Мне надо эти значения в string получить. Это возможно? Пробовал сделать массив string - тож не получилось. Подскажите?


← →
Kibitzer   (2002-09-18 22:37) [3]

var List: TStringList;
и далее:
List := TStringList.Create;
Reg.GetValueNames(List);

Всё. :)

И в конце не забудь: List.Free


← →
Arkan ©   (2002-09-18 22:43) [4]

Я вас, наверное, уже замучал, но как мне теперь работать с List. Например записать в файл или по одному выводить...
Сорри за ламерские вопросы :)


← →
Kibitzer   (2002-09-18 22:54) [5]

Вывод в файл:
List.SaveToFile("C:\RegKeyList.txt");

Вывод поэлементно:
for i := 0 to List.Count-1 do
begin
ShowMessage(List.Strings[i])
end;



> Сорри за ламерские вопросы :)
Слушай, ты не прикалываешься? Вопросы то для "первого класса"? :)


← →
Arkan ©   (2002-09-18 22:56) [6]

это я вступительные во второй пишу :)



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c
4-98405
wal
2002-08-14 11:56
2002.09.30
фокус ввода


1-98126
AndreyS
2002-09-20 10:37
2002.09.30
Битовые поля


14-98277
NetBreaker666
2002-09-02 23:16
2002.09.30
---|Ветка была без названия|---


1-98033
RidMan
2002-09-18 22:17
2002.09.30
Как запретить запуск второй копии копии приложения


1-98219
cher_gvf
2002-09-18 17:10
2002.09.30
Помогите с переходом даты




   Наверх