- Fixed registry saving of last used interface so it now also works on Windows 8.

git-svn-id: https://svn.code.sf.net/p/openblt/code/trunk@110 5dc33758-31d5-4daf-9ae8-b24bf3d40d73

Host/Source/MicroBoot/MainUnit.pas

@@ -553,7 +553,7 @@ begin
   begin
     // open registry key
     winRegistry := TRegistry.Create;
-    winRegistry.RootKey := HKEY_LOCAL_MACHINE;
+    winRegistry.RootKey := HKEY_CURRENT_USER;
     winRegistry.OpenKeyReadOnly('Software\Feaser\MicroBoot');
 
     // attempt to read out the stored interface filename (without path)
@@ -705,7 +705,7 @@ begin
     begin
       // store last used library in register
       winRegistry := TRegistry.Create;
-      winRegistry.RootKey := HKEY_LOCAL_MACHINE;
+      winRegistry.RootKey := HKEY_CURRENT_USER;
       winRegistry.OpenKey('Software\Feaser\MicroBoot', true);
       winRegistry.WriteString('Interface', ExtractFileName(MbiLibFile));
       winRegistry.Free;

Host/Source/MicroBoot/MicroBoot.cfg

@@ -31,5 +31,5 @@
 -M
 -$M16384,1048576
 -K$00400000
--E../
--LNc:\program files (x86)\borland\delphi4\Lib
+-E../../
+-LNc:\borland\delphi4\Lib

Host/Source/MicroBoot/MicroBoot.dof

@@ -39,7 +39,7 @@ MaxStackSize=1048576
 ImageBase=4194304
 ExeDescription=
 [Directories]
-OutputDir=../
+OutputDir=../../
 UnitOutputDir=
 PackageDLLOutputDir=
 PackageDCPOutputDir=
@@ -78,9 +78,12 @@ ProductVersion=1.0.0.0
 Comments=
 [Excluded Packages]
 $(DELPHI)\Lib\dclusr40.bpl=Borland User
+$(DELPHI)\Components\tsock\tsock.bpl=(untitled)
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlOutputDirectorry]
-Count=1
-Item0=../
+Count=3
+Item0=../../
+Item1=../..
+Item2=../