Zimbo
Участник
Пользователь Zimbo разместил новый ресурс:
Diablo 3 Install - Скрипт Diablo 3 Install.
Diablo 3 Install - Скрипт Diablo 3 Install.
Узнать больше об этом ресурсе...
-
Уважаемые гости и пользователи форума.
Администрация настоятельно рекомендует не регистрировать несколько аккаунтов для одного пользователя. При выявлении наличия мультиаккаунтов будут заблокированы все учетные записи данного пользователя.
Аккаунты, зарегистрированные на временную почту, будут также заблокированы.
Скрипт Diablo 3 Install 1.5.8
- Автор темы Zimbo
- Дата начала
SimSalabim
Мимокрокодил
Что за косяк Zimbo в Diablo 3 Install v 1 2 0, белая рамка при установке по краям в инстала ???
Что за косяк Zimbo в Diablo 3 Install v 1 2 0 белые полосы в инстале
Что за косяк Zimbo в Diablo 3 Install v 1 2 0 белые полосы в инстале
Zimbo
Участник
А без пруфа - я-бы удалил.
Эмм... дефолт винды - юникод, начиная с вин 2000
для этого и нужны директивы перпроцессора, чтоб вызывать соответствующие версии апишных функций и соответствующие версии типы.
хм... какбы странно то не было, но у меня заработало если:
Код:
function LoadImage(hInst: THandle; ImageName: PAnsiChar; ImageType: UINT; X, Y: Integer; Flags: UINT): THandle; external 'LoadImage{#A}@user32.dll stdcall';
Код:
function LoadImage(hInst: THandle; ImageName: PAnsiChar; ImageType: UINT; X, Y: Integer; Flags: UINT): THandle; external 'LoadImageA@user32.dll stdcall';
ЗЫ и да я догадываюсь, что скажет Gnom
Не угадал. Я тоже обратил внимание, что на юникоде работают более правильно именно анси вызовы. просто нужно смотреть юникодные вызова - там отличие не только в букве но и в переменных - в принципе при вызове ты можешь указать и ансишные, но требуются как раз другие :
Код:
function LoadImageA(hInst: HINST; ImageName: PAnsiChar; ImageType: UINT; X, Y: Integer; Flags: UINT): THandle; stdcall;
function LoadImageW(hInst: HINST; ImageName: PWideChar; ImageType: UINT; X, Y: Integer; Flags: UINT): THandle; stdcall;А для чего ты такой красивый инсталл писал( или точнее собирал из того,что нашел)? что-бы люди с ним помучались, и ввиду невозможности использования этой красоты "юзали дефолт"?
Последнее редактирование:
Zimbo
Участник
Спасибо за подсказку, я думал что или в ней ошибка или в function DeleteObject(p1: LongWord): BOOL; external 'DeleteObject@gdi32.dll stdcall'; которая для юникода вызывается DeleteObjectW, но она работала как раз правильно, спасибо Вам и Эде
Ну "собрал" это как то значить вроде я куски скрипта клеил, а и я оптимизировал вызовы, но не знал что функции отличютсяGnom написал(а):
буду как нибудь оптимизировать весь скрипт - буду нуждатся в Вашей помощи, чтобы избежать подобных проколов
З.Ы. SimSalabim для исправления косяка смотрите пост Edison007
ну да точно, вчера вечером было лень глянуть... ну тогда поидее можно просто в вызове вместо PAnsiChar написать String, должно и на анси, и на юникоде работать.
Там всего один вызов DeleteObjectW, вызов DeleteObjectA отсутствует...
лучше заменить переменую
Последнее редактирование:
PUNISHER, Там это легко выправить с помощью директивы препроцессара
В принципе так и сделано, не учтено, что переменные тоже отличаются. тут эдя правильно сказал - переменная string вполне подходит для временного решения, поскольку в анси она равна AnsiString а в юникоде - WideString, что по размеру уже подхит к условим.
Код:
#ifdef UNICODE
юникодный вызов
#else
анси-вызов
#ehdif
Последнее редактирование:
aLLeXUs
Участник
Inknorth, держи — http://rghost.ru/39772271
P.S. Если подробнее, то нужно было в DirEditOnChange добавить
В секции SelectProgrammGroupPage закомментировать две строчки(я не знаю почему их там две)
и там же добавить
P.S. Если подробнее, то нужно было в DirEditOnChange добавить
Код:
if WizardForm.CurPageID = wpSelectProgramGroup then begin
GroupEditLabel.Caption:=MinimizePathName(WizardForm.GroupEdit.Text, GroupEditLabel.Font, GroupEditLabel.Width);
end;
Код:
WizardForm.DirEdit.OnChange:=@DirEditOnChange;
Код:
WizardForm.GroupEdit.OnChange := @DirEditOnChange;