PDA

Показать полную графическую версию : Скрипты Inno Setup. Помощь и советы [часть 4]


Страниц : 1 2 3 4 5 6 7 8 9 10 11 12 [13] 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105

Devils Night
25-11-2011, 08:14
Aplle, ты не в тему, тебе вообще то сюда (http://forum.oszone.net/thread-218969.html) .
Нарушение ОПК 3.9 »volk1234, А 3.7 уже не считается?
Кто-нибудь может достать либо сделать скрипт »Тебя это тоже касается. Нарушение ОПК 3.7

MarkusEVO
25-11-2011, 08:27
Всё заработало! Убрал не нужное....
[Setup]
DiskSpanning=yes
DiskSliceSize=max

R.i.m.s.k.y., спасибо я сделал вот так проверил всё работает!
Ты н ругайся я еще в этом чайнк имею дела с этой прогой всего лишь неделю :)

R.i.m.s.k.y.
25-11-2011, 08:32
MarkusEVO
1) Я не ругаюсь, просто хотелось бы чтобы люди читали справку перед задаванием вопросов
в шапке темы есть русская справка по инно, староватая но сгодится
2) Старайся писать просто и грамотно, не бойся знаков препинания, это помогает тебя понять.
3) Дави "полезное сообщение" если сообщение помогло :)

спасибо за внимание!

MarkusEVO
25-11-2011, 08:33
Народ подскажите как можно сделать, чтобы при нажатие "У Вас 64bit Система" потемнела строка "У Вас 32bit Система" и была не доступна и наоборот!?
Вот скрин на мой Инстал:
http://img23.imageshack.us/img23/6466/thumbhbi.jpg (http://img36.imageshack.us/img36/2989/80987513.png)

R.i.m.s.k.y., друг я сразу же нажал на полезное сообщение :yahoo:
Спасибо тебе еще раз!
Может и в этом сообщение поможешь, тогда точно будет царить в этом мире счастье :bow:

R.i.m.s.k.y.
25-11-2011, 08:44
MarkusEVO, по сабжу - для систем х64 надо ставить и х32 компоненты тоже, так что х32 компоненты засвечивать в системах х64 не нужно
а так есть системная функция IsWin64 - возвращает True если инсталлер запущен под виндой х64
более детально нужен кусок кода который рисует это окно
но с кодовым оформлением я не помощник, я его не знаю и вообще пустая трата времени

MarkusEVO
25-11-2011, 08:49
Ну вобщем вот код отвечающий з эту страничку в инстале:
////////////////////// SelectTasksPade //////////////////////

SelectTasksPage := CreateCustomPage(wpSelectProgramGroup, ExpandConstant('{cm:TasksName}'), ExpandConstant('{cm:TasksDescription}'));
SelectTasksLabel := TLabel.Create(WizardForm);
with SelectTasksLabel do begin
AutoSize:=False;
SetBounds(ScaleX(120), ScaleY(250), ScaleX(600), ScaleY(50));
WordWrap:= True;
Transparent:=True;
Font.Name:= 'Georgia'
Font.Size:= 10;
Font.Color:=$FFFFFF;
Font.Style:=[fsBold, fsItalic];
Caption:= ExpandConstant('{cm:SelectTasksLabel}');
Parent := WizardForm;
end;

