'Publish Project' - more idiot proofing needed?

[wes12]

I've just suceeded in deleting a whole project after trying to play with the 'Publish Project' option by pointing the publish directory to the project source. OK, its my own stupid mistake :oops:, but a few more safeguards in TMainIDE.DoPublishModule might be useful for idiots like me e.g

if SrcDirectory = DestDirectory then begin
 // some error message output here
    Result:=mrCancel;
    exit;
  end;