Привет. Долго сомневался в нужности такой статьи, хоть и подробного материала в сети довольно мало, учитывая сложность выше минимума - я не уверен что статья будет пользоваться вниманием. Впрочем посмотрим. В процессе, в сети нашёл видео уроки создания трейнера на visual_Studio C++ где кодер использует объектно ориентированный код, моё мнение - классы нужны в более-менее сложном проекте , каковым трейнер всё таки не является и добавлять ему сложности в виде объектов не вижу смысла. Вполне хватает линейного кода и всяких структур данных...

Искал на просторах Интернета решение задачи запуска первой копии программы вместо второй. Трудно пришлось. Но всё-таки после тщательного анализа и опробования многих предложений вот что получилось: {------------} 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...