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
------------------------------------------------------------------------ FreeXP CVS-Mailingliste CVS-List@freexp.de http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list