#DEFINE CRLF Chr(13)+Chr(10)
User Function Exemplo()
Local cServerIni := "", cClientIni := "", cMensagem := ""
Local cSecao := "", cChave := "", cPadrao := ""
//+----------------------------------------------------------------------------+
//|Exemplifica o uso da função GetPvProfString |
//+----------------------------------------------------------------------------+
cServerIni := GetAdv97()
cClientIni := GetRemoteIniName()
cSecao := "Drivers"
cChave := "Active"
cPadrao := "undefined"
cMensagem += "Arquivo de configuração do servidor: [" + cServerIni + "]" + CRLF
cMensagem += " Seção [" + cSecao + "] Chave [" + cChave + "] Valor [" + ;
GetPvProfString(cSecao, cChave, cPadrao, cServerIni) + "]" + CRLF
cMensagem += "Arquivo de configuração da estação: [" + cClientIni + "]" + CRLF
cMensagem += " Seção [" + cSecao + "] Chave [" + cChave + "] Valor [" + ;
GetPvProfString(cSecao, cChave, cPadrao, cClientIni) + "]" + CRLF
//+----------------------------------------------------------------------------+
//|Apresenta uma mensagem com os resultados obtidos |
//+----------------------------------------------------------------------------+
Return MsgInfo(cMensagem, "Exemplo do GetPvProfString")