VPF::Реестр windows7 не регистрируется вылитает ошибка

Volkogriz

Дата 5.5.2015, 10:42 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: 1
Всего: 1

Всем здравствуйте!
У меня при регистрации в реестр выбивает постоянно ошибку только в windows7 в xp всё отлично.
подскажите что ни так? систему переустанавливал и на чистой тоже не регистрирует

Код


function TForm2.RegPrograms:boolean;
begin   
Reg:=TRegistry.create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\Westwood\Emperor',true);
Reg.LazyWrite := True;
Reg.WriteString('InstallPath',GamePach+'Emperor.exe');
Reg.WriteString('FolderPath',GamePach);
Reg.WriteString('Serial','4731640249971650404194');
Reg.WriteString('HTMLPath',GamePach+'Data\HTML');
Reg.WriteString('Desktop',GetFolderLocation('Desktop') + '\' +ExtractFileName('Emperor.exe'));
Reg.WriteString('Programs',GetFolderLocation('Programs') + '\Westwood');
Reg.WriteString('Name','Emperor');
Reg.WriteInteger('Version', 00010009);
Reg.WriteInteger('AmountStart', 00000007);
Reg.WriteInteger('SKU', 7936);
Reg.WriteInteger('MyAssembly',78260781);
Reg.CloseKey;
result:=true;
end;

С уважением,
Денис!

Это сообщение отредактировал(а) Volkogriz - 5.5.2015, 10:46

--------------------

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

Illusion Dolphin

Дата 5.5.2015, 11:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

Цитата

выбивает постоянно ошибку только в windows7 в xp всё отлично.
подскажите что ни так

[offtopic]Если у вас какая-то ошибка, попробуйте что-то исправить[/offtopic]
А теперь по теме - что за ошибка? Если с пермишнами то HKEY_LOCAL_MACHINE сюда только админы писать могут.

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

Volkogriz

Дата 5.5.2015, 12:16 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: 1
Всего: 1

Да я понял спасибо. Теперь думаю как записать от администратора не подскажите?
С уважением,
Денис!

--------------------

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

Illusion Dolphin

Дата 5.5.2015, 12:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

В минифест:

Код


<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
    <dependency>
        ...
    </dependency>
    <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
        <security>
            <requestedPrivileges>
                <requestedExecutionLevel level="requireAdministrator"></requestedExecutionLevel>
            </requestedPrivileges>
        </security>
    </trustInfo>
    <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1"> 
        <application> 
            ...
        </application> 
    </compatibility>
</assembly>

--------------------

Volkogriz

Дата 5.5.2015, 13:29 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: 1
Всего: 1

о монифесте думал)) никак без него нельзя?

--------------------

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

Illusion Dolphin

Дата 5.5.2015, 22:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

Цитата

никак без него нельзя

Можно, но не нужно. То, что вы делаете - это установка программы в систему и делается инсталятором и требует прав администратора.

--------------------

Zlo

Дата 9.5.2015, 03:59 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 235
Регистрация: 18.9.2004

Репутация: 1
Всего: 1

Можно сделать проверку на то запущена ли программа с админскими правами или нет-прикрепил файл.
В файле dpr прописываю вот такие строки:

Код


if not IsUserAnAdmin then
     if MessageDlg('Программа запущена без прав Администратора,'+#10#13+
                   'программа может работать не правильно.'+#10#13+
                   'Желаете продолжить?',mtWarning,[mbYes, mbNo],0) = mrNo then
     Application.Terminate;

в uses не забыть добавить модуль.

Присоединённый файл ( Кол-во скачиваний: 3 )

unitIsAdmin.pas 7,11 Kb

Illusion Dolphin

Дата 9.5.2015, 10:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

Цитата

Программа запущена без прав Администратора,'+#10#13+
'программа может работать не правильно.'+#10#13+

Хаха и что теперь юзеру делать? У него округляются глаза и он удаляет программу smile

--------------------

Volkogriz

Дата 9.5.2015, 14:26 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: 1
Всего: 1

Всем спасибо! сдделал с манифестом) Праверка та точьно ненужна, эта программа устанавливает игру и регистрируется вреестре после. Illusion Dolphin прав на счёт:

Цитата

и что теперь юзеру делать? У него округляются глаза и он удаляет программу

))
С уважением,
Денис!

Это сообщение отредактировал(а) Volkogriz - 9.5.2015, 14:31

--------------------

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »