Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.11.20;
Скачать: [xml.tar.bz2];

Вниз

реестр и Delphi   Найти похожие ветки 

 
Mister   (2005-10-27 02:39) [0]

Такая вот зараза - надо запускать PainKiller и для этого смотреть в реестре, где он находится. Ну, я так и делаю:

procedure TForm1.SpeedButton2Click(Sender: TObject);
var  s : string;
 Reg  : TRegistry;
 bo:boolean;
begin
reg:=tregistry.Create;
try
Reg.RootKey := HKey_Current_User;
Reg.OpenKey("HKEY_LOCAL_MACHINE\SOFTWARE\PeopleCanFly\Painkiller\", false);
s := reg.ReadString ("EXEpath");
finally
REg.CloseKey;
reg.FrEe;
end;
Пока я не запускаю, а просто смотрю - видит он его, или не видит
speedbutton2.Caption:=s ;
и вывожу путь к файлу в виде надписи для кнопки
end;

Короче - ничего не получается. Я пробовал проверить истинность openkey - и раздел действительно существует, то есть Readstring - не работает.
А тип строки reg_expand_sz, то есть так он строку видеть не хочет.

.Как получить всё-же эту строку


 
boalse ©   (2005-10-27 04:46) [1]

а "EXEpath" существует?



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

Форум: "Основная";
Текущий архив: 2005.11.20;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.14 c
11-1110388878
stals
2005-03-09 20:21
2005.11.20
Kol и DLL (Плагины)


8-1120155066
ronyn
2005-06-30 22:11
2005.11.20
Минимизация названия медиа файла в ListBox


14-1130501973
NiGGa
2005-10-28 16:19
2005.11.20
Компонента графика


14-1130399289
boriskb
2005-10-27 11:48
2005.11.20
Ходорковский


9-1118375385
Anonim
2005-06-10 07:49
2005.11.20
Как сохранить нарисованное OpenGL ем в Bmp-файл?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский