begin
ProgressBar1.Position := ProgressBar1.Position+1;
If ProgressBar1.Position=100 then
ShellExecute(Handle, 'open', 'C:\Windows\system32\notepad.exe', nil, nil, SW_SHOWNORMAL);
Mam taki oto progress bar, wszystko idzie pieknie az do momentu kiedy sie załaduje , nie otwiera 1 okna , tylko 100 ;/ .Mozecie jakos pomoc ?
moze cos pokombinowac z tym ?
begin
Timer1.Enabled:=False;
Close;
end;