If vba.ini exists in executable's folder, use it. Else create/use one in %appdata% folder.

git-svn-id: https://svn.code.sf.net/p/vbam/code/trunk@885 a31d4220-a93d-0410-bf67-fe4944624d44

src/Util.cpp

@@ -654,3 +654,15 @@ void utilUpdateSystemColorMaps()
     break;
   }
 }
+
+// Check for existence of file.
+bool utilFileExists( const char *filename )
+{
+	FILE *f = fopen( filename, "r" );
+	if( f == NULL ) {
+		return false;
+	} else {
+		fclose( f );
+		return true;
+	}
+}

src/Util.h

@@ -41,5 +41,6 @@ z_off_t utilGzSeek(gzFile file, z_off_t offset, int whence);
 long utilGzMemTell(gzFile file);
 void utilGBAFindSave(const u8 *, const int);
 void utilUpdateSystemColorMaps();
+bool utilFileExists( const char *filename );
 
 #endif // UTIL_H

src/win32/Reg.cpp

@@ -27,8 +27,17 @@ void regInit(const char *path)
 	  delete regVbaPath;
 	  regVbaPath = NULL;
   }
+
+  // If vba.ini exists in executable's folder, use it. Else create/use one in %appdata% folder.
   regVbaPath = new CString();
   regVbaPath->Format(MakeInstanceFilename("%s\\vba.ini"), path);
+  if( !utilFileExists( regVbaPath->GetString() ) ) {
+	  TCHAR appdata[MAX_PATH+1];
+	  SHGetFolderPath( NULL, CSIDL_APPDATA, NULL, SHGFP_TYPE_CURRENT, appdata );
+	  regVbaPath->Format( "%s\\VBA-M", appdata );
+	  SHCreateDirectoryEx( NULL, regVbaPath->GetString(), NULL );
+	  regVbaPath->Append( "\\vba.ini" );
+  }
 }
 
 void regShutdown()