Doppelten Start eines Programmes verhindern

[Sunlight7]

Zitat:

Application.Title := 'hier muss ich denn text reinschreiben';´// <-- und diese auch
Und das wird nicht klappen, Delphi (zumindest mein D6) mekert dan rum und will das Project nicht mehr
starten und oder laden.

Ich hab das so:

In der Projekt Datei:
SetAppTitle('Ein Titel'); In einer Unit:

Delphi-Quellcode:

procedure SetAppTitel(const Titel:String);
begin
   Application.Title:=Title;
end;

Und Delphi gibt Ruhe