[Johny777]

Ваня
я тебе уже писал
думал ты научился
http://forum.oszone.net/post-1886671-1326.html

Садись
2 тебе в дневник
завтра рядом с этой двойкой чтоб подпись родителей стояла!

[Ivan_009]

Johny777 спасибо, до меня сначала не дошло.

[ivsatel]

Подскажите почему "identifer expected" на else

Код:

function InitializeSetup(): Boolean;
var
    ErrorCode: Integer;
    NetFrameWorkInstalled : Boolean;
    Result1 : Boolean;
begin
  NetFrameWorkInstalled := RegKeyExists(HKLM,'SOFTWARE\Microsoft\.NETFramework\policy\v2.0');
  if NetFrameWorkInstalled =true then
    begin
      Result := true;
end;
  if NetFrameWorkInstalled = false then
    begin
      Result1 := MsgBox('This setup requires the .NET Framework. Please download and install the .NET Framework and run this setup again. Do you want to download the framwork now?',
      mbConfirmation, MB_YESNO) = idYes;
  if Result1 =false then
    begin
      Result:=false;
    end;
else
begin
      Result:=false;
      InstShellExec('http://www.microsoft.com/downloads/info.aspx?na=41&SrcFamilyId=0856EACB-4362-4B0D-8EDD-AAB15C5E04F5&SrcDisplayLang=ru&u=http%3a%2f%2fdownload.microsoft.com%2fdownload%2f5%2f6%2f7%2f567758a3-759e-473e-bf8f-52154438565a%2fdotnetfx.exe','','',SW_SHOWNORMAL,ErrorCode);
begin
  NetFrameWorkInstalled := RegKeyExists(HKLM,'SOFTWARE\Microsoft\.NETFramework\policy\v4.0');
  if NetFrameWorkInstalled =true then
    begin
      Result := true;
end;
  if NetFrameWorkInstalled = false then
    begin
      Result1 := MsgBox('This setup requires the .NET Framework. Please download and install the .NET Framework and run this setup again. Do you want to download the framwork now?',
      mbConfirmation, MB_YESNO) = idYes;
  if Result1 =false then
    begin
      Result:=false;
    end;
else
begin
      Result:=false;
      InstShellExec('http://www.microsoft.com/downloads/info.aspx?na=41&SrcFamilyId=0A391ABD-25C1-4FC0-919F-B21F31AB88B7&SrcDisplayLang=ru&u=http%3a%2f%2fdownload.microsoft.com%2fdownload%2f9%2f5%2fA%2f95A9616B-7A37-4AF6-BC36-D6EA96C8DAAE%2fdotNetFx40_Full_x86_x64.exe','','',SW_SHOWNORMAL,ErrorCode);
end;
end;
end;
end;
end;
end;
end;

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

Подскажите почему "identifer expected" на else »

перед else точка с запятой не ставится

[ivsatel]

Тогда InstShellExec почему то "unknown identifier")
Вот так работает:
ShellExec('open', 'http://download.microsoft.com/download/a/a/c/aac39226-8825-44ce-90e3-bf8203e74006/dotnetfx.exe','','',SW_SHOWNORMAL,ewNoWait,ErrorCode);

[Temyraz@fb]

Johny777, в деинстоляторе он не будет искать ключ, он будет удалять одинакова в обоих случаях. полное удаление системы.
но там есть условия, если пользователь выбрал сделать бекап, то сначала делается бекап базы и файлов, это уже сделано у меня.
я читал как ты говорил, только почему та у меня там в итоге два деистолятора, один из которых просто все удаляет, а второй делает по скрипту. но надо сделать либо все в одном файле, либо чтоб один вызвал другого.

[Johny777]

я читал как ты говорил .... либо чтоб один вызвал другого. »

Нет. Не читал*(или плохо читал) .То что ты хочешь реализовано и описано по русски как (и при каком условии).
И касательно бэкапа повторюсь, Тот бэкап в том виде криво работал если директорию оставить по умолчанию и не менять. Проверь.
ЗЫ
я хочу чтобы ты сделал, а не я, тк тебе виднее что удалять,

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

Serega, El Sanchez, Александр Друзь

подскажите, пожалуйста, как узнать "канальность" звука в windows »

[Lancher]

Здравствуйте, поиск не помог.
Как сделать размер собранного инстяллятора больше 2,100,000,000 не используя diskspanning? Нужен один цельный файл.

[El Sanchez]

подскажите, пожалуйста, как узнать "канальность" звука в windows »

R.i.m.s.k.y., с bass.dll:

Код:

type
    BASS_CHANNELINFO = record
        freq, chans, flags, ctype, origres, plugin, sample: DWORD;
        filename: String;
    end;

function BASS_Init(device: Integer; freq, flags: DWORD; win: HWND; CLSID: Integer): BOOL; external 'BASS_Init@files:bass.dll stdcall delayload';
function BASS_StreamCreateFile(mem: BOOL; file: String; offset, length: Single; flags: DWORD): DWORD; external 'BASS_StreamCreateFile@files:bass.dll stdcall delayload';
function BASS_ChannelGetInfo(handle: DWORD; var info: BASS_CHANNELINFO): BOOL; external 'BASS_ChannelGetInfo@files:bass.dll stdcall delayload';
function BASS_Free(): BOOL; external 'BASS_Free@files:bass.dll stdcall delayload';

procedure InitializeWizard();
var
    hStream: DWORD;
    info: BASS_CHANNELINFO;
begin
    BASS_Init(-1, 44100, 0, 0, 0);
    hStream := BASS_StreamCreateFile(False, ExpandConstant('{win}\media\start.wav'), 0, 0, 0);
    BASS_ChannelGetInfo(hStream, info);
    BASS_Free;
    MsgBox('Channels: ' + IntToStr(info.chans), mbInformation, MB_OK);
end;