Changeset 38 for trunk/NewView/MainForm.pas

Timestamp:

Sep 19, 2006, 8:16:23 PM (19 years ago)

Author:

RBRi

Message:

fixes for beta3

File:

• trunk/NewView/MainForm.pas (modified) (3 diffs)

trunk/NewView/MainForm.pas

@@ -833 +833 @@
   ACLDialogs,
   ACLString,
+  RunProgramUnit,
+  StringUtilsUnit,
 
   // Components
@@ -5508 +5510 @@
   URL: string;
   LinkDetails: string;
+  ProgramInfo : TSerializableStringList;
 Begin
   if StrLeft( LinkString, 4 ) = 'note' then
@@ -5517 +5520 @@
   else if StrLeft( LinkString, 7 ) = 'program' then
   begin
-    ProgramLink := StrUnDoubleQuote( StrRightFrom( LinkString, 9 ) );
-    // todo: unescape quotes
-    ProgramPath := ExtractNextValue( ProgramLink, ' ' );
-    Exec( ProgramPath,
-          ProgramLink );
-    SetStatus( 'Launched '
-               + ProgramPath );
+    ProgramInfo := TSerializableStringList.create;
+    ProgramInfo.readValuesFromSerializedString(StrRightFrom( LinkString, 9 ));
+    ProgramPath := ProgramInfo.get(0);
+    ProgramLink := ProgramInfo.get(1);
+    TSerializableStringList.destroy;
+    // call LaunchProgram here to inherit the environment
+    LaunchProgram(ProgramPath, ProgramLink, '');
+    SetStatus( 'Launched ' + ProgramPath );
   end
   else if StrLeft( LinkString, 3 ) = 'url' then