Startup bugfix

This commit is contained in:
mysticbbs 2012-03-02 16:19:35 -05:00
parent 3bae11f13b
commit bd15d3a401
1 changed files with 2 additions and 0 deletions

View File

@ -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);