@ dominikkv
moin dominik, ... die Setup Routine ist nicht von mir ...
Zitat von
Apollonius:
Wann deaktivierst du den Button denn? Zeig einfach mal die gesamte Prozedur, in der RunAndWaitShell aufgerufen wird.
Moin Apollonius,
gerne doch .... und wenn ich des öfteren mal debuggen und LESEN würde, ginge mir so manchesmal eine Lampe auf
.
Sorry ... der Fehler ist gefunden... ich habe den Button einfach nicht zurückgesetzt .... Hier aber trotzdem die (korrigierte) Prozedur (Zeile 21-24 sind neu) ...
Delphi-Quellcode:
// *****************************************************************************
// Installation der SSC
procedure RO1SSC;
var FileP, ssc_dir, Param_ssc: string;
err: Integer;
begin
bKonfiguration.Enabled:=false;
bBeenden.Enabled:=false;
Label9.Visible:=false;
Label7.Left:=130;
Label7.Font.Color:=clRed;
Label7.Caption:='Bitte warten ... Bearbeitung läuft ...';
FileP := ExtractFilePath(Application.ExeName);
Param_ssc:='/s /v"/qb REBOOT=force"';
err:=Form3.RunAndWaitShell(FileP+'SSC\'+'setup.exe',Param_ssc,ssc_dir,SW_SHOW);
if (err >0) and (err < 32) then
Showmessage(Form3.ShellExecuteErrMessage(Err));
if (err >32) then
Showmessage(Form3.ShellExecuteErrMessage(Err)+#13#10+'Die Installation wird beendet.');
bBeenden.Enabled:=true;
end;
schönes Wochenende ... und nochmal danke (mache gleich noch einen "neuen" auf ...)