Искал на просторах Интернета решение задачи запуска первой копии программы вместо второй. Трудно пришлось. Но всё-таки после тщательного анализа и опробования многих предложений вот что получилось: {------------} program arm_usi_tcp; uses Forms, Windows, ..... , Messages, main in 'main.pas' {Form1}, ........ {$R *.RES} var hMutex: THandle; hwndPrev: HWND; begin HMutex := CreateMutex (nil, True, 'svc_arm_usi_tcp'); if WaitForSingleObject (hMutex, 0) <> wait_TimeOut then begin {------первый запуск программы} Application.Initialize; Application.HelpFile := ''; Application...

Наконец-то свершилось, теперь существует бесплатная версия Delphi (хотя это было сделано уже более года назад), редакция которой называется Community Edition. Теперь многие могут не искать взломанные версии Delphi на различных сайтах и торрентах, а официально скачать бесплатную версию и начать разрабатывать кроссплатформенные приложения. Теперь вы можете создавать приложения для iOS, Android, Windows, а также macOS используя синтаксис и компоненты Delphi. Конечно, данная версия является ограниченной по функционалу, но поверьте, этого достаточно, чтобы делать довольно «мощные» приложения...