Einzelnen Beitrag anzeigen

Diddy

Registriert seit: 28. Sep 2006
Ort: Leinefelde/Thüringen
3 Beiträge
 
Delphi 2005 Personal
 
#5

Re: Daten aus *.ini Datei auslesen

  Alt 29. Sep 2006, 10:42
So... habe das alles nun etwas anders gemacht als geplant... aber dabei ist ein neues Problem entstanden. Beim Klick auf einen Button sollen mehrere Setups hintereinander ausgeführt werden, aber es tut sich nichts. Kan mir evt. jemand sagen was an meinem Code falsch ist?

Delphi-Quellcode:
procedure TMainForm.cmdUpdateClick(Sender: TObject);

const
  C_STR_INI_FILE = 'start.ini';
var
   cExecPath : String;
   nExecResult : Integer;
   cIniFile, cAppPath : String;
   oIniFile : TIniFile;
   setupCount, i : Integer;
   setup : TStringList;
   execString, execApp : string;
begin
  cExecPath := ExtractFilePath(Application.ExeName);
  cIniFile := cExecPath + C_STR_INI_FILE + #0;
  oIniFile := TIniFile.Create(cIniFile);

 // update 1, update 2, update 3 etc
  updateCount := oIniFile.ReadInteger('update', 'count', 0);

  for i := 1 to updateCount do
  begin
    execApp := oIniFile.ReadString('update', 'update' + IntToStr(i), '');

    execString := cExecPath + execApp + #0;
    //ShowMessage(execString);
    nExecResult := WinExec( @execString[1], SW_SHOWDEFAULT);
    WinExec( @execString[1], SW_SHOWDEFAULT);
  end;
end;
Greetz Diddy
  Mit Zitat antworten Zitat