Crear archivo .ini

[dec]

Hola,

Empezado por Sayuri

[Startup] //¿esto lo debo poner?
Rutap=\\PC05\URGENCIAS //¿se declara así una variables?
Rutas=\\SERVIDORPC\COPIA_URGENC

Lo primero representa una sección en que luego podrás mirar por un determinado valor. "Rutap" sería la clave que te informaría del valor que le sigue a su derecha.

Si investigaras un poco en la clase "TIniFile" y sus métodos no tendrías mayor problema, pero, en fin, ahí va un procedimiento (a modo de ejemplo únicamente) para obtener lo que precisas: se basa en los datos que proporcionas tú mismo.

Código Delphi [-]
   procedure ObtenerRutas(var rutaP, rutas: string);
   var
     dir: string;
     ini: TIniFile;
   begin
     dir := ExtractFilePath(ParamStr(0));
     ini := TIniFile.Create(dir + 'archivo.ini');
     try
       rutaP := ini.ReadString('Startup', 'Rutap', '');
       rutas := ini.ReadString('Startup', 'Rutas', '');
     finally
       ini.Free;
     end;
   end;

Obtendrías las rutas en las variables "rutaP" y "rutas", que se pasan en el procedimiento por referencia. Si el archivo "ini" no existiera o si no hubiera ningún valor asociado a las claves correspondientes del archivo "ini" las variables mencionadas contendrían una cadena vacía.

Mira en la ayuda de Delphi: el método "ReadString" de la clase "TIniFile" precisa tres parámetros: el primero es la sección del archivo "ini" en que se quiere mirar por una determinada clave/valor; el segundo es la clave cuyo valor queremos leer; el tercero es el valor "por defecto", en caso de que no hubiera valor alguno relacionado con la clave en cuestión.

Actualización: Quizás con el ejemplo que se incluye en el archivo adjunto lo veas del todo claro. Pero, recuerda que el procedimiento en cuestión es solamente una forma de hacerlo y nada más que eso: en cuanto "controles" los archivos "ini" ya verás tú cómo te parece mejor llevar a cabo lo que te propones.