to jest sposób na zakończenie nowej aplikacji, która się otworzy.
hMapping:=CreateFileMapping(THANDLE($FFFFFFFF),nil,
PAGE_READONLY,0,32,'ApplicationTestMap');
if GetLastError=ERROR_ALREADY_EXISTS then
begin
Application.MessageBox('Program jest już uruchomiony','Informacja',
mb_OK+MB_IconInformation);
Application.Terminate;
end;
Ale - jak zakończyć starą aplikację, by dać miejscę pod nową? hmm...