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

Вниз

Как програмно в реестре записать данные в значение "По умолчанию"   Найти похожие ветки 

 
VeTaL_Programmer   (2004-05-15 12:23) [0]

Не подскажете, как програмно в реестре записать данные в значение "По умолчанию"?
Я пытался так:

procedure TForm1.SpeedButton2Click(Sender: TObject);
var
Reg:TRegistry;

begin

reg:=Tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey("Software\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\CleanupPath",true);
reg.WriteExpandString("default","1234") ;
reg.CloseKey;
reg.Destroy;

end;

Но не получается.

Заранее спасибо.


 
GuAV   (2004-05-15 12:29) [1]

Default не "default", а пустая строка, IMHO.


 
GuAV   (2004-05-15 12:32) [2]


> Tregistry.Create


А если не Create ?...


with Tregistry.Create do
try
RootKey:=HKEY_LOCAL_MACHINE;
OpenKey("Software\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\CleanupPath",true);
WriteExpandString("default","1234") ;
CloseKey;
finally
free;
end;


 
VeTaL_Programmer   (2004-05-15 12:37) [3]

Чото не получается !


 
VeTaL_Programmer   (2004-05-15 12:42) [4]

Извиняюсь!
С пустой строкой получилось!



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

Форум: "WinAPI";
Текущий архив: 2004.06.20;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.03 c
6-1083243303
Koba
2004-04-29 16:55
2004.06.20
Содержимое каталога


6-1083427050
arp
2004-05-01 19:57
2004.06.20
Оптимизация сканирования локальной сети


1-1086696134
Ale
2004-06-08 16:02
2004.06.20
Cursor (mouse)


14-1086314387
Kair
2004-06-04 05:59
2004.06.20


1-1086250679
BlackTiger
2004-06-03 12:17
2004.06.20
Как же все-таки вывести на Canvas многострочный текст ПОД УГЛОМ?





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