FreeXP

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