fixed dynamic output dir for drag+drop

--HG--
extra : convert_revision : svn%3A39bc706e-5318-0410-9160-8a85361fbb7c/trunk%401310

sourcepawn/batchtool/compile.dpr

@@ -56,8 +56,12 @@ begin
 
   cfg := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'compiler.ini');
   outdir := cfg.ReadString('Main', 'Output', '');
-  if (outdir <> '') and (DirectoryExists(outdir)) then
-    outdir := IncludeTrailingPathDelimiter(outdir)
+  if (outdir <> '') then begin
+    if (DirectoryExists(outdir)) then
+      outdir := IncludeTrailingPathDelimiter(outdir)
+    else if (DirectoryExists(ExtractFilePath(ParamStr(0)) + outdir)) then
+      outdir := ExtractFilePath(ParamStr(0)) + IncludeTrailingPathDelimiter(outdir);
+  end
   else
     outdir := '';
   cfg.Free;