Один экземпляр программы

[Gigahard]

Конечно понимаю, что вопрос глупейший, но не могу я на данный момент инфы по нему накопать. Как сделать так, чтобы одновременно запускалась бы только одна копия программы?

[tyomitch]

самой первой строчкой:

Код: Выделить всё

If App.PrevInstance Then End

[Gigahard]

Спасибо . Только почему то это не работает с формой в которую добавлен контрол ToolBar... С чего бы это?

[Gigahard]

А оно очень нужно...

[Konst_One]

в моделе делаешь процедуру:

Код: Выделить всё

Public Sub Main()


If App.PrevInstance Then End
MainForm.Show

End Sub

В свойствах проекта устанавливаешь запуск через процедуру Main()

[Gigahard]

Да... С модулем работает как надо Но баг зачтен .

Спасибо.