[Delphi] ini-file parameters probleempje

[cypher21]

ik ben bezig met een progseltje wat een ini-file genereerd. Dit gaat prima, alleen stuit ik op een probleempje. er is een regel in de ini-file dat zich niet als een standaard ini sectie laat schrijven.

code:

code:

while q < LstInstall.Items.Count do
    begin
      ini.WriteString('OEMRunOnce','"'+LstInstall.Items[q]+'","""\\TECHNICIAN\OPKaps\packages\'+LstInstall.Items[q]+'.exe"""','');
      q:=q+1;
    end;

uitvoer is nu:

[OEMRunOnce]
"NERO_551028","""\\TECHNICIAN\OPKaps\packages\NERO_551028.exe"""=
"powerdvd_4","""\\TECHNICIAN\OPKaps\packages\powerdvd_4.exe"""=

maar doordat die =jes aan het einde van de regel staan, voert ie dit niet uit. een parameter minder meegeven is helaas ook niet mogelijk.

iemand suggesties?

[ Voor 17% gewijzigd door cypher21 op 11-11-2003 15:26 ]

[Knutselsmurf]

Een inifile bestaat altijd uit de combinatie key=value. Als je geen value invult, wordt deze blijkbaar genegeerd. Oplossing: Value meegeven.

[cypher21]

value meegeven is helaas niet mogelijk, zodra er ietsvoor of achter de regel staat, wordt die regel niet uitgevoerd

[Delphi32]

Ehm...
Komma tussen naampje en pad naar programma wijzigen in =-teken, vervolgens de routine die het programma moet starten de Value van elke key laten lezen (en niet de gehele regel). Niet zo moeilijk toch?

[Verwijderd]

Ik gebruik deze routine voor dit soort zaken (dit is lezen, maar schrijven is zo gemaakt):

Delphi:

procedure ReadIniLines(IniName, SectionName : string; Lines : TStrings);
var
  f : textfile;
  line : string;
begin
  Lines.Clear;
  if fileexists(IniName) then
  begin
     try
       assignfile(f, IniName);
       reset(f);
       while not (eof(f)) do
       begin
          readln(f, line);
          if comparetext('[' + SectionName + ']', line) = 0 then // Vinden we de sectie?
             break; // Ja stoppen met zoeken
       end;
       while not eof(f) do
       begin
          readln(f, line);
          if (pos('[', line) > 0) and (pos(']',line) > 0) then // Nieuwe Sectie ??
              break; // Ja, onderbreken
          lines.Add(line);
       end;
     finally
       closefile(f);
     end;
  end;
end; {}

[ Voor 5% gewijzigd door Verwijderd op 11-11-2003 15:56 ]

[cypher21]

Delphi32 schreef op 11 november 2003 @ 15:51:
Ehm...
Komma tussen naampje en pad naar programma wijzigen in =-teken, vervolgens de routine die het programma moet starten de Value van elke key laten lezen (en niet de gehele regel). Niet zo moeilijk toch?

dat is idd niet moeilijk nee, als het niet was dat Sysprep de ini in moet lezen voor een pre-installatie van Windows. ik was niet van plan sysprep opnieuw te coden

wat ik zat te denken, een ; is commentaar in een ini-file.

zou dit werken:
"powerdvd_4","""\\TECHNICIAN\OPKaps\packages\powerdvd_4.exe""";=

edit:

de kromme oplossing met de ; werkt niet echt netjes voor de code, maar what the hack, niemand leest die ini-files

topic kan op slot

[ Voor 21% gewijzigd door cypher21 op 11-11-2003 16:10 ]

[Delphi32]

Hm, nu begrijp ik waarom je niet met de standaard key=value kan werken... het is leuk dat je work-around werkt, maar eigenlijk gebruik je de verkeerde class om dit op te lossen. Je RunOnce bestandje (of hoe het heet) IS geen ini-file, moet je m ook niet als zodanig behandelen

[Creepy]

Verwijderd schreef op 11 november 2003 @ 15:55:
Ik gebruik deze routine voor dit soort zaken (dit is lezen, maar schrijven is zo gemaakt):

Is dat niet gewoon de TIniFile.ReadSection?

[Verwijderd]

Creepy schreef op 11 november 2003 @ 16:41:
[...]

Is dat niet gewoon de TIniFile.ReadSection?

euh, nee. Want die leest dus niet de keynames (lees gewone regels) in als er geen = achter staat. (TIniFile.ReadSection is eigenlijk een wrapper om de GetPrivateProfileString (windows api) heen).

[ Voor 22% gewijzigd door Verwijderd op 11-11-2003 17:04 ]