test more robustly if file is a project

- on open with (cmd line arg)
- on drag file to editor

src/ce_main.pas

@@ -435,31 +435,25 @@ procedure TCEMainForm.getCMdParams;
 var
   value: string;
   lst: TStringList;
-  hdl: THandle;
-  str: string;
 begin
   if application.ParamCount > 0 then
   begin
     value := application.Params[1];
     if value <> '' then
     begin
-      setLength(str, 6);
       lst := TStringList.Create;
       try
         lst.DelimitedText := value;
         for value in lst do
         begin
-          if not fileExists(value) then
+          if isEditable(ExtractFileExt(value)) then
-            continue;
+            openFile(value)
-          hdl := FileOpen(value, fmOpenRead);
+          else if isValidNativeProject(value) then
-          if hdl = 0 then
+          begin
-            continue;
+            // so far CE can only open 1 project at a time
-          FileRead(hdl, str[1], length(str));
+            openProj(value);
-          FileClose(hdl);
+            break;
-          if str = 'object' then
+          end;
-            openProj(value)
-          else
-            openFile(value);
         end;
       finally
         lst.Free;
@@ -1202,10 +1196,17 @@ end;
 
 procedure TCEMainForm.FormDropFiles(Sender: TObject;const FileNames: array of String);
 var
-  i: NativeInt;
+  fname: string;
 begin
-  for i:= low(FileNames) to high(FileNames) do
+  for fname in FileNames do
-    openFile(FileNames[i]);
+  begin
+    if isValidNativeProject(fname) then
+    begin
+      openProj(fname);
+      break;
+    end
+    else openFile(fname);
+  end;
 end;
 {$ENDREGION}