HI,
der Hinweis war nicht bös gemeint. Du hast nur in "Einen Beitrag zur CodeLib hinzufügen" gepostet. Dein Thema gehört dort nicht hin, oder soll es etwa in die CodeLib aufgenommen werden?
Dann: Du nimmst das Event OnShow von der Form und Zählst dort zu einer globalen Variable 1 dazu. Im Event OnHide kannst du dies dann um 1 vermindern und schon weißt du, wie oft die Form sichtbar ist. Wenn du jetzt wissen möchtest, wie oft dein Programm geöffnet worden ist, musst du dir die Prozessliste zu gemüte führen und beim durchgehen einfach mitzäglen, wi oft dein Programm genannt wurde.
Bernhard
EDIT: Was sollen diese Zeilen denn?
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.StepIt;
if ProgressBar1.Position < 1 then
Close;
end;
Entweder ProgressBar1.Min ist weit unter 0 oder dein Programm wird beim ersten Aufruf beendet. Dafür kannst du auch gleich Close nehmen.