[Nightwishh]

Я опять с вопросом о ComponentsDiskSpaceLabel. Как можно загрузить текст на лейбл, из "ComponentsDiskSpaceLabel"

Код:

Caption:= SetupMessage(msgComponentsDiskSpaceMBLabel);

и

Код:

Caption:= ComponentsDiskSpaceLabel.Caption

что-то не работают!

[Mailchik]

Nightwishh,

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Code]
procedure InitializeWizard;
 begin
  WizardForm.WelcomeLabel1.Caption := WizardForm.ComponentsDiskSpaceLabel.Caption;
end;

[elmariacci]

есть вот такая часть скрипта для worldoftanks ))

папка по умолчанию: C:\Games\World_of_tanks

а папка где проверять наличие выглядит так: C:\Games\World_of_tanks\res_mods\0.8.5\audio -именно там она должна быть,иначе при установке любого из двух компонентов пропадает звук,т.к. клиент обращается к папке,где попадают только 2 файла из инсталятора.
Тоесть для проверки могу сделать компонент "zvuk",а вот как прописать путь поиска?
Или второй вариант втихую скопировать нужную папку из одной папки в другую без вмешательство пользователя?

Name: "zvuk"; Description: "Звуки(перед установкой скопируйте папку audio в res_mods\0.8.5\)"
Name: "zvuk\audio"; Description: "Звонок крита";
Name: "zvuk\zasvet"; Description: "Озвучка лампочки";

и потом в секции
[code]

function NextButtonClick(CurPageID: Integer): Boolean;
begin
if CurPageID = wpSelectComponents then
begin
if IsComponentSelected('zvuk') then Result := DirExists(AddBackslash(RemoveBackslash(WizardDirValue())) + 'audio') else Result := True;
if not Result then MsgBox('В выбранной Вами директории установки нет папки "audio"!', mbError, MB_OK);
end else Result := True;
end;

[Johny777]

\....\....\audio »

Хочешь вернуться на два уровня назад? Юзай FileSystemObject (он умеет многое ) :

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

Код:

[code]
function GetParentFolderName(const Path: String): String;
var
    oFS: Variant;
begin
    oFS := CreateOleObject('Scripting.FileSystemObject');
    try
        Result := oFS.GetParentFolderName(path);
    except
        ShowExceptionMessage();
    end;
end;

procedure InitializeWizard();
begin
    MsgBox(GetParentFolderName(GetParentFolderName('C:\Program Files\Adobe\Adobe After Effects CS5')), mbInformation, MB_OK);
end;

несколько примеров его использования есть в шапке темы, остальное в MSDN:
http://msdn.microsoft.com/en-us/libr...=vs.60%29.aspx
http://msdn.microsoft.com/en-us/libr...=vs.60%29.aspx

[saurn]

elmariacci, если я вас правильно понял, то так:

Код:

if IsComponentSelected('zvuk') then Result := DirExists(AddBackslash(RemoveBackslash(WizardDirValue())) + 'res_mods\0.8.5\audio') else Result := True;

[Johny777]

0.8.5 »

elmariacci эта папка всегда так называется? (В worldoftanks не гамал)

[saurn]

Всё верно, но эта папка всегда так называется? »

Мм, а вот об этом я что-то не подумал.

Есть вопрос, просветите неуча. Раньше версию системы через код никогда не проверял. Но тут понадобилось, чтобы некая функция вызывалась, только от версии винды 6 и выше( Тоесть Vista, 7 и т.д.)

Код:

function iWinVersion(): Boolean;
begin
  GetWindowsVersionEx (Version);
  if (Version.NTPlatform and (Version.Major > 5)) then
  Result := true
  else Result := False;
end;

Оно?

[Johny777]

saurn,
Держи: http://forum.oszone.net/post-2108378-1847.html
Определяемые виндовсы: Windows2000, Windows2003, WindowsXP, WindowsVista, Windows7, Windows8


UPD: если нужны только с 6. то кастрируй функцию :

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

Код:

#ifdef UNICODE
    #define A "W"
#else
    #define A "A"
#endif

type
  _OSVERSIONINFO = record
    dwOSVersionInfoSize: DWORD;
    dwMajorVersion: DWORD;
    dwMinorVersion: DWORD;
    dwBuildNumber: DWORD;
    dwPlatformId: DWORD;
    szCSDVersion: array[0..127] of Char;
  end;

function GetVersionEx(var lpVersionInformation: _OSVERSIONINFO): BOOL; external 'GetVersionEx{#A}@kernel32.dll stdcall';

function IsWin7AndNewer(): Boolean;
var
  VersionInformation: _OSVERSIONINFO;
begin
  VersionInformation.dwOSVersionInfoSize := SizeOf(VersionInformation);
  if not GetVersionEx(VersionInformation) then Exit;
  Result := VersionInformation.DwMajorVersion >= 6;
end;

PS: виста и выше это 6.что-то_там

[saurn]

если нужны только с семёрки то кастрируй функцию »

Да, нужно только от висты и выше. Спасибо за примеры, дальше уже разберусь

эта папка всегда так называется? »

Тоже никогда не играл, но думаю эти циферки зависят от версии клиента. Если имя папки аналогично фактической версии, можно выдернуть номер версии из реестра и подставлять строкой в качестве имени папки, что-то типа:

Код:

AddBackslash('res_mods') + ClientVersion + '\audio'

Хотя, это наверное уже изврат)

[elmariacci]

Цитата saurn: 0.8.5 » elmariacci эта папка всегда так называется? (В worldoftanks не гамал) »

нет - это локальный патч на данный момент - дальше могут быть другие цифры типа 0.8.6 и тд