COM-Port ließt nach Neustart nicht

[Jens Hartmann]

Hallo Leute,

ich hatte zwar das Problem gelößt, bin aber doch mal auf den Vorschlag mit dem Programm zum Starten eingegangen, um wirklich solche Laufzeiten etc. mal ausgleichen zu können. Wollte jetzt mal von Euch wissen, ob das so der richtige Weg ist. Hier mal der Code...

Delphi-Quellcode:

procedure TPSStarter.ProgbarTimerTimer(Sender: TObject);
var
  Zeit : integer;
begin
  ProgBarStatus.Position := ProgBarStatus.Position + 200;
  Zeit := (Starter.Interval - ProgBarStatus.Position);
  Zeit := Zeit div 1000;
  Label1.Caption := 'Noch '+IntToStr(Zeit)+' Sekunden bis zum Start von Print && Save';
end;

procedure TPSStarter.StarterTimer(Sender: TObject);
begin
if FileExists('.\Print & Save.exe') then
  begin
    ShellExecute(Application.Handle, 'open', ('.\Print & Save.exe'), nil, nil, SW_ShowNormal);
    Starter.Enabled := false;
    ProgbarTimer.Enabled := false;
    PSStarter.Close;
  end
  else
  begin
  ShowMessage('Beim Start von Print & Save ist ein Fehler aufgetreten'+sLineBreak+
              'Bitte starten Sie Print & Save erneut'+sLineBreak+sLineBreak+
              'Sollte es erneut zu einem Fehler kommen wenden Sie sich bitte an: '+sLineBreak+
              'hartmann + uebach Nachrichtentechnik GmbH'+sLineBreak+
              'Tel: [phone]');
  PSStarter.Close;
end;
end;

end.

Danke schon mal für Euro Kommentare.

Gruß Jens