Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

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

Пользователь


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

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


Изображения
Тип файла: jpg 2013-03-08 3-3-18.jpg
(53.2 Kb, 15 просмотров)

Разъясните пожалуйста ситуацию, можно ли заскинировать через ISSkin.dll всю область "Выбора языка установки" http://forum.oszone.net/attachment.p...1&d=1362698177 . Вот код который я стыбзил с кринкелса
Код: Выделить весь код
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
DefaultGroupName=My Application
UninstallDisplayIcon={app}\MyProg.exe
SolidCompression=yes
Compression=lzma/ultra
OutputDir=.

[Files]
Source: ISSkin.dll; DestDir: {app}; Flags: dontcopy
Source: Skin.cjstyles; DestDir: {tmp}; Flags: dontcopy

[Icons]
Name: {group}\my application; Filename: {app}\MyProg.exe

[Code ]
procedure LoadSkin(lpszPath: String; lpszIniFileName: String); external 'LoadSkin@files:ISSkin.dll stdcall';
procedure UnloadSkin(); external 'UnloadSkin@files:ISSkin.dll stdcall';,
function CallWindowProc(lpPrevWndFunc: Longint; hWnd: HWND; Msg: UINT; wParam, lParam: Longint): Longint;
 external 'CallWindowProc@user32.dll stdcall delayload';
function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint;
 external 'SetWindowLong@user32.dll stdcall delayload';

function InitializeLanguageDialog(): Boolean;
begin
  ExtractTemporaryFile('Skin.cjstyles');
	LoadSkin(ExpandConstant('{tmp}\Skin.cjstyles'), '');
	Result := True;
end;

procedure DeinitializeSetup();
begin
	UnloadSkin();
end;
Спасибо.

Отправлено: 03:17, 08-03-2013 | #1818