From c48ea6b571167c8c2b4ccc82354277b46398184e Mon Sep 17 00:00:00 2001
From: Frank Voorburg <voorburg@feaser.com>
Date: Thu, 16 Oct 2014 07:57:54 +0000
Subject: [PATCH] - 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/MicroBoot.exe                  | Bin 366592 -> 366592 bytes
 Host/Source/MicroBoot/MainUnit.dfm  | Bin 6734 -> 6734 bytes
 Host/Source/MicroBoot/MainUnit.pas  |   4 ++--
 Host/Source/MicroBoot/MicroBoot.cfg |   4 ++--
 Host/Source/MicroBoot/MicroBoot.dof |   9 ++++++---
 5 files changed, 10 insertions(+), 7 deletions(-)

diff --git a/Host/MicroBoot.exe b/Host/MicroBoot.exe
index 0f313e8635ac06b4a7d3d9c248a807be92f1036e..1a221632969fa8335daf309520910b08c20e7367 100644
GIT binary patch
delta 678
zcmZqJAl3jxEsQNpEzDb36qYeEZdY8!lEea}TUN0&OlLV5W$QYf!->@f!t!upb%C%Z
zII)UASSy@Zb091UXI34kI%l{#XI2pzkSPpczz8N6ut0cV(+^-%aR6Dx2W%=HAgfSt
zVHNQ~w}pWfVGD%C$RG^VC4fa7B(H!ZKD_~GB8IyikX3BJrXm4Z#RF_A8jw{8xMHzo
z0kR4QY$^^Qt0=&x;sLUX1=v(DupvTc`UPw%6p&O*bHn0L2P6g44X~+5Kvt0eRH2F<
ZNexIU;E}X_rW@;PLq@~xtre`*@&JwacHIB~

delta 678
zcmZqJAl3jxEsQNpEzDb36qYeEZC6~zlEea}TUN0&OlK)cPjQ&e;lyeKVR<;Qx<FVH
zoLEI5tQAhIIS`hFGpi0%oikjWGpmRU$P@-JU<8v3SRg#G=?Ac>IDo9;12z>8kX0zS
zu!{Jg+rq$#um!?mWMBvC62Kx3l2<?ypWXm85yRaM$SO8qQ;~qI;sG`l4ah14T(Q`)
z09l0tHWdeuRTN-T@c>!H0&FT6*bt#J{Q@=>3P>uZxnXgr1CoO22G~?2Agf3Ks!&Cb
Zqy{7v@JQM|(~b4DA)~?e)(X~Yc>p25ax?${

diff --git a/Host/Source/MicroBoot/MainUnit.dfm b/Host/Source/MicroBoot/MainUnit.dfm
index fec92210c482bbd771b480d13dab5c108d79d03a..488be260f0c9bff7050c76c0e60a721cae1715e3 100644
GIT binary patch
delta 12
UcmX?Sa?WJJY(~S4b2do=041FTdH?_b

delta 12
UcmX?Sa?WJJY(|5Pb2do=0410Oc>n+a

diff --git a/Host/Source/MicroBoot/MainUnit.pas b/Host/Source/MicroBoot/MainUnit.pas
index 1883e99c..cd72601a 100644
--- a/Host/Source/MicroBoot/MainUnit.pas
+++ b/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;
diff --git a/Host/Source/MicroBoot/MicroBoot.cfg b/Host/Source/MicroBoot/MicroBoot.cfg
index baee3e0e..d9e521de 100644
--- a/Host/Source/MicroBoot/MicroBoot.cfg
+++ b/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
diff --git a/Host/Source/MicroBoot/MicroBoot.dof b/Host/Source/MicroBoot/MicroBoot.dof
index 07fb676d..ff39552a 100644
--- a/Host/Source/MicroBoot/MicroBoot.dof
+++ b/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=../