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