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;