L'auteur Gregory Adam Note des membres pas de note
Contributions > 05 - API et appels systèmes
Les variables d'environnement windows
# 0000000336
23/06/2006 17:44:31 et modifié le 26/06/2006 9357 fois
Code source :
#include "FoxPro.h" define TRUE .T. define FALSE .F. define BOOL Integer define LPCTSTR String @define LPTSTR String @ && correction 26/06/2006 define DWORD Long && do this once declare BOOL GetEnvironmentVariable in kernel32 ;&& // environment variable name && // buffer for variable value && // size of buffer declare BOOL SetEnvironmentVariable in kernel32 ;&& // environment variable name && // new value for variable if FALSEfunction Test()local sassert EnvironmentVariable_Get('PATH' , @m.s)assert EnvironmentVariable_Set('HAHA' , 'www.xxx.zzz' )assert EnvironmentVariable_Get('HAHA' , @m.s)assert m.s == 'www.xxx.zzz' endfunc endif *--------------------------------------------------------------------------- function EnvironmentVariable_Set(ev_Name, ev_Value)return !empty (SetEnvironmentVariable(@m.ev_Name, @m.ev_Value))endfunc *--------------------------------------------------------------------------- function EnvironmentVariable_Get(ev_Name, ev_Value)local l, nspace (m.l)do case case empty (m.n)'' && does not exist, or empty return TRUEcase m.n < m.lleft (m.ev_value, m.n)otherwise space (m.l)do case case m.n + 1 <> m.lassert FALSEreturn FALSEotherwise left (m.ev_value, m.n)endcase endcase endfunc *---------------------------------------------------------------------------
Commentaires
Aucun commentaire enregistré ...
Retour à la liste
Belgique
Fiche personnelle
Note des membres