neustart des eigenen programms

[maxmax]

Wie kann ich mit Delphi Programmieren, dass das Programm beendet wird und sofort wieder neu gestartet wird??
ich freue mich über antworten.

[Matze]

Hallo Max,

ich verweise auf ein anderes Thema: Sich selbst neu starten?

Grüße

[Fussball-Robby]

mit close das Programm beenden, und per ShellExecute neustarten (mit der Suche hättest du das aber auch gefunden :? )

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Close;
  ShellExecute(Application.Handle, 'open', Pchar(ParamStr(0)), nil, nil, sw_SHOWNORMAL);
end;

Mfg

[maxmax]

ja danke ihr beiden!
ich hätt natürlich erst suchen sollen!

[maxmax]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Close;
  ShellExecute(Application.Handle, 'open', Pchar(ParamStr(0)), nil, nil, sw_SHOWNORMAL);
end;

wenn ich das nun hernehme, meldet delphi: undefinierter Bezeichner 'ShellExecute' !

Wo liegt der fehler?

[haentschman]

Morgen.... 8)

ShellApi in uses einbinden.

:hi:

[maxmax]

ahh ok danke :-D

[maxmax]

jetzt hab ich abern och eine frage:
ich hab ein paar edits, die die ListBox1 inhalte auslesen und über die man die bestehenden inhalte der ListBox bearbeiten kann
und zwar so:

Delphi-Quellcode:

procedure TForm1.AendernClick(Sender: TObject);
begin
try
if ListBox1.ItemIndex<>-1 then
begin
ListBox1.Items.Insert(ListBox1.ItemIndex, Name.Text+' | '+Ansprechpartner.Text+' | '+Strasse.Text+' | '+Ort.Text+' | '+Telefon.Text+' | '+Telefax.Text+' | '+Mobil.Text+' | '+EMail.Text);
ListBox1.Items.Delete(ListBox1.ItemIndex);
end
else
ShowMessage ('Es müssen Einträge markiert sein!');
except
ShowMessage ('Falsche Eingaben!');
end;
end;

wenn ich nun aber diese procedure im programm aufrufe, passiert nichts! warum?

[ghost007]

neue frage, neuer thread ;)

[Jelly]

Bitte... Neue Frage := neuer Thread. .

* * * C L O S E D * * *