[SUCHE] Mentor/Meister /Leherer

[Gabberjool]

Also damit ihr mal versteh was ich meine ist das:
Ich mach meine installationenen über "InstallAware" und die anzeigen via progressbar und timer... sprich(siehe Delphi code)

Und das mein ich, ich will mehr in die matierie wie du sagst !! wie ich das über die datei-menge regeln kan usw.... `?

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
const
  Msg = 'Script wurden Installiert, du kannst nun die Buttons benutzen.';

begin Probar1.Position := Probar1.Position +1;
      Application.ProcessMessages;

If Probar1.Position = 10 then
  Begin bsSkinCheckRadioBox1.Checked := true;
        bsSkinButton2.Visible := true; end;

If Probar1.Position = 25 then
  Begin bsSkinCheckRadioBox3.Checked := true;
        bsSkinButton1.Visible := true; sleep(900); end;


If Probar1.Position = 48 then
  Begin bsSkinCheckRadioBox2.Checked := true;
        bsSkinButton3.Visible := true; sleep(1900);  end;

If Probar1.Position = 82 then
  Begin bsSkinCheckRadioBox4.Checked := true;
        bsSkinButton4.Visible := true;  end;

If Probar1.Position = 99 then
  Begin positiv.Visible := True;
        negativ.Visible := False; sleep(1900);  end;


If Probar1.Position = 100 then
  begin bsSkinCheckRadioBox5.Checked := true;
        Timer1.Enabled := false;
        Probar1.Position := 100;
        bsSkinButton2.Enabled := True;
        bsSkinButton1.Enabled := True;
        bsSkinButton3.Enabled := True;
        bsSkinButton4.Enabled := True;

If Probar1.Position = 100 then
        Assistant1.MsgDlg.Title := 'Installation Beendet !';
        Assistant1.MessageDlg(Msg, mtInformation, [mbOK], 0);
        Assistant1.Visible := True; end; end;