手でパッチ打ち込みしたんで、ひょっとしたら書式がおかしいかもしれません(笑 by Heracules。~
~
shuusei22101:Delphi 6環境でコンパイルするための変更
 diff --dos -urN original/handler.pas handler.pas
 --- original/handler.pas    Mon Oct 10 14:52:26 2002
 +++ handler.pas Mon Oct 21 15:10:12 2002
 @@ -529,9 +529,9 @@
       begin
         tmp_pos:=1204;
         dec(local_files,usr.data^.shared);
 -       dec(local_bytes,Int64(usr.shared_size));
 +       dec(local_bytes,usr.shared_size);
         dec(total_files,usr.data^.shared);
 -       dec(total_bytes,Int64(usr.shared_size));
 +       dec(total_bytes,usr.shared_size);
         tmp_pos:=1205;
         usr.shared_size:=0;
         usr.shared_mp3:=0;
 @@ -2403,8 +2403,8 @@
   begin
    if local.shared<>nil then
    begin
 -   dec(total_bytes,Int64(local.shared_size));
 -   dec(local_bytes,Int64(local.shared_size));
 +   dec(total_bytes,local.shared_size);
 +   dec(local_bytes,local.shared_size);
     dec(total_files,local.shared.count);
     dec(local_files,local.shared.count);
     local.shared.Clear;
 diff --dos -urN original/mainform.pas mainform.pas
 --- original/mainform.pas    Mon Oct 10 18:01:34 2002
 +++ mainform.pas   Mon Oct 21 15:17:34 2002
 @@ -27,7 +27,7 @@
    inifiles, ShellApi, RXShell, ImgList, OfficeToolBar, Menus, winsock,
    OfficeButtons, OfficeControls, OfficeEdit, clipbrd, channelform, chatform,
    stypes, basecombo, ComboBox, whoisform, slavastrings, mmsystem,
 -  Buttons, class_cmdlist, class_cmdexlist, class_doublecmdlist, Pages;
 +  Buttons, class_cmdlist, class_cmdexlist, class_doublecmdlist, DFWPages;
  
  type
    TSlavaNapWindow = class(TForm)
 diff --dos -urN original/Rxshell.pas Rxshell.pas
 --- original/Rxshell.pas	Sat Jan 12 13:28:16 2002
 +++ Rxshell.pas	Mon Oct 21 15:24:06 2002
 @@ -371,7 +371,7 @@
  constructor TRxTrayIcon.Create(AOwner: Tcomponent);
  begin
    inherited Create(AOwner);
 -  FHandle := AllocateHWnd(WndProc);
 +  FHandle := Classes.AllocateHWnd(WndProc);
    FIcon := TIcon.Create;
    FIcon.OnChange := IconChanged;
    FIconList := TIconList.Create;
 @@ -390,7 +390,7 @@
    FIcon.OnChange := nil;
    SetAnimated(False);
    Deactivate;
 -  DeallocateHWnd(FHandle);
 +  Classes.DeallocateHWnd(FHandle);
    FIcon.Free;
    FIcon := nil;
    FIconList.Free;
 diff --dos -urN original/settings.pas settings.pas
 --- original/settings.pas	Mon Oct 10 18:49:40 2002
 +++ settings.pas	Mon Oct 21 15:29:12
 @@ -22,7 +22,7 @@
  uses
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    ExtCtrls, OfficePanel, ComCtrls, StdCtrls, inifiles, registry,
 -  SpectrumCombo, ShellApi, Buttons, Spin, basecombo, Pages;
 +  SpectrumCombo, ShellApi, Buttons, Spin, basecombo, DFWPages;
  
  type
    TSlavaNapSettings = class(TForm)
 diff --dos -urN original/setupform.pas setupform.pas
 --- original\setupform.pas	Sun Jul 07 23:14:14 2002
 +++ setupform.pas	Mon Oct 21 15:44:56 2002
 @@ -21,7 +21,7 @@
  
  uses
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 -  ComCtrls, StdCtrls, inifiles, constants, vars, stypes, Pages;
 +  ComCtrls, StdCtrls, inifiles, constants, vars, stypes, DFWPages;
  
  type
    TSlavaNapSetup = class(TForm)
 diff --dos -urN original/slavamasks.pas slavamasks.pas
 --- original/slavamasks.pas	Sat Apr 06 18:43:30 2002
 +++ slavamasks.pas	Mon Oct 21 15:48:06 2002
 @@ -38,7 +38,7 @@
  
  implementation
  
 -uses SysUtils, webconst, vars;
 +uses SysUtils, RtlConsts, vars;
  
  const
    MaxCards = 30;
 diff --dos -urN original/SlavaSplitter.pas SlavaSplitter.pas
 --- original/SlavaSplitter.pas	Tue Jun 05 13:09:52 2001
 +++ SlavaSplitter.pas	Mon Oct 21 15:42:06 2002
 @@ -83,7 +83,7 @@
      procedure SetBmUp(Value: TBitmap);
      procedure SetBmUpOver(Value: TBitmap);
    protected
 -    function CanResize(var NewSize: Integer): Boolean; {reintroduce; }virtual;
 +    function CanResize(var NewSize: Integer): Boolean; reintroduce; {virtual;}
      function DoCanResize(var NewSize: Integer): Boolean; virtual;
      procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
        X, Y: Integer); override;
 @@ -91,7 +91,7 @@
      procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
        X, Y: Integer); override;
      procedure Paint; override;
 -    procedure RequestAlign; {$IFDEF VER120}override;{$ENDIF}
 +    procedure RequestAlign; {$IFDEF VER140}override;{$ENDIF}
      procedure StopSizing; dynamic;
  
      function MouseInHandle: Boolean;
 @@ -236,7 +236,6 @@
    I: Integer;
    R: TRect;
  begin
 -  Result := nil;
    P := Point(Left, Top);
    case aDirection of
      diLeft   : Dec(p.x);
 @@ -292,7 +291,6 @@
  var
    R: TRect;
    bm: TBitmap;
 -  i,j,k,l:Integer;
  begin
    R := ClientRect;
    with Canvas
 @@ -826,8 +824,6 @@
  end;
  
  function TSlavaSplitter.isValidBitmap(bmp:TBitmap):Boolean;
 -var
 - i:Integer;
  begin
   isValidBitmap:=false;
   if bmp=nil then exit;
 diff --dos -urN original/ZLIB.pas ZLIB.pas
 --- original/ZLIB.pas	Fri Feb 01 22:01:10 2002
 +++ ZLIB.pas	Mon Oct 21 15:44:12 2002
 @@ -263,7 +263,6 @@
  
  procedure zcfree(opaque, block: Pointer);
  begin
 -  Finalize(block^);
    FreeMem(block);
  end;
  
 @@ -362,7 +361,6 @@
      ReallocMem(outBuffer,zstream.total_out);
      outSize := zstream.total_out;
    except
 -   Finalize(outBuffer^);
      FreeMem(outBuffer);
      raise;
    end;
 @@ -407,7 +405,6 @@
      ReallocMem(outBuffer,zstream.total_out);
      outSize := zstream.total_out;
    except
 -    Finalize(outBuffer^);
      FreeMem(outBuffer);
      raise;
    end;
 @@ -423,7 +420,6 @@
    SetLength(result,size);
    Move(buffer^,result[1],size);
  
 -  Finalize(buffer^);
    FreeMem(buffer);
  end;
  
 @@ -437,7 +433,6 @@
    SetLength(result,size);
    Move(buffer^,result[1],size);
  
 -  Finalize(buffer^);
    FreeMem(buffer);
  end;