CVS daily diff
FreeXP CVS-Server
cvs-list at freexp.de
Fre Jul 8 00:00:25 CEST 2005
Index: freexp/xp9sel.pas
===================================================================
RCS file: /server/cvs/freexp/xp9sel.pas,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- freexp/xp9sel.pas 6 Jul 2005 18:10:16 -0000 1.15
+++ freexp/xp9sel.pas 7 Jul 2005 18:20:06 -0000 1.16
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp9sel.pas,v 1.15 2005/07/06 18:10:16 mw Exp $ }
+{ $Id: xp9sel.pas,v 1.16 2005/07/07 18:20:06 mw Exp $ }
{ CrossPoint - UniSel: Select-/Test-Routinen fuer Unisel-Menüs }
@@ -1346,10 +1346,10 @@
PPPClientTest:=true;
fn:=trim(s);
EInt:='';
- if Pos('CMD.EXE',getenv('comspec'))<>0 then EInt:='cmd';
- if Pos('4DOS',getenv('comspec'))<>0 then EInt:='4dos';
- if Pos('4NT',getenv('comspec'))<>0 then EInt:='4dos';
- if Pos('4OS2',getenv('comspec'))<>0 then EInt:='4dos';
+ if Pos('cmd.exe',lstr(getenv('comspec')))<>0 then EInt:='cmd';
+ if Pos('4dos',lstr(getenv('comspec')))<>0 then EInt:='4dos';
+ if Pos('4nt',lstr(getenv('comspec')))<>0 then EInt:='4dos';
+ if Pos('4os2',lstr(getenv('comspec')))<>0 then EInt:='4dos';
if Pos('start /wait ', lstr(fn)) = 1 then fn := Copy(fn, 13, MaxInt);
if Pos('start /wai ', lstr(fn)) = 1 then fn := Copy(fn, 12, MaxInt);
if Pos('start /wa ', lstr(fn)) = 1 then fn := Copy(fn, 11, MaxInt);
@@ -1357,7 +1357,7 @@
if Pos('command ', lstr(fn))<> 0 then fn := Copy(fn,Pos('/c ',lstr(fn))+3, MaxInt);
if Pos('cmd ',lstr(fn))<>0 then begin
fn := Copy(fn,Pos('/c ',lstr(fn))+3, MaxInt);
- EInt:='cmd'; {cmd-Feature freischalten fⁿr Windows NT/2000/XP/2003}
+ EInt:='cmd'; {cmd-Feature freischalten für Windows NT/2000/XP/2003}
end;
if Pos('4dos',lstr(fn))<>0 then begin
fn := Copy(fn,Pos('/c ',lstr(fn))+3, MaxInt);
@@ -2110,6 +2110,10 @@
{
$Log: xp9sel.pas,v $
+ Revision 1.16 2005/07/07 18:20:06 mw
+ MW: - Kleinere Verbesserung von Extended-Command zur Erhöhung der Robustheit
+ - ANSI-Typo ausgebessert
+
Revision 1.15 2005/07/06 18:10:16 mw
MW: - Korrektur letzter Commit
Mehr Informationen über die CVS-List Mailingliste