[Setup]
AppName=Моя программа
AppVersion=1.5
DefaultDirName={pf}\Моя программа
OutputDir=.
[Languages]
Name: "RU"; MessagesFile: "compiler:Languages\Russian.isl"
[Files]
Source: "compiler:Examples\MyProg.exe"; DestDir: "{app}"; Check: CheckCore
[Code]
#define AW = (Defined UNICODE) ? "W" : "A"
function GetEnvironmentVariable(lpName, lpBuffer: String; nSize: DWORD): DWORD;
external 'GetEnvironmentVariable{#AW}@kernel32.dll stdcall';
function GetEnvVar(const VariableName: String): String;
var
Len: DWORD;
begin
Len := GetEnvironmentVariable(VariableName, '', 0);
if Len > 0 then
begin
SetLength(Result, Len);
GetEnvironmentVariable(VariableName, Result, Len);
end;
end;
function CheckCore: Boolean;
begin
Result := StrToInt(GetEnvVar('NUMBER_OF_PROCESSORS')) >= 2;
end;