[El Sanchez]

А нет ли у кого-нибудь случаем алгоритма кодирования в/декодирования base64 для инно? »

Shkutu, держите, делал когда-то для одного товарища:

читать дальше »

Код:

#define A = (Defined UNICODE) ? "W" : "A"

const
    CRYPT_STRING_BASE64 = $1;
    IS_TEXT_UNICODE_STATISTICS = $2;
 
function MultiByteToWideChar(CodePage: UINT; dwFlags: DWORD; lpMultiByteStr: String; cbMultiByte: Integer; lpWideCharStr: String; cchWideChar: Integer): Integer; external 'MultiByteToWideChar@kernel32.dll stdcall';
function WideCharToMultiByte(CodePage: UINT; dwFlags: DWORD; lpWideCharStr: String; cchWideChar: Integer; lpMultiByteStr: String; cbMultiByte, lpDefaultChar: Integer; lpUsedDefaultChar: Longint): Integer; external 'WideCharToMultiByte@kernel32.dll stdcall';
function CryptBinaryToString(pbBinary: Longint; cbBinary, dwFlags: DWORD; pszString: Longint; var pcchString: DWORD): BOOL; external 'CryptBinaryToString{#A}@crypt32.dll stdcall';
function CryptStringToBinary(szString: String; cchString, dwFlags: DWORD; pbBinary: Longint; var pcbBinary, pdwSkip, pdwFlags: DWORD): BOOL; external 'CryptStringToBinary{#A}@crypt32.dll stdcall';
function IsTextUnicode(const lpv: String; iSize: Integer; var lpiResult: Integer): BOOL; external 'IsTextUnicode@advapi32.dll stdcall';

/////////////////////////////////////////////////////////////////////////////////////////////////////
function Base64Encode(const szString: String; const dwFlags: DWORD; const bUnicode: Boolean): String;
var
    cchString: DWORD;
    pszString, pszResult: Longint;
    iLength: Integer;
#ifdef UNICODE
    szAnsiString: AnsiString;
