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

Вниз

Помогите с регистром!!!   Найти похожие ветки 

 
Gefest80   (2005-10-07 00:02) [0]

Удалено модератором
Примечание: CПАМ


 
Германн ©   (2005-10-07 01:11) [1]

А что. Эта функция обязана записывать какой-то файлик?


 
GanibalLector ©   (2005-10-07 02:30) [2]

>D7, WinXP
Для данной ОС необходимо получить соответсвуюшие привелегии.И только потом выполнять ф-цию SaveKey. Более того,файл в который будет сохранена  информация из реестра НЕ ДОЛЖЕН СУЩЕСТВОВАТЬ!

Пример :

var
 hToken: THandle;
 dwLength: DWORD;
 tpNewState, tpPrevState: TOKEN_PRIVILEGES;
const RegName="D:\Reg.old";
begin
 if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES+TOKEN_QUERY, hToken) then
 begin
   if LookupPrivilegeValue(nil, "SeBackupPrivilege",tpNewState.Privileges[0].Luid) then
   begin
     tpNewState.PrivilegeCount := 1;
     tpNewState.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
     AdjustTokenPrivileges(hToken, False, tpNewState,SizeOf(TOKEN_PRIVILEGES), tpPrevState, dwLength);
     {Test is True.}
     with TRegistry.Create do
     try
       RootKey := HKEY_LOCAL_MACHINE;
       if FileExists(RegName) then
         DeleteFile(RegName);
       SaveKey("Software\Borland", RegName);
     finally
       Free;
     end;
     tpNewState.Privileges[0].Attributes := 0;
     AdjustTokenPrivileges(hToken, True, tpNewState,SizeOf(TOKEN_PRIVILEGES), tpPrevState, dwLength);
   end;
 end;
end;


 
Brother ©   (2005-10-07 07:28) [3]

а регистор тут причем?



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

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

Наверх




Память: 0.44 MB
Время: 0.037 c
2-1128118304
SergProger
2005-10-01 02:11
2005.10.30
Помогите разбраться с TFileStream


14-1128893202
Piter
2005-10-10 01:26
2005.10.30
Включение IP маршрутизации


2-1128680067
Os
2005-10-07 14:14
2005.10.30
Базы данных


4-1124984548
psa247
2005-08-25 19:42
2005.10.30
Зная ProcessID - узнать, есть ли у него форма и получить ее hwnd


14-1128678091
XGarik
2005-10-07 13:41
2005.10.30
Деньги за воздух





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