Форум: "Начинающим";
Текущий архив: 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