cPathList := GetEnv( "PATH" )
FOR EACH cPath IN { "d:\harbour\bin", "d:\harbour\comp\mingw64\bin", "d:\tools\util" }
IF ! Lower( cPath ) $ Lower( GetEnv( "PATH" ) )
cPathList += ";" + cPath
ENDIF
ShellExecuteOpen( "setx.exe", "PATH" + " " + cPathList )
NEXT
O lado ruim é que só vale a partir da próxima vez que abrir janela.
Isso vai direto lá pro variáveis de ambiente.