#endif
begin
    if Length(szString) = 0 then Exit;
    iLength := Length(szString);
    if bUnicode then
    begin
        iLength := iLength shl 1;
    #ifndef UNICODE
        SetLength(Result, iLength);
        MultiByteToWideChar(0, 1, szString, -1, Result, Length(Result));
        szString := Result;
    #endif
        pszString := CastStringToInteger(szString);
    end else begin
    #ifdef UNICODE
        szAnsiString := szString;
        pszString := CastAnsiStringToInteger(szAnsiString);
    #else
        pszString := CastStringToInteger(szString);
    #endif
    end;
    if not CryptBinaryToString(pszString, iLength, dwFlags, 0, cchString) then Exit;
    Result := StringOfChar(#0, cchString-1);
    pszResult := CastStringToInteger(Result);
    CryptBinaryToString(pszString, iLength, dwFlags, pszResult, cchString);
end;

////////////////////////////////////////////////////////////////////////////
function Base64Decode(const szString: String; const dwFlags: DWORD): String;
var
    cchString, dwSkip: DWORD;
    pszResult, iResult: Longint;
    szBuffer: String;
begin
    if Length(szString) = 0 then Exit;
    if not CryptStringToBinary(szString, Length(szString), dwFlags, 0, cchString, dwSkip, dwFlags) then Exit;
    Result := StringOfChar(#0, cchString);
    pszResult := CastStringToInteger(Result);
    CryptStringToBinary(szString, Length(szString), dwFlags, pszResult, cchString, dwSkip, dwFlags);
    szBuffer := Result;
    iResult := IS_TEXT_UNICODE_STATISTICS;
    if IsTextUnicode(Result, cchString, iResult) then
    begin
    #ifndef UNICODE
        SetLength(Result, Length(Result) shr 1);
        WideCharToMultiByte(0, 0, szBuffer, -1, Result, Length(Result), 0, 0);
    end;
    #else
        Result := CastIntegerToString(pszResult);
    end else Result := CastIntegerToAnsiString(pszResult);
    #endif
end;

/////////////////////////////
procedure InitializeWizard();
begin
    MsgBox(Format('Исходная строка: %s'#13#10'Кодированная строка (ANSI): %s', ['test1', Base64Encode('test1', CRYPT_STRING_BASE64, False)]), mbInformation, MB_OK);
    MsgBox(Format('Исходная строка: %s'#13#10'Кодированная строка (Unicode): %s', ['test1', Base64Encode('test1', CRYPT_STRING_BASE64, True)]), mbInformation, MB_OK);
    MsgBox(Format('Исходная строка (ANSI): %s'#13#10'Декодированная строка: %s', ['dGVzdDE=', Base64Decode('dGVzdDE=', CRYPT_STRING_BASE64)]), mbInformation, MB_OK);
    MsgBox(Format('Исходная строка (Unicode): %s'#13#10'Декодированная строка: %s', ['dABlAHMAdAAxAA==', Base64Decode('dABlAHMAdAAxAA==', CRYPT_STRING_BASE64)]), mbInformation, MB_OK);
end;

[FX-DENIS]

наоборот в самый низ секции файлов »

Спасибо завтра проверю,не думал,что последовательность в секции Files так жестко влияет на итог,даже в справке по моему не упоминается.Так же спасибо за ваши сборки Инно Ультра,только ей и пользуюсь,правда она устарела,вышли новые версии инно и dll,но я просто копирую в вашу папку куда установлена ультра с заменой(надеюсь так и нужно).Еще раз спасибо вам.

[Gnom_aka_Lexander]

FX-DENIS, просто при солид-сжатии, когда файлы самого приложения идут до файлов оформления, которые нужны в работе инсталла, ему приходится ооочень долго добираться до этих служебных файлов. если не полениться и почитать архив темы, то вопрос этот всплывал несколько десятков раз. Кто-то даже помнится писал о нескольких часах ожидания..
По аналогии - видел как-то рекламу каких-то чипсов, которые продаются в трубчатой упаковке. Вот, чтоб представить себе муки инсталла, нужно купить такую банку чипсов и попытаться достать из нее самый нижний чипс не вынимаю все остальные, и не отрезая донышка банки.

[Dimas2011]

Ребята помогите не показывает картинку.я пытаюсь сделать так что когда выбираешь куда устанавливать файлы потом открывается сам список того что хочешь установить. так чтобы когда наводишь на название какого-то файла выскакивала картинка а оно не работает.Test.rar »

помогите

[Johny777]

Dimas2011, впиши InitInfo(); в InitializeWizard();
ты используешь этот код: http://forum.oszone.net/post-2169372-662.html
Он был недавно обновлён, я исправил в нём ошибку и оптимизировал.
замени у себя старую его версию на новую

PS:
и на будущее: будь добр выкладывать скрипт с файлами, чтоб перед тем как искать ошибку ни мне ни другим не приходилось закомментировать участки кода и/или искать нужные файлы
в твоём случае например это были

читать дальше »

Source: Files\A.bmp; Flags: dontcopy nocompression
Source: Files\B.bmp; Flags: dontcopy nocompression
Source: Files\C.bmp; Flags: dontcopy nocompression
Source: Files\D.bmp; Flags: dontcopy nocompression
Source: Files\logo.bmp; Flags: dontcopy
Source: Files\BASS.dll; Flags: dontcopy
Source: Files\sound.mp3; Flags: dontcopy nocompression
Source: Files\MusicButton.bmp; Flags: dontcopy
Source: Files\DirBitmap.bmp; DestDir: "{tmp}"; Flags: dontcopy
Source: Files\GroupBitmap.bmp; DestDir: "{tmp}"; Flags: dontcopy

[Mat_y]

Johny777, в коде, который Вы привели в качестве примера (кстати еще раз спасибо)... за что отвечает эта часть? Можно получить коментарии к строкам, если не затруднит?

Код:

procedure CompOnClick(Sender: TObject);
var
  i, k: Integer;
begin
  k:= -1;
for i:= 0 to 3 do begin
if WizardForm.ComponentsList.Checked[1+i] then
begin
  k:= i;
  Break;
end;
end;
if (k=-1)or(cur=k) then Exit;
  ImgSetVisibility(png[cur], False);
  ImgSetVisibility(png[k], True);
  cur:= k;
  ImgApplyChanges(WizardForm.SelectComponentsPage.Handle);
end;

И еще... как добавить поле с компонентами на форму с произвольными размерами... ну, сказать, что на этой странице должно быть поле с компонентами, такого-то размера в том-то месте.

[Optitron]

Здравствуйте. как сделать так, чтобы "DefaultDirName" для каждого компонента был разный? Например для компонента "One" "DefaultDirName={pf}\Game One", а для "Two" соответственно "DefaultDirName={pf}\Game Two"

[Farser21]

Всем привет, вопрос такой.
В стандартном установщике, когда идет странице выбора компонентов, очень маленькое окно, подскажите как его сделать больше? Чтобы е нужно было постоянно прокручивать бегуной.

[Dimas2011]

Он был недавно обновлён, я исправил в нём ошибку и оптимизировал. замени у себя старую его версию на новую »

а можно сылку на обновленый??

[Nordek]

а можно сылку на обновленый?? »

Так Johny777 в своём сообщении указал ссылку. Что тебе ещё? Персонально указать? Сообщение: 662. И посмотри там чуть ниже написано "Последний раз редактировалось Johny777, 05-12-2013 в 23:26.", наверно не трудно догадаться что к чему.