Startup bugfix
This commit is contained in:
parent
3bae11f13b
commit
bd15d3a401
|
@ -137,6 +137,8 @@ Begin
|
||||||
MkDir (TempPath);
|
MkDir (TempPath);
|
||||||
{$I+}
|
{$I+}
|
||||||
|
|
||||||
|
If IoResult <> 0 Then;
|
||||||
|
|
||||||
DirClean (TempPath, '');
|
DirClean (TempPath, '');
|
||||||
|
|
||||||
BarOne := TStatusBar.Create(3);
|
BarOne := TStatusBar.Create(3);
|
||||||
|
|
Loading…
Reference in New Issue