как закрыть программу?

[Alar]

перенесено со старого форума. сообщение от VDLab.

такой вот вопросик:как программно закрыть все ранее запущеные экземпляры программы?

перенесено со старого форума. сообщение от Alar.

halt;

всё....

перенесено со старого форума. сообщение от VDLab.

так эта команда закроет все экземпляры программы(ведь правильно ?), а мне нужно закрыть только ранее открытые экземпляры, а последний запущеный должен остаться. Прошу прощения, если неточно сформулировал вопрос.

перенесено со старого форума. сообщение от zetrix.


Вот готовая процедура:

procedure closeUSERform();
var
h:hWnd;
begin
h:=FindWindows(nil,'Название'); //здесь название твоего окна (заголовок!)
if h=0 then exit; // если таких окон нет то выход из процедуры
SendMessage(h,WM_DESTROY,0,0); //приказать окну: СДОХНИ!
end;