[Iska]

R.i.m.s.k.y., если речь про встроенный язык Pascal Scripting — то да, там такое есть. Например:

Код:

function InitializeSetup(): Boolean;
  var MyVar: Single;
begin
  MsgBox(FloatToStr(10.0 / 3.0), mbInformation, MB_OK);

  MyVar := 9.0 / 2;
  MsgBox(FloatToStr(MyVar),      mbInformation, MB_OK);
end;

[R.i.m.s.k.y.]

не, мне хотелось бы как-то так

Код:

var ar1, ar2 : float
ar1 := 25/98
ar2 := 3.1415926
if ar1 > ar2 then ...

[Iska]

не, мне хотелось бы как-то так »

R.i.m.s.k.y., можно «и так»:

Код:

function InitializeSetup(): Boolean;
  var ar1, ar2 :Single;
begin
  ar1:= 25.0 / 98;
  ar2:= 3.1415926;

  if ar1 > ar2 then
     MsgBox(Format('ar1=%f ar2=%f ar1 > ar2', [ar1, ar2]), mbInformation, MB_OK)
  else
     MsgBox(Format('ar1=%f ar2=%f ar1 <= ar2', [ar1, ar2]), mbInformation, MB_OK);
end;

Скрытый текст

[R.i.m.s.k.y.]

Single »

вот! я то писал и float и extended
а single не додумался

[Iska]

R.i.m.s.k.y., ну, и обратите внимание, что хотя для получения результата деления двух целых чисел в виде числа с плавающей запятой достаточно переменной данного типа, но чтобы получить правильный результат, хотя бы один из операндов деления должен быть тоже числом с плавающей запятой. Иначе сначала получается результат в виде целого, который только потом преобразуется к числу с плавающей запятой и может оказаться так:

Скрытый текст

[R.i.m.s.k.y.]

Iska, ничоси нюансы! дзинкуе!

[Iska]

R.i.m.s.k.y., нет, это издержки обучения широкого профиля . Чаще полезные, но иногда начинаешь путать, что к какому языку относится.

[vk_k14m@vk]

Народ. Когда то давно, товарищ R.i.m.s.k.y. подкинул мне полезный код.

Код:

[Files]                                                                                                     
Source: "D:\AA2Decrypt_unpack.bat"; DestDir: "{app}"; Components: Main; AfterInstall: install_this_file_1; Flags: ignoreversion recursesubdirs createallsubdirs deleteafterinstall solidbreak

[Сode]
procedure install_this_file_1();
var res:integer; file, path : string;
begin
  file := ExpandConstant('{app}\AA2Decrypt_unpack.bat'); path := ExpandConstant('{app}');
  if FileExists(file) then Exec(file, 'параметры',path,SW_SHOW,ewWaitUntilTerminated,res) else MsgBox('Файл' + ' ' + file + #13#10 + 'не найден', mbInformation, MB_OK);
end;

Думаю вам то ясно что он делает. Запускает файла AA2Decrypt_unpack.bat сразу же после его установки.

А можно как то сделать его скрытый запуск? Что б не отображалось окно командной строки. В секции [Run] есть фалг runhidden. Хотелось бы что-то подобное...

[Iska]

vk_k14m@vk, установите третий чётвёртый параметр функции Exec() равным нулю.

[vk_k14m@vk]

установите третий параметр функции Exec() равным нулю. »

Покажите конкретно. На примере. Вместо
Exec(file, 'параметры',path,SW_SHOW
подставить
Exec(file, 'параметры',path,0 ?

Или не 0 а SW_HIDE?