POr si alguien le interesa, ya encontré como hacer el archivo INI, es muy fácil y en el ejemplo que puse en el hilo se ve claramante, lo que hace el ocecarse...... y estar cansada.
Pues bien aqui os paso en código la forma en el que lo hice:
Código:
function GetUser(S: String): String;
begin
{ Return a user value }
{ Could also be splitted into separate GetUserName and GetUserCompany functions }
if S = 'Nombre y nif' then
Result := UserPage.Values[0]
else if S = 'Empresa' then
Result := UserPage.Values[1]
else if S = 'Direccion, población y provincia' then
Result := UserPage.Values[2]
else if S = 'Teléfono y fax' then
Result := UserPage.Values[3];
if S = 'Nombre Servidor' then
Result := UsagePage.Values[0]
else if S = 'Nombre usuario Base de datos' then
Result := UsagePage.Values[1]
else if S = 'Contraseña' then
Result := UsagePage.Values[2];
end;
end.
[INI]
Filename: "{win}\Contadores1.ini"; Section: "REGISTRAR"; Key: "Nombre y Nif"; String: {code:GetUser|Nombre y nif}
Filename: "{win}\Contadores1.ini"; Section: "REGISTRAR"; Key: "Empresa"; String: {code:GetUser|Empresa}
Filename: "{win}\Contadores1.ini"; Section: "REGISTRAR"; Key: "Dirección, población y provincia"; String: {code:GetUser|Direccion, población y provincia}
Filename: "{win}\Contadores1.ini"; Section: "REGISTRAR"; Key: "Teléfono y fax"; String: {code:GetUser|Teléfono y fax}
Filename: "{win}\Contadores1.ini"; Section: "SERVIDOR"; Key: "Nombre Servidor"; String: {code:GetUser|Nombre Servidor}
Filename: "{win}\Contadores1.ini"; Section: "SERVIDOR"; Key: "Nombre usuario Base de datos"; String: {code:GetUser|Nombre usuario Base de datos}
Filename: "{win}\Contadores1.ini"; Section: "SERVIDOR"; Key: "Contraseña"; String: {code:GetUser|Contraseña}
Lo que he hecho es crear una función llamada GetUser que devuelve un String, este String es el que va a quedar grabado en el archivo.ini.Escribo la instruccion por cada uno de los datos que devuelve la funciín, es decir, por cada uno de los datos que quiero grabar en el INI
Espero que sirva de ayuda a alguien
Gracias por toda la ayuda que me han prestado