Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
try
Progressbar1.Position := Progressbar1.Position +1;
Application.ProcessMessages;
if Progressbar1.Position = 100
then
begin
Timer1.Enabled := False;
Progressbar1.Position := 0;
end;
finally
ShellExecute(
Handle, '
open', '
C:\Programme\test\test.exe',
nil,
nil, SW_SHOWNORMAL) ;
end;
end;
Der Ladebalken lädt bis zum Schluss aber dann startet er nicht die exe