sysmocom
/
openblt
11
0
Fork 0
Code Issues Pull Requests Releases Activity

- 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
This commit is contained in:
Frank Voorburg 2014-10-16 07:57:54 +00:00
parent 3a7e6c9d8a
commit c48ea6b571
5 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Host/MicroBoot.exe
View File

Binary file not shown.

BIN
Host/Source/MicroBoot/MainUnit.dfm
View File

Binary file not shown.

4
Host/Source/MicroBoot/MainUnit.pas
View File

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

4
Host/Source/MicroBoot/MicroBoot.cfg
View File

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

9
Host/Source/MicroBoot/MicroBoot.dof
View File

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