Отправлено: 24.01.07 13:16. Заголовок: использование переменных окружения

Возможно ли переустановить переменные (например, HB_DBG_PAS) окружения на время выполнения программы?

 Отправлено: 24.01.07 13:43. Заголовок: Re:

lena

Попробуй это сделать так:

FUNCTION SetENV( cPar1, cPar2 )
LOCAL nPos
IF ( nPos := At( "=", cPar1 ) ) > 0
cPar1 := Left( cPar1, nPos - 1 )
cPar2 := SubStr( cPar1, nPos + 1 )
ENDIF
RETURN ( SetEnvironmentVariable( cPar1, cPar2 ) )

*----------------------------------------------

#pragma BEGINDUMP
#include "Windows.h"
#include "hbapi.h"

HB_FUNC( SETENVIRONMENTVARIABLE )
{
hb_retl( SetEnvironmentVariableA( (LPCSTR) hb_parcx( 1 ),
(LPCSTR) hb_parcx( 2 )
) ) ;
}
#pragma ENDDUMP