[Gnom_aka_Lexander]

MarkusEVO, там, такто, не в создании, там на клик выключенное состояние вешается. в твоем случае, все строчки, на которые ругнется таким-же образом - нужно обрамлять в то-же условие:

Код:

if (not IsWin64) then 
... строчка на которую ругнулось

если таких строчек несколько подряд, то так:
  if (not IsWin64) then
    begin
    ... строчка на которую ругнулось
    ... строчка на которую ругнулось
    ... строчка на которую ругнулось
   end;

[LinkOFF]

подскажите как чтоб после установки была кнопочка "Начать игру" рядом с "Завершить".Ну и собственно игра запускалась.

[valyok666]

LinkOFF, создай кнопку процедурой прикрепи к ней функцию запуска ехе файла

[MarkusEVO]

Всё, разобрался, сделал вот так:

Код:

if (not IsWin64) then begin
  SystimeBitx32Check:=BtnCreate(WizardForm.Handle,ScaleX(75),ScaleY(363),ScaleX(28),ScaleY(28),ExpandConstant('{tmp}\CheckBox.png'),8,True);
  BtnSetEvent(SystimeBitx32Check,BtnClickEventID,WrapBtnCallback(@SystimeBitx32Click,1));
  BtnSetEvent(SystimeBitx32Check,BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
  BtnSetCursor(SystimeBitx32Check,GetSysCursorHandle(32649));

  SystimeBitx32Label := TLabel.Create(WizardForm);
  with SystimeBitx32Label do begin
    AutoSize:=False;
    SetBounds(ScaleX(115), ScaleY(370), ScaleX(155), ScaleY(17));
    OnClick:= @SystimeBitx32LabelClick;
    Cursor:= CrHand;
    Transparent:=True;
    Font.Name:= 'Georgia'
    Font.Size:= 10;
    Font.Color:=$FFFFFF;
    Font.Style:=[fsBold,fsItalic];
    Caption := ExpandConstant('{cm:SystimeBitx32}');
    Parent := WizardForm;
  end;
end;

if IsWin64 then begin
  SystimeBitx64Check:=BtnCreate(WizardForm.Handle,ScaleX(75),ScaleY(363),ScaleX(28),ScaleY(28),ExpandConstant('{tmp}\CheckBox.png'),8,True);
  BtnSetEvent(SystimeBitx64Check,BtnClickEventID,WrapBtnCallback(@SystimeBitx64Click,1));
  BtnSetEvent(SystimeBitx64Check,BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
  BtnSetCursor(SystimeBitx64Check,GetSysCursorHandle(32649));

  SystimeBitx64Label := TLabel.Create(WizardForm);
  with SystimeBitx64Label do begin
    AutoSize:=False;
    SetBounds(ScaleX(115), ScaleY(370), ScaleX(155), ScaleY(17));
    OnClick:= @SystimeBitx64LabelClick;
    Cursor:= CrHand;
    Transparent:=True;
    Font.Name:= 'Georgia'
    Font.Size:= 10;
    Font.Color:=$FFFFFF;
    Font.Style:=[fsBold,fsItalic];
    Caption := ExpandConstant('{cm:SystimeBitx64}');
    Parent := WizardForm;
  end;
end;

И в дальнейшем вставил, где выдаёт ошибки под функции 32 бит

Код:

if (not IsWin64) then
    begin
    ... строчка на которую ругнулось
    end;

а где под 64 би:

Код:

if IsWin64 then 
   begin
   ... строчка на которую ругнулось
   end;

[MarkusEVO]

Всё я разобрался, проверил на 32 битной и 64 битной системе, всё автоматически убирается! Спасибо...
Теперь нужна помощь в том, чтобы самому не ставить галочку, а чтобы уже автоматически стояла...

[valyok666]

MarkusEVO, а ты думаешь пользователь глупый?

[MarkusEVO]

MarkusEVO, а ты думаешь пользователь глупый? »

Поверь моему опыту, что ДА
Бывает что такое задают, что аш реально хочется по головке пройтися, всё у них перед глазами написано и всё равно задают

[valyok666]

MarkusEVO, Таких в наше время поискать надо))

[MarkusEVO]

MarkusEVO, Таких в наше время поискать надо)) »

Но они где то среди НАС)))
Ну так ты поможешь? Знаешь как?
Заранее благодарин

[valyok666]

MarkusEVO, я просто ща не на своём компе дома буду посмотрю)