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