* Allow use of mime.types on windows

git-svn-id: trunk@38566 -

utils/pas2js/httpcompiler.pp

@@ -492,6 +492,8 @@ begin
   Log(etInfo,'Listening on port %d, serving files from directory: %s',[Port,D]);
 {$ifdef unix}
   MimeTypesFile:='/etc/mime.types';
+{$else}
+   MimeTypesFile:=ExtractFilePath(System.ParamStr(0))+'mime.types';
 {$endif}
   if Hasoption('P','project') then
     begin