initial commit

Map.cfg

@@ -0,0 +1,38 @@
+-$A8
+-$B-
+-$C-
+-$D-
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L-
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$Y-
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST

Map.dof

@@ -0,0 +1,139 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=0
+D=0
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=0
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=0
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=Run Multiple versions of Applications.
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;vclie;xmlrtl;inet;inetdbbde;inetdbxpress;vclx;dbrtl;soaprtl;dsnap;VclSmp;dbexpress;vcldb;dbxcds;adortl;ibxpress;vclactnband;bdertl;vclshlctrls;dclOfficeXP
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+[Version Info]
+IncludeVerInfo=0
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1033
+CodePage=1252
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

Map.dpr

@@ -0,0 +1,16 @@
+program map;
+//{$APPTYPE CONSOLE}
+
+uses
+  Forms,
+  main in 'main.pas' {TForm};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+//  Application.MainFormOnTaskbar := True;
+  Application.Title := 'Map';
+  Application.CreateForm(TTForm, TForm);
+  Application.Run;
+end.

Map.ini

@@ -0,0 +1,7 @@
+[MAP]
+[CONFIG]
+OnTop=true
+[PROGRAMPATHS]
+Notepad++8='D:\Program Files\Notepad++8\npp.exe'
+Notepad++7='D:\Program Files\Notepad++7\npp.exe'
+Notepad++6='D:\Program Files\Notepad++7\npp.exe'

README.md

@@ -0,0 +1,16 @@
+# Multiple Application
+map.exe runs multiple versions of same or different programs without searching on the entire machine each time.
+
+### How to configure?
+You get only 2 things in package:
+1. **Application file - map.exe**
+2. **Configuration file - map.ini file** - Contains the <key>=<value> under label **[PROGRAMPATHS]** (don't change label’s name)
+3. Put the name of your application(s) and it’s absolute location in the .ini file.
+
+---
+*Example:* <br>
+If your application 
+```Notepad++ version 6.7.4``` is at location ```'D:\Program Files\Notepad++6.7.4\notepad++.exe'```
+Then map.ini file would contain,<br>
+```Notepad++ 6.7.4='D:\Program Files\Notepad++6.7.4\notepad++.exe'```  
+Similarly other versions/applications can be added to the configuration file.

main.dfm

@@ -0,0 +1,72 @@
+object TForm: TTForm
+  Left = 265
+  Top = 155
+  BorderStyle = bsSingle
+  Caption = 'Multiple Applications'
+  ClientHeight = 54
+  ClientWidth = 309
+  Color = 11856874
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  KeyPreview = True
+  OldCreateOrder = False
+  Position = poMainFormCenter
+  OnCreate = FormCreate
+  OnKeyPress = FormKeyPress
+  PixelsPerInch = 96
+  TextHeight = 13
+  object lbcbbox: TLabel
+    Left = 8
+    Top = 3
+    Width = 195
+    Height = 16
+    Caption = 'Please select application from list:'
+    Font.Charset = ANSI_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object btnRun: TBitBtn
+    Left = 242
+    Top = 23
+    Width = 57
+    Height = 23
+    Caption = '&Run'
+    TabOrder = 0
+    OnClick = btnRunClick
+  end
+  object cbVersionSelect: TComboBox
+    Left = 7
+    Top = 25
+    Width = 226
+    Height = 21
+    BevelKind = bkSoft
+    Style = csDropDownList
+    Color = clInfoBk
+    ItemHeight = 13
+    TabOrder = 1
+    OnChange = cbVersionSelectChange
+  end
+  object cbOnTop: TCheckBox
+    Left = 216
+    Top = 3
+    Width = 96
+    Height = 20
+    BiDiMode = bdLeftToRight
+    Caption = 'Stay on top'
+    Font.Charset = ANSI_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentBiDiMode = False
+    ParentFont = False
+    TabOrder = 2
+    OnClick = cbOnTopClick
+  end
+end