Cover_Story
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код:
var
box:TCheckBox;
boxfinish:TCheckBox;
function KillTask(ExeFileName: string): Integer;
external 'KillTask@files:ISTask.dll stdcall delayload';
function RunTask(FileName: string; bFullpath: Boolean): Boolean;
external 'RunTask@files:ISTask.dll stdcall delayload';
procedure TaskOnClick(Sender: TObject);
var
Result: boolean;
begin
if RunTask('ntvdm.exe', false) then begin
if MsgBox('Для продолжения установки нужно удалить NTVDM', mbInformation, mb_YesNo) = idYes then begin
KillTask('ntvdm.exe');
end else
Exit;
end;
Result:= True;
WizardForm.NextButton.OnClick(WizardForm.NextButton);
end;
procedure CurPageChanged(CurPageID: Integer);
begin
WizardForm.WelcomeLabel2.Font.Color:= $00ffff;
WizardForm.FinishedLabel.Font.Color:= $00ffff;
WizardForm.WelcomePage.Color:=$ff6666;
WizardForm.FinishedPage.Color:=$ff6666;
if CurPageID=wpWelcome then
WizardForm.NextButton.OnClick:=@TaskOnClick;;
If CurPageID = wpSelectDir then
WizardForm.NextButton.OnClick(WizardForm.NextButton);
end;
function barcode: Boolean;
begin
Result:=box.Checked;
end;
procedure InitializeWizard();
begin
box:=TCheckBox.Create(WizardForm);
with box do
begin
Parent:=WizardForm.WelcomePage;
Caption:='Добавить штрих-коды';
Font.Color:= $0099FF;
Font.Style:=[fsBold];
Left:=ScaleX(180);
Top:=ScaleY(190);
Width:=ScaleX(300);
Height:=ScaleY(15);
TabOrder:=0;
Checked:=True;
end;
boxfinish:=TCheckBox.Create(WizardForm);
with boxfinish do
begin
Parent:=WizardForm.FinishedPage;
Caption:='Удалить инсталлятор';
Font.Color:= $0099FF;
Font.Style:=[fsBold];
Left:=ScaleX(180);
Top:=ScaleY(190);
Width:=ScaleX(300);
Height:=ScaleY(15);
TabOrder:=0;
Checked:=True;
end;
end;
{
function InitializeSetup(): Boolean;
begin
If RunTask('ntvdm.exe', false) then begin
if MsgBox('Для продолжения установки нужно удалить NTVDM', mbInformation, mb_YesNo) = idYes then begin
KillTask('ntvdm.exe');
Result:= True;
end else
Exit;
end;
Result:=True;
end;
}
{
procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID=wpWelcome then begin
WizardForm.NextButton.OnClick:=@TaskOnClick;;
end;
end;}
|
|
Всего записей: 72 | Зарегистр. 05-01-2006 | Отправлено: 15:39 18-06-2009 | Исправлено: Cover_Story, 15:49 18-06-2009 |
|
