Author: remi
Date: 2008-11-30 12:23:07 +0100 (Sun, 30 Nov 2008)
New Revision: 2932
Modified:
software_suite_v2/tuxware/tuxdroidflasher/trunk/flasher/GUI.pas
Log:
* updated with relative paths
Modified: software_suite_v2/tuxware/tuxdroidflasher/trunk/flasher/GUI.pas
===================================================================
--- software_suite_v2/tuxware/tuxdroidflasher/trunk/flasher/GUI.pas
2008-11-30 11:17:39 UTC (rev 2931)
+++ software_suite_v2/tuxware/tuxdroidflasher/trunk/flasher/GUI.pas
2008-11-30 11:23:07 UTC (rev 2932)
@@ -9,6 +9,7 @@
gnugettext,
shellApi,
tlhelp32,
+ registry,
Dialogs, sSkinProvider, sSkinManager, StdCtrls, ComCtrls, sButton,
ExtCtrls;
@@ -33,11 +34,7 @@
STR_SUCCESSFULLY_PROG = 'Tuxdroid is successfully programmed !';
const
- TUXRF_FIRMWARE = 'c:/tuxdroid/firmware/tuxrf.hex';
- TUXAUDIO_FIRMWARE = 'c:/tuxdroid/firmware/tuxaudio.hex';
- TUXAUDIO_EEP = 'c:/tuxdroid/firmware/tuxaudio.eep';
- TUXCORE_FIRMWARE = 'c:/tuxdroid/firmware/tuxcore.hex';
- TUXCORE_EEP = 'c:/tuxdroid/firmware/tuxcore.eep';
+ TUXDROID_REGISTRY_PATH = 'SOFTWARE\Tuxdroid\TuxdroidSetup';
type
TForm1 = class(TForm)
@@ -74,8 +71,37 @@
implementation
{$R *.dfm}
+var
+ tuxdroidPath : string;
+ TUXRF_FIRMWARE : string;
+ TUXAUDIO_FIRMWARE : string;
+ TUXAUDIO_EEP : string;
+ TUXCORE_FIRMWARE : string;
+ TUXCORE_EEP : string;
{**
+ * Get the Tuxdroid installation path.
+ *}
+function getTuxdroidPath : string;
+begin
+ result := '';
+ with TRegistry.Create do
+ try
+ RootKey := HKEY_LOCAL_MACHINE;
+
+ // From Tuxdroid setup
+ if OpenKey(TUXDROID_REGISTRY_PATH, False) then
+ begin
+ // Get tuxdroid installation path
+ result := ReadString('Install_Dir');
+ CloseKey;
+ end;
+ finally
+ Free;
+ end;
+end;
+
+{**
* Kill a specific task by its name.
*}
function KillTask(ExeFileName: string): Integer;
@@ -679,4 +705,12 @@
timer1.Enabled := false;
end;
+initialization
+ tuxdroidPath := getTuxdroidPath;
+ TUXRF_FIRMWARE := getTuxdroidPath + '\firmware\tuxrf.hex';
+ TUXAUDIO_FIRMWARE := getTuxdroidPath + '\firmware\tuxaudio.hex';
+ TUXAUDIO_EEP := getTuxdroidPath + '\firmware\tuxaudio.eep';
+ TUXCORE_FIRMWARE := getTuxdroidPath + '\firmware\tuxcore.hex';
+ TUXCORE_EEP := getTuxdroidPath + '\firmware\tuxcore.eep';
+
end.
-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
Tux-droid-svn mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/tux-droid-svn
