FreeXP

CVS daily diff

FreeXP CVS-Server cvs-list at freexp.de
Mon Feb 6 00:00:48 CET 2006


Index: freexp/clip.pas
===================================================================
RCS file: /server/cvs/freexp/clip.pas,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -r1.38 -r1.39
--- freexp/clip.pas	10 Jan 2006 21:36:31 -0000	1.38
+++ freexp/clip.pas	5 Feb 2006 13:29:52 -0000	1.39
@@ -8,7 +8,7 @@
 { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
 { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html.   }
 { --------------------------------------------------------------- }
-{ $Id: clip.pas,v 1.38 2006/01/10 21:36:31 mw Exp $ }
+{ $Id: clip.pas,v 1.39 2006/02/05 13:29:52 mw Exp $ }
 
 {$I XPDEFINE.INC }
 {$O+,F+}
@@ -40,6 +40,9 @@
 function xp_ntvdm_ver:byte;
 function xp_ntvdm_ok:boolean;
 
+procedure GetConsoleTitle(maxlen:byte;var contitle:String);
+procedure SetConsoleTitle(contitle:string);
+
 function  SmartInstalled:boolean;
 function  SmartCache(drive:byte):byte;          { 0=nope, 1=read, 2=write }
 function  SmartSetCache(drive,b:byte):boolean;  { 0=nope, 1=read, 2=write }
@@ -267,6 +270,37 @@
   xp_ntvdm_ok:=(WinVersion=4) and (Lo(WinNTVersion)<>0);
 end;
 
+procedure GetConsoleTitle(maxlen:byte;var contitle:String);
+var p: pointer;
+begin
+ p:=@contitle;
+ if ((xp_ntvdm_ok) and (xp_ntvdm_ver>=3)) then
+ asm
+   mov cl,maxlen
+   db  $66		    { 32 bit prefix }
+   mov di,WORD PTR p	    { mov edi, DWORD PTR p }
+   mov dx,$0300
+   mov ax,ntvdm_handle
+   db  $c4,$c4,$58,2
+ end;  
+end;
+
+procedure SetConsoleTitle(contitle:string);
+var p:pointer;
+    maxlen:byte;
+begin
+ p:=@contitle;
+ maxlen:=length(contitle);
+ if ((xp_ntvdm_ok) and (xp_ntvdm_ver>=3)) then
+ asm
+   mov cl,maxlen
+   db  $66		    { 32 bit prefix }
+   mov di,WORD PTR p	    { mov edi, DWORD PTR p }   
+   mov dx,$0302
+   mov ax,ntvdm_handle
+   db  $c4,$c4,$58,2
+ end;  
+end;
 
 procedure DestructWinVersion;
 begin
@@ -793,6 +827,15 @@
 end.
 {
   $Log: clip.pas,v $
+  Revision 1.39  2006/02/05 13:29:52  mw
+  MW: - Neue Version der XP_NTVDM.DLL (Revision 3):
+        - Jetzt kann mit Clip.GetConsoleTitle der Windows NT VDM
+          ConsoleTitel auslesen und mit Clip.SetConsoleTitle gesetzt
+          werden. Bei anderen Ausf?hrungsumgebungen als Windows NT
+          bewirken diese beiden Proceduren nicht.
+        - Beim Eintritt in eine Shell wird der NTVDM-Titel gesichert um
+          in beim Austritt aus der Shell wiederherzustellen.
+
   Revision 1.38  2006/01/10 21:36:31  mw
   MW: - Kürzere Formulierung des DOSBox-Tests.
 
Index: freexp/exxec.pas
===================================================================
RCS file: /server/cvs/freexp/exxec.pas,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -r1.25 -r1.26
--- freexp/exxec.pas	2 Jan 2006 12:28:50 -0000	1.25
+++ freexp/exxec.pas	5 Feb 2006 13:29:52 -0000	1.26
@@ -8,7 +8,7 @@
 { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
 { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html.   }
 { --------------------------------------------------------------- }
-{ $Id: exxec.pas,v 1.25 2006/01/02 12:28:50 mw Exp $ }
+{ $Id: exxec.pas,v 1.26 2006/02/05 13:29:52 mw Exp $ }
 
 { Exec-Swapper }
 
@@ -49,7 +49,7 @@
 implementation  { --------------------------------------------------- }
 
 uses
-  ems,xms;
+  ems,xms,clip; {CLIP wegen Zugriff auf Windows NT VDM}
 
 procedure defresiprog;
 begin
@@ -102,6 +102,7 @@
 
     fileanz  : word;        { Handletabelle: Anzahl Filehandles  }
     fileptr  : longint;     { Zeiger auf Handletabelle           }
+    contitle : string;      { Windows NT VDM Consolentitle       }
 
   procedure set_newenv;
   var eseg,esize,
@@ -286,6 +287,7 @@
 
 begin
   Xec:=ExecOk;
+  GetConsoleTitle(255,contitle);
   if so(freeptr).o>0 then          { Größe der Free-Liste ermitteln }
     fs:=$1000a-so(freeptr).o
   else
@@ -405,6 +407,7 @@
     FastMove(p^,freeptr^,fs);
     freemem(p,fs);
   end;
+  SetConsoleTitle(contitle);
 end;
 
 begin
@@ -414,6 +417,15 @@
 end.
 {
   $Log: exxec.pas,v $
+  Revision 1.26  2006/02/05 13:29:52  mw
+  MW: - Neue Version der XP_NTVDM.DLL (Revision 3):
+        - Jetzt kann mit Clip.GetConsoleTitle der Windows NT VDM
+          ConsoleTitel auslesen und mit Clip.SetConsoleTitle gesetzt
+          werden. Bei anderen Ausf?hrungsumgebungen als Windows NT
+          bewirken diese beiden Proceduren nicht.
+        - Beim Eintritt in eine Shell wird der NTVDM-Titel gesichert um
+          in beim Austritt aus der Shell wiederherzustellen.
+
   Revision 1.25  2006/01/02 12:28:50  mw
   MW: - Frohes neues Jahr 2006
 
Index: freexp/xp0.pas
===================================================================
RCS file: /server/cvs/freexp/xp0.pas,v
retrieving revision 1.79
retrieving revision 1.80
diff -u -r1.79 -r1.80
--- freexp/xp0.pas	31 Jan 2006 12:16:51 -0000	1.79
+++ freexp/xp0.pas	5 Feb 2006 13:29:52 -0000	1.80
@@ -8,7 +8,7 @@
 { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
 { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html.   }
 { --------------------------------------------------------------- }
-{ $Id: xp0.pas,v 1.79 2006/01/31 12:16:51 mw Exp $ }
+{ $Id: xp0.pas,v 1.80 2006/02/05 13:29:52 mw Exp $ }
 
 { CrossPoint - Deklarationen }
 
@@ -27,7 +27,10 @@
        {$ENDIF}
 
        LangVersion = '14';           { Version des Sprachmoduls }
-       DLLVersion  = 2;              { Revision der XP_NTVDM.DLL }
+       DLLVersion  = 3;              { Revision der XP_NTVDM.DLL }
+                                     { 1 = Urversion }
+                                     { 2 = mit Diskfree/Disksize }
+                                     { 3 = ConsoleTitle }
        needfiles   = 30;             { Benötigte Filehandles durch XP           }
        needreserve = 10;             { Um den Aufruf von externen Programmen    }
                                      { sicherzustellen, wird auf 10 zusätzliche }
@@ -1248,6 +1251,15 @@
 
 {
   $Log: xp0.pas,v $
+  Revision 1.80  2006/02/05 13:29:52  mw
+  MW: - Neue Version der XP_NTVDM.DLL (Revision 3):
+        - Jetzt kann mit Clip.GetConsoleTitle der Windows NT VDM
+          ConsoleTitel auslesen und mit Clip.SetConsoleTitle gesetzt
+          werden. Bei anderen Ausf?hrungsumgebungen als Windows NT
+          bewirken diese beiden Proceduren nicht.
+        - Beim Eintritt in eine Shell wird der NTVDM-Titel gesichert um
+          in beim Austritt aus der Shell wiederherzustellen.
+
   Revision 1.79  2006/01/31 12:16:51  mw
   MW: - Automatisches Beachten der sinnvollen Länger von Custom-Header 3
         wenn vor der Benutzung cust3len sinnvoll gesetzt wird.
Index: freexp/xp6.pas
===================================================================
RCS file: /server/cvs/freexp/xp6.pas,v
retrieving revision 1.51
retrieving revision 1.53
diff -u -r1.51 -r1.53
--- freexp/xp6.pas	2 Jan 2006 12:28:51 -0000	1.51
+++ freexp/xp6.pas	5 Feb 2006 15:03:13 -0000	1.53
@@ -8,7 +8,7 @@
 { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
 { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html.   }
 { --------------------------------------------------------------- }
-{ $Id: xp6.pas,v 1.51 2006/01/02 12:28:51 mw Exp $ }
+{ $Id: xp6.pas,v 1.53 2006/02/05 15:03:13 mw Exp $ }
 
 { MH: PGP-Sig auch in RFC, Zurück Button f. alle Netztypen }
 
@@ -285,8 +285,8 @@
     pointname: string[25];
     email    : string[80];
     sendedat : longint;     { Empfangsdatum                       }
-    XP_ID    : string[50];
-    XID      : string[50];  { CrossPoint-ID                       }
+    XP_ID    : string[80];
+    XID      : string[80];  { CrossPoint-ID                       }
     passwd   : ^string;     { Paßwort des empfangenden Users      }
     passpos  : smallword;   { PW-Position für QPC                 }
     newbin   : boolean;     { Typ nach Codierung                  }
@@ -2088,7 +2088,7 @@
       hdp^.org_xref:=_orgref;
     hdp^.replypath:=_replypath;
     hdp^.typ:=iifs(binary,'B','T');
-    hdp^.programm:=xp_xp+' '+verstr+betastr+ovrstr
+    hdp^.programm:=xp_xp+' '+verstr+betastr+iifs(rufstr<>'',' ('+rufstr+')','')+ovrstr
                    {$IFDEF Snapshot} + ' @ ' + compiletime {$ENDIF}
                    +krk(regstr)+'/'
                    +iifs(is_freereg,getres2(361,60),registriert.tc+strs(registriert.nr));
@@ -2569,6 +2569,17 @@
 end.
 {
   $Log: xp6.pas,v $
+  Revision 1.53  2006/02/05 15:03:13  mw
+  MW: - Unterstützung für Rufnamen verbessert:
+        Es gibt jetzt eine extra Konstante, die
+        nur bei bedarf eingesetzt wird.
+        Eine Klammerung des Rufnamen ist dabei
+        nicht sinnvoll, dies wird automatisch
+        durchgeführt.
+
+  Revision 1.52  2006/02/05 14:23:53  mw
+  MW: - Hotfix gegen einen Fehler beim Erstellen der Xp-Werbesignatur
+
   Revision 1.51  2006/01/02 12:28:51  mw
   MW: - Frohes neues Jahr 2006
 
Index: freexp/xp6s.inc
===================================================================
RCS file: /server/cvs/freexp/xp6s.inc,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -r1.25 -r1.26
--- freexp/xp6s.inc	2 Jan 2006 12:28:49 -0000	1.25
+++ freexp/xp6s.inc	5 Feb 2006 16:08:51 -0000	1.26
@@ -8,7 +8,7 @@
 { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
 { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html.   }
 { --------------------------------------------------------------- }
-{ $Id: xp6s.inc,v 1.25 2006/01/02 12:28:49 mw Exp $ }
+{ $Id: xp6s.inc,v 1.26 2006/02/05 16:08:51 mw Exp $ }
 
 { Unterroutinen für XP6.PAS }
 
@@ -192,7 +192,8 @@
 procedure Set_XP_ID;
 begin
   XP_ID:='## '+xp_xp+' '+verstr+betastr+
-         ovrstr+iifs(is_freereg,'',krk(regstr))+' ##'+#13#10;
+         ovrstr+iifs(is_freereg,'',krk(regstr))+' ##';
+  XP_ID:=Copy(XP_ID,0,78)+#13#10;  
 end;
 
 function orishuffle(fn:pathstr):string;
@@ -1198,6 +1199,9 @@
 end;
 {
   $Log: xp6s.inc,v $
+  Revision 1.26  2006/02/05 16:08:51  mw
+  MW: - Noch ein Hotfix gegen den Werbe-Signaturfehler
+
   Revision 1.25  2006/01/02 12:28:49  mw
   MW: - Frohes neues Jahr 2006
 
Index: freexp/xp_ntvdm.pas
===================================================================
RCS file: /server/cvs/freexp/xp_ntvdm.pas,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- freexp/xp_ntvdm.pas	2 Jan 2006 12:28:51 -0000	1.11
+++ freexp/xp_ntvdm.pas	5 Feb 2006 13:29:52 -0000	1.12
@@ -7,7 +7,7 @@
 { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
 { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html.   }
 { --------------------------------------------------------------- }
-{ $Id: xp_ntvdm.pas,v 1.11 2006/01/02 12:28:51 mw Exp $            }
+{ $Id: xp_ntvdm.pas,v 1.12 2006/02/05 13:29:52 mw Exp $            }
 
 {$R xp_ntvdm.rc}
 
@@ -15,8 +15,7 @@
 
 uses windows,dos,strings;
 
-const xp_ntvdm_version=$2;
-      xp_simdisk=1234567890;
+const xp_ntvdm_version=$3;
 
 { --- Imports from ntvdm.exe ------------------------------------ }
 
@@ -252,11 +251,6 @@
   SetEAX(a);
 end;
 
-procedure SimDisk;
-begin
-  SetEAX(xp_simdisk);
-end;
-
 { --- NTDiskType ------------------------------------------------ }
 procedure NTDiskType;
 var p :pchar;
@@ -272,24 +266,79 @@
   SetEAX(xp_ntvdm_version);
 end;
 
+{ --- ConsoleTitle ---------------------------------------------- }
+procedure NTGetConsoleTitle;
+var sp       : ^shortstring;
+    contitlea: array [0..255] of Char;
+    contitle : PChar;
+    contsize : DWORD;
+    maxlen   : integer;
+begin
+  maxlen := getCL;
+  sp := GetVDMAddress(GetEDI,maxlen,false);
+  contsize:=maxlen;
+  contitle:=@contitlea;
+  contsize:=GetConsoleTitle(contitle,contsize);
+  sp^:=StrPas(contitle);
+end;
+
+procedure NTGetConsoleTitleW;
+var sp      : LPWSTR;
+    maxlen  : longint;
+begin
+  maxlen := getECX;
+  sp := GetVDMAddress(GetEDI,maxlen,false);
+  GetConsoleTitleW(sp,maxlen);
+end;
+
+procedure NTSetConsoleTitle;
+var sp       : ^shortstring;
+    contitlea: array [0..255] of Char;
+    contitle : PChar;
+    maxlen   : integer;
+begin
+  maxlen := getCL;
+  sp := GetVDMAddress(GetEDI,maxlen,false);
+  contitle:=@contitlea;
+  StrPCopy(contitle,sp^);
+  contitle:=@contitlea;
+  SetConsoleTitle(contitle);
+end;
+
+procedure NTSetConsoleTitleW;
+var sp      : LPCWSTR;
+    maxlen  : longint;
+begin
+  maxlen := getECX;
+  sp := GetVDMAddress(GetEDI,maxlen,false);
+  SetConsoleTitleW(sp);
+end;
+
 { --- VDD calls ------------------------------------------------- }
 
 procedure FREEXP_CALL; stdcall; export;
 begin
   case getDX of
     {Versionsinfos}
-    $0000: get_windows_version;
-    $0001: XP_NTVDM_VER;
+    $0000: get_windows_version;    {Windows NT Version bestimmen}
+    $0001: XP_NTVDM_VER;           {Revision der XP_NTVDM.DLL bestimmen}
+
     {Clipboardfunktionen}
-    $0101: clip_to_string;
-    $0102: mem_to_clip;
-    $0103: clip_to_file;
-    $0104: file_to_clip;
+    $0101: clip_to_string;         {einen String aus der Zwischenablage lesen}
+    $0102: mem_to_clip;            {einen Speicherbereich in die Zwischenablage speichern}
+    $0103: clip_to_file;           {den Inhalt der Zwischenablage in eine Datei speichern}
+    $0104: file_to_clip;           {eine Datei in die Zwischenablage speichern} 
+
     {Datentraegerfunktionen}
-    $0200: NTDiskFree;
-    $0201: NTDiskSize;
-    $0202: SimDisk;
-    $0203: NTDiskType;
+    $0200: NTDiskFree;             {Den freien Speicherplatz auf dem Datenträger bestimmen}
+    $0201: NTDiskSize;             {Die Gesamtgröße des Datenträgers bestimmen}
+    $0203: NTDiskType;             {Art eines Datenträgers bestimmen}
+
+    {ConsoleTitle}
+    $0300: NTGetConsoleTitle;      {Consolentitle in FreeXP einlesen (ASCII)}
+    $0301: NTGetConsoleTitleW;     {Consolentitle in FreeXP einlesen (UTF)}
+    $0302: NTSetConsoleTitle;      {Consolentitle mit FreeXP neu setzen (ASCII)}
+    $0303: NTSetConsoleTitleW;     {Consolentitle mit FreeXP neu setzen (UTF)}
   end;
 end;  
 
@@ -306,6 +355,15 @@
 
 {
   $Log: xp_ntvdm.pas,v $
+  Revision 1.12  2006/02/05 13:29:52  mw
+  MW: - Neue Version der XP_NTVDM.DLL (Revision 3):
+        - Jetzt kann mit Clip.GetConsoleTitle der Windows NT VDM
+          ConsoleTitel auslesen und mit Clip.SetConsoleTitle gesetzt
+          werden. Bei anderen Ausf?hrungsumgebungen als Windows NT
+          bewirken diese beiden Proceduren nicht.
+        - Beim Eintritt in eine Shell wird der NTVDM-Titel gesichert um
+          in beim Austritt aus der Shell wiederherzustellen.
+
   Revision 1.11  2006/01/02 12:28:51  mw
   MW: - Frohes neues Jahr 2006
 
Index: freexp/xp_ntvdm.rc
===================================================================
RCS file: /server/cvs/freexp/xp_ntvdm.rc,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- freexp/xp_ntvdm.rc	30 Dec 2005 18:37:08 -0000	1.2
+++ freexp/xp_ntvdm.rc	5 Feb 2006 13:29:52 -0000	1.3
@@ -1,6 +1,6 @@
 1 VERSIONINFO
-FILEVERSION 3,40,2,0
-PRODUCTVERSION 3,40,2,0
+FILEVERSION 3,40,3,0
+PRODUCTVERSION 3,40,3,0
 FILEFLAGSMASK 0
 FILEOS 0x40000
 FILETYPE 1
@@ -11,12 +11,12 @@
    {
     VALUE "CompanyName", "FreeXP"
     VALUE "FileDescription", "FreeXP NTVDM-Extension"
-    VALUE "FileVersion", "3.40.2"
+    VALUE "FileVersion", "3.40.3"
     VALUE "InternalName", "XP_NTVDM"
-    VALUE "LegalCopyright", "Copyright « 2005"
+    VALUE "LegalCopyright", "« 2002-2006"
     VALUE "OriginalFilename", "XP_NTVDM.DLL"
     VALUE "ProductName", "FreeXP XP_NTVDM"
-    VALUE "ProductVersion", "3.40.2"
+    VALUE "ProductVersion", "3.40.3"
     }
   }
 }
Index: freexp/xpglobal.pas
===================================================================
RCS file: /server/cvs/freexp/xpglobal.pas,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -r1.45 -r1.46
--- freexp/xpglobal.pas	2 Jan 2006 12:28:51 -0000	1.45
+++ freexp/xpglobal.pas	5 Feb 2006 15:03:13 -0000	1.46
@@ -8,7 +8,7 @@
 { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
 { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html.   }
 { --------------------------------------------------------------- }
-{ $Id: xpglobal.pas,v 1.45 2006/01/02 12:28:51 mw Exp $ }
+{ $Id: xpglobal.pas,v 1.46 2006/02/05 15:03:13 mw Exp $ }
 
 { Globale Konstanten/Variablen (FreeXP) und Tools }
 
@@ -25,6 +25,8 @@
                              { ' alpha x' während der Entwicklung       }
                              { ' beta x'  in der Stabilisierungsphase   }
                              { oder ' RCn' während des Endtestes        }
+  rufstr      = '';          { Enthält einen Rufnamen, wenn einer       }
+                             { fuer diese Version vergeben wurde        }
 
 { Die folgenden drei Konstanten müssen Sie ergänzen, bevor Sie      }
 { CrossPoint compilieren können. Falls Die das compilierte Programm }
@@ -126,6 +128,14 @@
 
 {
   $Log: xpglobal.pas,v $
+  Revision 1.46  2006/02/05 15:03:13  mw
+  MW: - Unterstützung für Rufnamen verbessert:
+        Es gibt jetzt eine extra Konstante, die
+        nur bei bedarf eingesetzt wird.
+        Eine Klammerung des Rufnamen ist dabei
+        nicht sinnvoll, dies wird automatisch
+        durchgeführt.
+
   Revision 1.45  2006/01/02 12:28:51  mw
   MW: - Frohes neues Jahr 2006
 
Index: freexp/xpreg.pas
===================================================================
RCS file: /server/cvs/freexp/xpreg.pas,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- freexp/xpreg.pas	2 Jan 2006 12:28:51 -0000	1.17
+++ freexp/xpreg.pas	5 Feb 2006 15:03:12 -0000	1.18
@@ -8,7 +8,7 @@
 { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
 { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html.   }
 { --------------------------------------------------------------- }
-{ $Id: xpreg.pas,v 1.17 2006/01/02 12:28:51 mw Exp $ }
+{ $Id: xpreg.pas,v 1.18 2006/02/05 15:03:12 mw Exp $ }
 
 { Registrierung }
 
@@ -236,7 +236,7 @@
     DiaWidth : byte;
 begin
   addy := 1;
-  ver := xp_xp+' '+verstr+betastr+ovrstr;
+  ver := xp_xp+' '+verstr+betastr+iifs(rufstr<>'',' ('+rufstr+')','')+ovrstr;
  {$IFDEF Snapshot}
   inc(addy);
  {$ENDIF}
@@ -283,6 +283,14 @@
 end.
 {
   $Log: xpreg.pas,v $
+  Revision 1.18  2006/02/05 15:03:12  mw
+  MW: - Unterstützung für Rufnamen verbessert:
+        Es gibt jetzt eine extra Konstante, die
+        nur bei bedarf eingesetzt wird.
+        Eine Klammerung des Rufnamen ist dabei
+        nicht sinnvoll, dies wird automatisch
+        durchgeführt.
+
   Revision 1.17  2006/01/02 12:28:51  mw
   MW: - Frohes neues Jahr 2006
 
Index: freexp/xpx.pas
===================================================================
RCS file: /server/cvs/freexp/xpx.pas,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -r1.36 -r1.37
--- freexp/xpx.pas	2 Jan 2006 12:28:51 -0000	1.36
+++ freexp/xpx.pas	5 Feb 2006 15:03:13 -0000	1.37
@@ -8,7 +8,7 @@
 { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
 { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html.   }
 { --------------------------------------------------------------- }
-{ $Id: xpx.pas,v 1.36 2006/01/02 12:28:51 mw Exp $ }
+{ $Id: xpx.pas,v 1.37 2006/02/05 15:03:13 mw Exp $ }
 
 { CrossPoint - First Unit }
 
@@ -257,7 +257,7 @@
   writeln(t);
   write(t,xp_xp);
   if (xp_xp='CrossPoint') then write(t,'(R)');
-  writeln(t,' ',verstr,betastr,ovrstr);
+  writeln(t,' ',verstr,betastr,iifs(rufstr<>'',' ('+rufstr+')',''),ovrstr);
   writeln(t,x_copyright,' by ',author_name,' (',author_mail,')');
   writeln(t);
   if _deutsch then
@@ -361,6 +361,14 @@
 
 {
   $Log: xpx.pas,v $
+  Revision 1.37  2006/02/05 15:03:13  mw
+  MW: - Unterstützung für Rufnamen verbessert:
+        Es gibt jetzt eine extra Konstante, die
+        nur bei bedarf eingesetzt wird.
+        Eine Klammerung des Rufnamen ist dabei
+        nicht sinnvoll, dies wird automatisch
+        durchgeführt.
+
   Revision 1.36  2006/01/02 12:28:51  mw
   MW: - Frohes neues Jahr 2006
 
Index: freexp/binaries/XP_NTVDM.DLL
===================================================================
RCS file: /server/cvs/freexp/binaries/XP_NTVDM.DLL,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
Binary files /tmp/cvsYnsrUU and /tmp/cvsWqUXLY differ



Mehr Informationen über die CVS-List Mailingliste