DesktopCheck:=BtnCreate(WizardForm.Handle,ScaleX(75),ScaleY(303),ScaleX(28),ScaleY(28),ExpandConstan t('{tmp}\CheckBox.png'),8,True);
BtnSetEvent(DesktopCheck,BtnClickEventID,WrapBtnCallback(@DesktopClick,1));
BtnSetEvent(DesktopCheck,BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
BtnSetCursor(DesktopCheck,GetSysCursorHandle(32649));

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

QuickLaunchCheck:=BtnCreate(WizardForm.Handle,ScaleX(75),ScaleY(333),ScaleX(28),ScaleY(28),ExpandCon stant('{tmp}\CheckBox.png'),8,True);
BtnSetEvent(QuickLaunchCheck,BtnClickEventID,WrapBtnCallback(@QuickLaunchClick,1));
BtnSetEvent(QuickLaunchCheck,BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
BtnSetCursor(QuickLaunchCheck,GetSysCursorHandle(32649));

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

SystimeBitx32Check:=BtnCreate(WizardForm.Handle,ScaleX(75),ScaleY(363),ScaleX(28),ScaleY(28),ExpandC onstant('{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;

SystimeBitx64Check:=BtnCreate(WizardForm.Handle,ScaleX(285),ScaleY(363),ScaleX(28),ScaleY(28),Expand Constant('{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(325), 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;

LanguageLabel := TLabel.Create(WizardForm);
with LanguageLabel do begin
AutoSize:=False;
SetBounds(ScaleX(115), ScaleY(410), ScaleX(400), ScaleY(17));
Transparent:=True;
Font.Name:= 'Georgia'
Font.Size:= 10;
Font.Color:=clLime;
Font.Style:=[fsBold, fsItalic];
Caption:= ExpandConstant('{cm:Language}');
Parent := WizardForm;
end;

LngNameLbl := TLabel.Create(WizardForm);
with LngNameLbl do begin
AutoSize:=False;
SetBounds(ScaleX(300), ScaleY(410), ScaleX(100), ScaleY(17));
Transparent:=True;
Font.Name:= 'Georgia'
Font.Size:= 10;
Font.Color:=clLime;
Font.Style:=[fsBold, fsItalic];
Parent := WizardForm;
end;

LanguageButton[1]:=BtnCreate(WizardForm.Handle,ScaleX(395),ScaleY(403),ScaleX(48),ScaleY(36),ExpandConstant('{tmp}\us .png'),0,True);
BtnSetEvent(LanguageButton[1],BtnClickEventID,WrapBtnCallback(@SelectLanguage,1));
BtnSetEvent(LanguageButton[1],BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
BtnSetCursor(LanguageButton[1],GetSysCursorHandle(32649));

BtnSetChecked(LanguageButton[1],True);

////////////////////// SelectTasksPade //////////////////////

Вот не большой пример в инстале при выборе создания папке в меню пуск:
http://img213.imageshack.us/img213/4619/thumbsz.jpg (http://img141.imageshack.us/img141/9559/15212020.png)
и если нажать не создавать получается, что кнопка обзор и строка пути, она темнеет и становится не доступной:
http://img21.imageshack.us/img21/7646/thumbnqi.jpg (http://img401.imageshack.us/img401/5966/26063400.png)

R.i.m.s.k.y.
25-11-2011, 09:09
MarkusEVO,
ну не обещаю что сработает
советую проверить на вин32 и вин64
а про обзор ничего не скажу, ну не знаю я оформление инно, и прекрасно себя чуйствую
////////////////////// SelectTasksPade //////////////////////

SelectTasksPage := CreateCustomPage(wpSelectProgramGroup, ExpandConstant('{cm:TasksName}'), ExpandConstant('{cm:TasksDescription}'));
SelectTasksLabel := TLabel.Create(WizardForm);
with SelectTasksLabel do begin
AutoSize:=False;
SetBounds(ScaleX(120), ScaleY(250), ScaleX(600), ScaleY(50));
WordWrap:= True;
Transparent:=True;
Font.Name:= 'Georgia'
Font.Size:= 10;
Font.Color:=$FFFFFF;
Font.Style:=[fsBold, fsItalic];
Caption:= ExpandConstant('{cm:SelectTasksLabel}');
Parent := WizardForm;
end;

DesktopCheck:=BtnCreate(WizardForm.Handle,ScaleX(75),ScaleY(303),ScaleX(28),ScaleY(28),ExpandConstan t('{tmp}\CheckBox.png'),8,True);
BtnSetEvent(DesktopCheck,BtnClickEventID,WrapBtnCallback(@DesktopClick,1));
BtnSetEvent(DesktopCheck,BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
BtnSetCursor(DesktopCheck,GetSysCursorHandle(32649));

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

QuickLaunchCheck:=BtnCreate(WizardForm.Handle,ScaleX(75),ScaleY(333),ScaleX(28),ScaleY(28),ExpandCon stant('{tmp}\CheckBox.png'),8,True);
BtnSetEvent(QuickLaunchCheck,BtnClickEventID,WrapBtnCallback(@QuickLaunchClick,1));
BtnSetEvent(QuickLaunchCheck,BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
BtnSetCursor(QuickLaunchCheck,GetSysCursorHandle(32649));

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

SystimeBitx32Check:=BtnCreate(WizardForm.Handle,ScaleX(75),ScaleY(363),ScaleX(28),ScaleY(28),ExpandC onstant('{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;


//скрываем лейбл х64 на вин-х32
if IsWin64 then begin
SystimeBitx64Check:=BtnCreate(WizardForm.Handle,ScaleX(285),ScaleY(363),ScaleX(28),ScaleY(28),Expand Constant('{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(325), 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; //if IsWin64

LanguageLabel := TLabel.Create(WizardForm);
with LanguageLabel do begin
AutoSize:=False;
SetBounds(ScaleX(115), ScaleY(410), ScaleX(400), ScaleY(17));
Transparent:=True;
Font.Name:= 'Georgia'
Font.Size:= 10;
Font.Color:=clLime;
Font.Style:=[fsBold, fsItalic];
Caption:= ExpandConstant('{cm:Language}');
Parent := WizardForm;
end;

LngNameLbl := TLabel.Create(WizardForm);
with LngNameLbl do begin
AutoSize:=False;
SetBounds(ScaleX(300), ScaleY(410), ScaleX(100), ScaleY(17));
Transparent:=True;
Font.Name:= 'Georgia'
Font.Size:= 10;
Font.Color:=clLime;
Font.Style:=[fsBold, fsItalic];
Parent := WizardForm;
end;

LanguageButton[1]:=BtnCreate(WizardForm.Handle,ScaleX(395),ScaleY(403),ScaleX(48),ScaleY(36),ExpandConstant('{tmp}\us .png'),0,True);
BtnSetEvent(LanguageButton[1],BtnClickEventID,WrapBtnCallback(@SelectLanguage,1));
BtnSetEvent(LanguageButton[1],BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
BtnSetCursor(LanguageButton[1],GetSysCursorHandle(32649));

BtnSetChecked(LanguageButton[1],True);

////////////////////// SelectTasksPade //////////////////////

MarkusEVO
25-11-2011, 09:18
R.i.m.s.k.y., то есть ты сделал так, чтобы автоматически скрывалась?

Сейчас проверим!

R.i.m.s.k.y., всё осталось как и прежне.

R.i.m.s.k.y.
25-11-2011, 09:30
MarkusEVO, значит венда х64
я ж выше написал что для вин-х64 надо ставить и х32 компоненты тоже
я поставил просто проверку на вин64, вот и все,
лейблы не скрываются, а не_создаются, это две разные разницы

если хочешь сделать неправильно

if (not IsWin64) then begin

SystimeBitx32Check:=BtnCreate(WizardForm.Handle,ScaleX(75),ScaleY(363),ScaleX(28),ScaleY(28),ExpandC onstant('{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 (not IsWin64)

MarkusEVO
25-11-2011, 09:43
http://img526.imageshack.us/img526/3047/thumbyzz.jpg (http://img828.imageshack.us/img828/2709/90117375.png)

R.i.m.s.k.y., ладно не буду тебя мучить, может кто другой поможет! Всё равно спасибо тебе.

А вот код страницы про создание папки в меню Пуск:
////////////////////// SelectProgramGroupPage //////////////////////

SelectStartMenuFolderBrowseLabel := TLabel.Create(WizardForm);
with SelectStartMenuFolderBrowseLabel do begin
AutoSize:=False;
SetBounds(ScaleX(120), ScaleY(250), ScaleX(600), ScaleY(50));
WordWrap:= True;
Transparent:=True;
Font.Name:= 'Georgia'
Font.Size:= 10;
Font.Color:=$FFFFFF;
Font.Style:=[fsBold, fsItalic];
Caption:= WizardForm.SelectStartMenuFolderBrowseLabel.Caption;
Parent := WizardForm;
end;

GroupEditLabel := TLabel.Create(WizardForm);
with GroupEditLabel do begin
AutoSize:=False;
SetBounds(ScaleX(127), ScaleY(308), ScaleX(446), ScaleY(15));
WordWrap:= True;
ShowAccelChar := False;
Transparent:=True;
Font.Name:= 'Arial'
Font.Size:= 9;
Font.Color:=$FFFFFF;
Font.Style:=[fsBold];
Caption := MinimizePathName(WizardForm.GroupEdit.Text, GroupEditLabel.Font, GroupEditLabel.Width);
Parent := WizardForm;
end;

NoIconsCheck:=BtnCreate(WizardForm.Handle,ScaleX(75),ScaleY(430),ScaleX(28),ScaleY(28),ExpandConstan t('{tmp}\CheckBox.png'),8,True);
BtnSetEvent(NoIconsCheck,BtnClickEventID,WrapBtnCallback(@NoIconsClick,1));
BtnSetEvent(NoIconsCheck,BtnMouseEnterEventID,WrapBtnCallback(@WFBtnEnter,1));
BtnSetCursor(NoIconsCheck,GetSysCursorHandle(32649));

NoIconsLabel := TLabel.Create(WizardForm);
with NoIconsLabel do begin
AutoSize:=False;
SetBounds(ScaleX(115), ScaleY(437), ScaleX(275), ScaleY(17));
OnClick:= @NoIconsLabelClick;
Cursor:= CrHand;
Transparent:=True;
Font.Name:= 'Georgia'
Font.Size:= 10;
Font.Color:=$FFFFFF;
Font.Style:=[fsBold,fsItalic];
Caption := WizardForm.NoIconsCheck.Caption;
Parent := WizardForm;
end;

WizardForm.DirEdit.OnChange := @GetFreeSpaceCaption;
WizardForm.DirEdit.Text:= WizardForm.DirEdit.Text;
WizardForm.GroupEdit.OnChange := @GroupChange;

////////////////////// SelectProgramGroupPage //////////////////////

Gnom_aka_Lexander
25-11-2011, 20:12
MarkusEVO, там, такто, не в создании, там на клик выключенное состояние вешается. в твоем случае, все строчки, на которые ругнется таким-же образом - нужно обрамлять в то-же условие:
if (not IsWin64) then
... строчка на которую ругнулось

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

LinkOFF
25-11-2011, 21:37
подскажите как чтоб после установки была кнопочка "Начать игру" рядом с "Завершить".Ну и собственно игра запускалась.

valyok666
25-11-2011, 21:41
LinkOFF, создай кнопку процедурой прикрепи к ней функцию запуска ехе файла

MarkusEVO
25-11-2011, 23:20
Всё, разобрался, сделал вот так:
if (not IsWin64) then begin
SystimeBitx32Check:=BtnCreate(WizardForm.Handle,ScaleX(75),ScaleY(363),ScaleX(28),ScaleY(28),ExpandC onstant('{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),ExpandC onstant('{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
26-11-2011, 09:50
Всё я разобрался, проверил на 32 битной и 64 битной системе, всё автоматически убирается! Спасибо...
Теперь нужна помощь в том, чтобы самому не ставить галочку, а чтобы уже автоматически стояла...
http://img593.imageshack.us/img593/5491/thumbyyj.jpg (http://img855.imageshack.us/img855/6232/16591165.png)

valyok666
26-11-2011, 10:13
MarkusEVO, а ты думаешь пользователь глупый?

MarkusEVO
26-11-2011, 10:19
MarkusEVO, а ты думаешь пользователь глупый? »
Поверь моему опыту, что ДА :lol:
Бывает что такое задают, что аш реально хочется по головке пройтися, всё у них перед глазами написано и всё равно задают :biggrin:

valyok666
26-11-2011, 10:23
MarkusEVO, Таких в наше время поискать надо))

MarkusEVO
26-11-2011, 10:26
MarkusEVO, Таких в наше время поискать надо)) »
Но они где то среди НАС)))
Ну так ты поможешь? Знаешь как?
Заранее благодарин :bow:

valyok666
26-11-2011, 10:50
MarkusEVO, я просто ща не на своём компе дома буду посмотрю)




© OSzone.net 2001-2012