Configuração da Aplicação (Registro/INI) no Windows 2000 XP

Delphi

27/07/2004

Olá

Eu tenho uma sistema que guarda informações no registro do Windows referentes àa configurações do software, como por exemplo Local do Banco de Dados e etc e estou com dificuldades em guardar as configurações do mesmo...

O sistema guarda as informações no LOCAL_MACHINE e isto não pode ser modificado sem uma senha de ADMINISTRADOR no Windows 2000... :?

Dá erros também ao mexer no .INI de outras configurações...Então aí vão as questões...

:?: 1) Como usuário, posso gravar Registry na chave CURRENT_USER no Win2000/XP?

:?: 2) Não posso criar um novo arquivo .INI no diretório da aplicação ou dos dados da mesma e mudar isto com minha senha de usuário?

:?: 3) Se não às perguntas anteriores, onde fazer a configuração do Windows 2000 sem esbarrar no usuário administrador?

Agradeço quem puder ajudar... :wink:


Oswaldosaraujo

Oswaldosaraujo

Curtidas 0

Respostas

Xisto

Xisto

27/07/2004

Utilizo a opcao 2, e estamos navegando em aguas calmas. :D
2) Não posso criar um novo arquivo .INI no diretório da aplicação ou dos dados da mesma e mudar isto com minha senha de usuário?

Se Precisar de ajuda com arquivos INI, avise.


GOSTEI 0
Oswaldosaraujo

Oswaldosaraujo

27/07/2004

Utilizo a opcao 2, e estamos navegando em aguas calmas. :D [quote:d722de95d8]2) Não posso criar um novo arquivo .INI no diretório da aplicação ou dos dados da mesma e mudar isto com minha senha de usuário?

Se Precisar de ajuda com arquivos INI, avise.[/quote:d722de95d8]

Onde você coloca o ini no diretório da aplicação na estação ou no diretório do BD no servidor?


GOSTEI 0
Xisto

Xisto

27/07/2004

No diretorio da aplicacao e leio aqui

procedure TdmScwin.DataModuleCreate(Sender: TObject);
var
    vArqIni : TiniFile;
    vPasta: String;
    vEnderecoBanco:String;

begin
    CurrencyDecimals        := 2 ;
    DateSeparator           := ´/´ ;
    ThousandSeparator       := ´,´ ;
    DecimalSeparator        := ´.´;
    ShortDateFormat         := ´dd/mm/yyyy´;
    LongTimeFormat          := ´hh:mm:ss´;
    vPasta := ExtractFilePath(Application.ExeName)+´gerente.ini´;
    vArqIni := tIniFile.Create(vPasta);

    vEnderecoBanco:=dmScWin.ConeccaoVarejo.Params.Values[´Database´];
    if FileExists(vPasta) then
    begin
        try
        begin
            vEnderecoBanco := vArqIni.ReadString(´Configuracao´, ´EnderecoBanco´,´´);
            vLojaAtual:=vArqIni.ReadString(´Configuracao´,´LojaAtual´,´´);
            dmScWin.ConeccaoVarejo.close;
            dmScWin.ConeccaoVarejo.Params.Values[´Database´] := vEnderecoBanco;
            vEnderecoBanco:=dmScWin.ConeccaoVarejo.Params.Values[´Database´];
            dmScWin.ConeccaoVarejo.Open;
            vArqIni.Free;
        end;
        except
        begin
            messagedlg(´Arquivo de Configuracao nao encontrado ou nao pode ser aberto.´,mtError,[mbOk],0);
            Application.Terminate;
        end;
        end;
    end
    else
    begin
        messagedlg(´Arquivo de Configuracao nao encontrado ou nao pode ser aberto.´,mtError,[mbOk],0);
        Application.Terminate;
    end;

end;


Cara, um ICQ ou MSN nos ajudariam a conversar melhor sobre detalhes.


GOSTEI 0
POSTAR