Главная страница
    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.053 c
11-1110379673
Boguslaw Brandys
2005-03-09 17:47
2005.11.20
TRegExpr in KOL ?


14-1130749014
Который Барлог
2005-10-31 11:56
2005.11.20
Вирус? :)


14-1130357222
LordOfRock
2005-10-27 00:07
2005.11.20
Muse


14-1130239426
Жук
2005-10-25 15:23
2005.11.20
Школьная парта


14-1130497437
штамм
2005-10-28 15:03
2005.11.20
На каком C приводятся примеры в Windows SDK ?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский