Subversion Repositories jumper

Rev

Rev 7 | Rev 11 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7 Rev 9
Line 159... Line 159...
159 
 
 159 
 
160 
procedure TLevelChoice.FormCreate(Sender: TObject);
 160 
procedure TLevelChoice.FormCreate(Sender: TObject);
161 
begin
 161 
begin
162 
  if not ForceDirectories(ExtractFilePath(Application.ExeName) + LVL_PATH) then
 162 
  if not ForceDirectories(ExtractFilePath(Application.ExeName) + LVL_PATH) then
163 
  begin
 163 
  begin
164 
    ShowMessage(Format(LNG_COULD_NOT_CREATE_DIR, [LVL_PATH]));
 164 
    MessageDlg(Format(LNG_COULD_NOT_CREATE_DIR, [LVL_PATH]), mtError, [mbOK], 0);
165 
  end;
 165 
  end;
166 
end;
 166 
end;
167 
 
 167 
 
168 
end.
 168 
end.