Guten Abend, die Herren und Damen.
Ich habe ein Kleines Problem. Undzwar habe ich mir eine Art "Installer" geschrieben.
Mit Interface und allem ..
So.. wenn der User alle Eingaben gemacht hat, wird ein Button mit der Aufschrft Installieren sichtbar.
Folgnder Code steht drin:
Delphi-Quellcode:
JvPageControl1.ActivePage := TabSheet5; // Zum Tabsheet gehen, wo die ProgressBar's sind
BtnBack.Visible := False; // Zurückbutton deaktivieren
BtnForward.Visible := False; // Vorwertsbutton ebensfalls
Timer2.Enabled := True;
Timer 2 wird gestartet.
Folgendes steht drin:
Delphi-Quellcode:
// DIe Progressbars werden "einfach so erhöht".. nocherst. Das ändere ich bald
Label4.Caption := 'Aktuelle Datei: Test.exe';
JvXPProgressBar1.Position :=
JvXPProgressBar1.Position + 5;
InstallStatusGesamt := JvXPProgressBar2.Position;
Label25.Caption := Format('Verarbeitung Gesamt: %d%%',
[InstallStatusGesamt]);
JvXPProgressBar2.Position :=
JvXPProgressBar2.Position + 4;
if JvXPProgressBar1.Position = 100 then
begin
Timer2.Interval := 3500; // habs hier manuell nur auf 3500 gesetzt weil sonst bekomme ich
// hunderte Fehlerfenster im Millisekundenabstand
Split(ExePfad+'Project1.exe', InstallVerz+'\Test.exe'); // Test aus Project1.exe extrahieren
Timer2.Enabled := False; // dann timer AUSMACHEN, was aber NICHT passiert! **
JvXPProgressBar1.Position := 0;
Timer3.Enabled := True;
end;
** Hier ist der Fehler.
Die Splitroutine wird alle 3500ms wieder aufgerufen. Der Timer wird also komischerweise nicht deaktiviert? Timer 3 (nächste Datei) wird auch nicht aktiviert..
Was kann das sein?