[poli-smen]

Сообщение от Gareth

Решил еще добавить такую штуку, что бы нельзя было запустить вторую копию программы. Когда запускаю копию, появляется окошко, мол типа запущена уже программа... Хотелось бы еще добавить активацию этой программы.
То-есть программа например запущена, я запускаю еще раз ее, появляется окошко"программа уже запущена", жму ок и после этого окно программы вылазиет из трея по вер всех окон.
Подскажите как можно сделать.

Если вдруг надо, вот как делал запрет на вторую копию:

Код:

.....
CreateFileMapping(HWND($FFFFFFFF), nil, PAGE_READWRITE, 0, 1024,
'Programm Name');
.....

Я в одном своём приложении делал такую штуку и тоже через "CreateFileMapping(HWND($FFFFFFFF)". При этом если удавалось создать такой файл - значит ещё не запущено ни одной копии моей программы - тогда я записывал в этот созданный файл хэндл "Application.Handle". А если же не удавалось создать такой файл - значит этот файл уже создала одна запущенная копия моей программы. Тогда я открывал этот файл через "OpenFileMapping", читал из него хэндл и выводил приложение с этим хэндлом на передний план, а вторая копия благополучно завершалась.