delphi7与XE的PCHAR 转换 以及执行CMD ,pyt

先把CMD的路径加入系统变量,

delphiXE

WinExec(PAnsiChar(AnsiString( 'cmd.exe /c python new261.py')),SW_SHOWNORMAL);

 这样就等于 

delphi7

WinExec(PChar( 'cmd.exe /c  ping  python new261.py'),SW_SHOWNORMAL);