File manager fix

Author: Al-Muhandis

configuration.pas

@@ -75,7 +75,7 @@ function TConfig.GetBotTooken: String;
 
 function TConfig.GetDefaultDir: String;
 begin
-  Result:=FIni.ReadString('File', 'DefaultDir', GetCurrentDir);
+  Result:=FIni.ReadString('File', 'DefaultDir', PathDelim);
 end;
 
 function TConfig.GetHTTPProxyHost: String;

shellthread.pas

@@ -126,14 +126,17 @@ procedure TShellThread.BotReceiveMessage(ASender: TObject;
 end;
 
 procedure TShellThread.BotReceiveCallbackQuery(ASender: TObject; ACallback: TCallbackQueryObj);
+var
+  aName: String;
 begin
   if not CommandStart then
     Exit;
   FIsCallBack:=True;
+  aName:=RightStr(ACallback.Data, Length(ACallback.Data)-Length(dt_dir)-1);
   case ExtractWord(1, ACallback.Data, [' ']) of
-    dt_script: CallbackScript(ExtractWord(2, ACallback.Data, [' ']));
-    dt_dir: CallbackDir(ACallback.Message.Text, ExtractWord(2, ACallback.Data, [' ']));
-    dt_file: CallbackFile(ACallback.Message.Text, ExtractWord(2, ACallback.Data, [' ']));
+    dt_script: CallbackScript(aName);
+    dt_dir: CallbackDir(ACallback.Message.Text, aName);
+    dt_file: CallbackFile(ACallback.Message.Text, aName);
   end;
 end;
 

tgshd.lpi

@@ -61,7 +61,7 @@
           <Version Value="11"/>
           <PathDelim Value="\"/>
           <Target>
-            <Filename Value="tgshd"/>
+            <Filename Value="$(TargetCPU)-$(TargetOS)\tgshd"/>
           </Target>
           <SearchPaths>
             <IncludeFiles Value="$(ProjOutDir)"/>
@@ -89,7 +89,7 @@
           <Version Value="11"/>
           <PathDelim Value="\"/>
           <Target>
-            <Filename Value="tgshd"/>
+            <Filename Value="$(TargetCPU)-$(TargetOS)\tgshd"/>
           </Target>
           <SearchPaths>
             <IncludeFiles Value="$(ProjOutDir)"/>