Константин Малышев

6 лет назад

Вспоминаю ЧМ-2018 по футболу, по-своему, конечно...

Купил во время ЧМ-2018 по футболу пивную кружку. Вроде бы ничего особенного. Но когда наливаешь в нее пиво, то дно кружки становится похожим на стадион с полными трибунами болельщиков. Ещё купил вот такое мыло в пивнушке И, глядя на мыло, вспоминаю кричалку "судью на мыло"...

6 лет назад

Запуск первой копии программы вместо второй в Delphi

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

Покупайте СтеллыИ дарите их за контент