Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Dodakaedr

Ветеран


Сообщения: 863
Благодарности: 262

Профиль | Отправить PM | Цитировать


audiofeel, Попробуйте это:
читать дальше »
Код: Выделить весь код
[ Code]
function GetWindowLong(Wnd: HWnd; Index: Integer): Longint; external 'GetWindowLongA@user32.dll stdcall'; 
function SetClassLong(hWnd: HWND; Index, NewLong: Longint): Longint; external 'SetClassLongA@user32 stdcall';
 
procedure InitializeWizard;
begin
 WizardForm.BorderStyle:= bsNone; //Скрываем границы инсталлятора 
 SetClassLong(WizardForm.Handle, (-26), GetWindowLong(WizardForm.Handle, (-26)) or $00020000); //Чтобы отрисовалась тень от окна инсталлятора
end;

-------
Inno Setup 5 Ultra Unicode


Отправлено: 23:44, 28-06-2014 | #995