Diff for /mozptch/unitfunc.pas between versions 1.1 and 1.2

version 1.1, 2004/03/14 12:49:07 version 1.2, 2004/05/13 15:20:51
Line 9 Line 9
 # ========  # ========
 #  #
 # $Log$  # $Log$
   # Revision 1.2  2004/05/13 15:20:51  oertel
   # - now (beta) support for firefox and thunderbird
   # - mimetype.tmpl will be created if not present
   #
 # Revision 1.1  2004/03/14 12:49:07  oertel  # Revision 1.1  2004/03/14 12:49:07  oertel
 # Initial commit version 9.29  # Initial commit version 9.29
 #  #
Line 19  interface  Line 23  interface 
   
   
 uses  uses
  wintypes, winprocs, Sysutils, classes, FileCtrl;   {$IFDEF MSWINDOWS}
   wintypes, winprocs,  FileCtrl,
   {$ENDIF}
   Sysutils, classes;
   
   
   
Line 125  function IsDirectory (Const FName : Stri Line 132  function IsDirectory (Const FName : Stri
     Fullname := Expandfilename (targetfilename);      Fullname := Expandfilename (targetfilename);
     TargetDriveNo := ord (Fullname [1]) - ord ('A') + 1;      TargetDriveNo := ord (Fullname [1]) - ord ('A') + 1;
     SourceSize := SizeOfFile (sourcefilename);      SourceSize := SizeOfFile (sourcefilename);
       {$IFDEF MSWINDOWS}
     FreeOnDisk := diskfree (TargetDriveNo);      FreeOnDisk := diskfree (TargetDriveNo);
   
     if FreeOnDisk >= 0 then      if FreeOnDisk >= 0 then
Line 133  function IsDirectory (Const FName : Stri Line 141  function IsDirectory (Const FName : Stri
                  problem :=                   problem :=
                          'Problem: Sourcefile has ' +  IntToStr (SourceSize) + ' bytes, free on disk.'                           'Problem: Sourcefile has ' +  IntToStr (SourceSize) + ' bytes, free on disk.'
                          + Fullname[1] + ':  '   + IntToStr (FreeOnDisk);                           + Fullname[1] + ':  '   + IntToStr (FreeOnDisk);
    {$ENDIF}
     Handle := fileopen (sourcefilename, fmOpenRead);      Handle := fileopen (sourcefilename, fmOpenRead);
     Date := filegetdate (Handle);      Date := filegetdate (Handle);
     fileclose (handle);      fileclose (handle);

Removed from v.1.1  
changed lines
  Added in v.1.2


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>